Error:
Microsoft VBScript compilation error '800a0401'
Expected end of statement
/test/ADO/demo_add.asp, line 15
sql=sql & "'" & Request.Form("country") & "')"on error resume next
----------------------------------------------^
Form code:
[HTML]<html>
<body><form method="post" action="demo_add.asp">
<table>
<tr>
<td>CustomerID:</td>
<td><input name="custid"></td>
</tr><tr>
<td>Company Name:</td>
<td><input name="compname"></td>
</tr><tr>
<td>Contact Name:</td>
<td><input name="contname"></td>
</tr><tr>
<td>Address:</td>
<td><input name="address"></td>
</tr><tr>
<td>City:</td>
<td><input name="city"></td>
</tr><tr>
<td>Postal Code:</td>
<td><input name="postcode"></td>
</tr><tr>
<td>Country:</td>
<td><input name="country"></td>
</tr>
</table>
<br /><br />
<input type="submit" value="Add New">
<input type="reset" value="Cancel">
</form></body>
</html>
[/HTML]
Submit code:
Expand|Select|Wrap|Line Numbers
- <html>
- <body><%
- set conn=Server.CreateObject("ADODB.Connection")
- conn.Provider="Microsoft.Jet.OLEDB.4.0"
- conn.Open "/test/fpdb/northwind.mdb"
- sql="INSERT INTO customers (customerID,companyname,"
- sql=sql & "contactname,address,city,postalcode,country)"
- sql=sql & " VALUES "
- sql=sql & "('" & Request.Form("custid") & "',"
- sql=sql & "'" & Request.Form("compname") & "',"
- sql=sql & "'" & Request.Form("contname") & "',"
- sql=sql & "'" & Request.Form("address") & "',"
- sql=sql & "'" & Request.Form("city") & "',"
- sql=sql & "'" & Request.Form("postcode") & "',"
- sql=sql & "'" & Request.Form("country") & "')"on error resume next
- conn.Execute sql,recaffected
- if err<>0 then
- Response.Write("No update permissions!")
- else
- Response.Write("<h3>" & recaffected & " record added</h3>")
- end if
- conn.close
- %>
- </body>
- </html>