I usually have no problem identifying a type mismatch error, but this one's got me pulling my hair out. The mismatch error is pointing to line 269, which is a blank line, and it's also within an if statement that shouldn't even be firing on the initial load. Here's my code. Thanks for any help! :D
Code:
<%
dim conn
dim rs
dim strconn
%>
<%if request("edit") = "" AND request("edit_exe") = "" AND request("delete") = "" AND request("delete_exe") = "" AND request("add_new") = "" AND request("add_new_exe") = "" then
strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("..\MasterData.mdb")
set conn = server.createobject("adodb.connection")
conn.open strconn
set rs = server.createobject("adodb.recordset")
rs.open "select * from c1log order by mfg asc", conn, 2, 2
%>
<a href="default.asp?add_new=1">ADD NEW ENTRY</a><br><br>
<table border="0">
<tr>
<td bgcolor="#CCCCFF"></td>
<td bgcolor="#CCCCFF"><font size="2"><b>MFG</b></font></td>
<td bgcolor="#CCCCFF"><font size="2"><b>Stock#</b></font></td>
<td bgcolor="#CCCCFF"><font size="2"><b>Invoice#</b></font></td>
<td bgcolor="#CCCCFF"></td>
</tr>
<%do while not rs.eof%>
<tr>
<td><a href="default.asp?edit=<%=rs("id")%>"><font size="1">EDIT</font></a></td>
<td><font size="1"><%=rs("mfg")%></font></td>
<td><font size="1"><%=rs("StockNumber")%></font></td>
<td><font size="1"><%=rs("InvoiceNumber")%></font></td>
<td><a href="default.asp?delete=<%=rs("id")%>"><font size="1">DELETE</font></a></td>
</tr>
<%rs.movenext%>
<%loop
conn.close
set rs = nothing%>
</table>
<%elseif request("add_new") <> "" then%>
<form method="post" action="default.asp?add_new_exe=1">
<table border="0" width="413">
<tr>
<td width="63"><font size="2"><b>MFG</b></font></td>
<td colspan="2"><!--webbot bot="Validation" b-value-required="TRUE" --><input size="7" name="mfg"></td>
</tr>
<tr>
<td width="63"><font size="2"><b>Stock#</b></font></td>
<td colspan="2"><!--webbot bot="Validation" b-value-required="TRUE" --><input size="26" name="StockNumber"></td>
</tr>
<tr>
<td width="63"><font size="2"><b>Invoice#</b></font></td>
<td colspan="2"><!--webbot bot="Validation" b-value-required="TRUE" --><input size="17" name="InvoiceNumber"></td>
</tr>
<tr>
<td width="63"><font size="2"><b>Account#</b></font></td>
<td colspan="2"><!--webbot bot="Validation" b-value-required="TRUE" --><input size="13" name="AccountNumber"></td>
</tr>
<tr>
<td width="63"><font size="2"><b>Dept#</b></font></td>
<td colspan="2"><input size="8" name="DeptNumber"></td>
</tr>
<tr>
<td valign="top" width="63"><font size="2"><b>Reason</b></font></td>
<td colspan="2"><!--webbot bot="Validation" b-value-required="TRUE" --><textarea name="reason" cols="40" rows="2"></textarea></td>
</tr>
<tr>
<td width="63"><font size="2"><b>SLMS#</b></font></td>
<td colspan="2">
<select name="SalesmanNumber">
<%strconn2 = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("..\MasterData.mdb")
set conn2 = server.createobject("adodb.connection")
conn2.open strconn2
set rs2 = server.createobject("adodb.recordset")%>
<%rs2.open "select SalesmanNumber from Q_SalesmanNumber", conn2, 2, 2%>
<%do while not rs2.eof%>
<option value="<%=rs2("SalesmanNumber")%>"><%=rs2("SalesmanNumber")%></option>
<%rs2.movenext
loop
conn2.close
set rs2 = nothing%>
</select>
</td>
</tr>
<tr>
<td width="63"><font size="2"><b>Writer#</b></font></td>
<td colspan="2">
<select name="WriterNumber">
<%strconn2 = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("..\MasterData.mdb")
set conn2 = server.createobject("adodb.connection")
conn2.open strconn2
set rs2 = server.createobject("adodb.recordset")%>
<%rs2.open "select WriterNumber from Q_WriterNumber", conn2, 2, 2%>
<%do while not rs2.eof%>
<option value="<%=rs2("WriterNumber")%>"><%=rs2("WriterNumber")%></option>
<%rs2.movenext
loop
conn2.close
set rs2 = nothing%>
</select>
</td>
</tr>
<tr>
<td width="63"><font size="2"><b>Sub?</b></font></td>
<td colspan="2"><font face="Tahoma">
<input type="radio" value="YES" name="Sub" style="font-weight: 700"><b><font size="2">YES
</font></b>
<input type="radio" checked name="Sub" value="NO" style="font-weight: 700"><b><font size="2">NO</font></b></font></td>
</tr>
<tr>
<td width="63"> </td>
<td width="82"><font size="2" color="#C0C0C0"><b>Sub MFG</b></font></td>
<td width="254"><input size="8" name="SubMFG0"></td>
</tr>
<tr>
<td width="63"> </td>
<td><font size="2" color="#C0C0C0"><b>Sub Stock#</b></font></td>
<td><input size="26" name="SubStockNumber0"></td>
</tr>
<tr>
<td colspan="3"> </td>
</tr>
<tr><td colspan="3"><input type="submit" value="Submit"> <a href="default.asp">CANCEL</a></td></tr>
</table></form>
<%elseif request("add_new_exe") <> "" then%>
<%strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("..\MasterData.mdb")
set conn = server.createobject("adodb.connection")
conn.open strconn
set rs = server.createobject("adodb.recordset")
rs.open "c1log", conn, 2, 2
rs.addnew
rs("mfg") = request.form("mfg")
rs("StockNumber") = request.form("StockNumber")
rs("InvoceNumber") = request.form("InvoceNumber")
rs("AccountNumber") = request.form("AccountNumber")
rs("DeptNumber") = request.form("DeptNumber")
rs("reason") = request.form("reason")
rs("SalesmanNumber") = request.form("SalesmanNumber")
rs("WriterNumber") = request.form("WriterNumber")
rs("sub") = request.form("sub")
rs("SubMFG") = request.form("SubMFG")
rs("SubStockNumber") = request.form("SubStockNumber")
rs.update
conn.close
set rs = nothing
response.redirect "default.asp"%>
<%elseif request("edit") <> "" then%>
<%strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("..\MasterData.mdb")
set conn = server.createobject("adodb.connection")
conn.open strconn
set rs = server.createobject("adodb.recordset")
rs.open "select * from c1log WHERE id = " & request("edit"), conn, 2, 2%>
<form method="post" action="default.asp?edit_exe=<%=request("edit")%>">
<table border="0" width="413">
<tr>
<td width="63"><font size="2"><b>Date</b></font></td>
<td colspan="2"><font size="2"><%=rs("DateEntered")%></font></td>
</tr>
<tr>
<td width="63"><font size="2"><b>MFG</b></font></td>
<td colspan="2"><input size="7" name="mfg" value="<%=rs("mfg")%>"></td>
</tr>
<tr>
<td width="63"><font size="2"><b>Stock#</b></font></td>
<td colspan="2"><input size="26" name="StockNumber" value="<%=rs("StockNumber")%>"></td>
</tr>
<tr>
<td width="63"><font size="2"><b>Invoice#</b></font></td>
<td colspan="2"><input size="17" name="InvoiceNumber" value="<%=rs("InvoiceNumber")%>"></td>
</tr>
<tr>
<td width="63"><font size="2"><b>Account#</b></font></td>
<td colspan="2"><input size="13" name="AccountNumber" value="<%=rs("AccountNumber")%>"></td>
</tr>
<tr>
<td width="63"><font size="2"><b>Dept#</b></font></td>
<td colspan="2"><input size="8" name="DeptNumber" value="<%=rs("DeptNumber")%>"></td>
</tr>
<tr>
<td valign="top" width="63"><font size="2"><b>Reason</b></font></td>
<td colspan="2"><textarea name="reason" cols="40" rows="2"><%=rs("reason")%></textarea></td>
</tr>
<tr>
<td width="63"><font size="2"><b>SLMS#</b></font></td>
<td colspan="2">
<select name="SalesmanNumber">
<%strconn2 = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("..\MasterData.mdb")
set conn2 = server.createobject("adodb.connection")
conn2.open strconn2
set rs2 = server.createobject("adodb.recordset")
rs2.open "select SalesmanNumber from Q_SalesmanNumber", conn2, 2, 2
do while not rs2.eof%>
<option value="<%=rs2("SalesmanNumber")%>" <%if rs2("SalesmanNumber") = rs("SalesmanNumber") then%>selected<%end if%>><%=rs2("SalesmanNumber")%></option>
<%rs2.movenext
loop
conn2.close
set rs2 = nothing%>
</select>
</td>
</tr>
<tr>
<td width="63"><font size="2"><b>Writer#</b></font></td>
<td colspan="2">
<select name="WriterNumber">
<%strconn2 = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("..\MasterData.mdb")
set conn2 = server.createobject("adodb.connection")
conn2.open strconn2
set rs2 = server.createobject("adodb.recordset")
rs2.open "select WriterNumber from Q_WriterNumber", conn2, 2, 2
do while not rs2.eof%>
<option value="<%=rs2("WriterNumber")%>" <%if rs2("WriterNumber") = rs("WriterNumber") then%>selected<%end if%>><%=rs2("WriterNumber")%></option>
<%rs2.movenext
loop
conn2.close
set rs2 = nothing%>
</select>
</td>
</tr>
<tr>
<td width="63"><font size="2"><b>Sub?</b></font></td>
<td colspan="2"><font face="Tahoma">
<input type="radio"<%if rs("sub") = "YES" then%> checked<%end if%> value="YES" name="Sub" style="font-weight: 700"><b><font size="2">YES
</font></b>
<input type="radio"<%if rs("sub") = "NO" then%> checked<%end if%> name="Sub" value="NO" style="font-weight: 700"><b><font size="2">NO</font></b></font></td>
</tr>
<tr>
<td width="63"> </td>
<td width="82"><font size="2" color="#C0C0C0"><b>Sub MFG</b></font></td>
<td width="254"><input size="8" name="SubMFG" value="<%=rs("SubMFG")%>"></td>
</tr>
<tr>
<td width="63"> </td>
<td width="82"><font size="2" color="#C0C0C0"><b>Sub Stock#</b></font></td>
<td width="254"><input size="26" name="SubStockNumber" value="<%=rs("SubStockNumber")%>"></td>
</tr>
<tr>
<td colspan="3"> </td>
</tr>
<tr><td colspan="3"><input type="submit" value="Submit"> <a href="default.asp">CANCEL</a></td></tr>
</table></form>
<%elseif request("edit_exe") <> "" then%>
<%strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("..\MasterData.mdb")
set conn = server.createobject("adodb.connection")
conn.open strconn
set rs = server.createobject("adodb.recordset")
rs.open "select * from c1log WHERE id = " & request("edit_exe"), conn, 2, 2
rs("mfg") = request.form("mfg")
rs("StockNumber") = request.form("StockNumber")
rs("InvoceNumber") = request.form("InvoceNumber")
rs("AccountNumber") = request.form("AccountNumber")
rs("DeptNumber") = request.form("DeptNumber")
rs("reason") = request.form("reason")
rs("SalesmanNumber") = request.form("SalesmanNumber")
rs("WriterNumber") = request.form("WriterNumber")
rs("sub") = request.form("sub")
rs("SubMFG") = request.form("SubMFG")
rs("SubStockNumber") = request.form("SubStockNumber")
rs.update
conn.close
set rs = nothing
response.redirect "default.asp"
'Type mismatch error is pointing to this line here
elseif request("delete") <> "" then%>
<%strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("..\MasterData.mdb")
set conn = server.createobject("adodb.connection")
conn.open strconn
set rs = server.createobject("adodb.recordset")
rs.open "select * from c1log WHERE id = " & request("delete"), conn, 2, 2%>
<br><font face="arial" size="2">
<b>Are you sure you want to delete <%=rs("mfg")%>-<%=rs("StockNumber")%> from the C1 log?</b></font><br><br>
<a href="default.asp?delete_exe=<%=request("delete")%>">YES</a> <a href="default.asp">CANCEL</a>
<%conn.close
set rs = nothing%><%elseif request("delete_exe") <> "" then%><%strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("..\MasterData.mdb")
set conn = server.createobject("adodb.connection")
conn.open strconn
set rs = server.createobject("adodb.recordset")
rs.open "select * from c1log WHERE id = " & request("delete_exe"), conn, 2, 2
rs.delete
rs.update
conn.close
set rs = nothing
response.redirect "default.asp"%><%end if%>
Comment