Type mismatch pointing to blank line?

[crookward]

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

<%
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&nbsp;&nbsp;
        </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">&nbsp;</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">&nbsp;</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">&nbsp;</td>
      </tr>
      <tr><td colspan="3"><input type="submit" value="Submit">&nbsp;&nbsp;<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&nbsp;&nbsp;
        </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">&nbsp;</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">&nbsp;</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">&nbsp;</td>
      </tr>
      <tr><td colspan="3"><input type="submit" value="Submit">&nbsp;&nbsp;<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>&nbsp;&nbsp;<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%>
 

[crookward]

Doh, nevermind. I was using MS FrontPage validation on some of the fields and it was throwing everything all outta wack. Thanks anyways! :D