| 
|
| |
From: "Joshua Krause"
Subject: Updating Databases
Date: Tue, 02 Apr 2002 06:04:35 -0800
| | ООО Парадис - Уничтожение вредных насекомых
I am having an issue when i goto modify or add an new entry using ASP and MS Access.
Here is my error:
Error Type:
Microsoft VBScript compilation (0x800A0401)
Expected end of statement
/newserver/IP Migration/writeto.asp, line 16, column 50
Here is a look at my script.
<%@ Language="VBScript" %>
<%
Set RRConn = Server.CreateObject("ADODB.Connection")
RRConnstring = "DSN=Contact; UID=; PWD="
RRConn.RRConnstring)
If Request.Form("Type") = "Delete" Then
Set rrRst = Server.CreateObject("ADODB.Recordset")
sqlstring = "DELETE FROM [Contact] WHERE [Contact_ID] =" & Request.Form("Contact")
rrRst.sqlstring, RRConn, 3, 3
RRConn.Close
Response.Write "<center><b>Record was deleted</center></b>"
End If
If Request.Form("Type") = "Modify" Then
Set rrRst = Server.CreateObject("ADODB.Recordset")
sqlstring = "UPDATE Contact " & "SET Account = " Request.Form("Account") & "WHERE ContactID = ''Contact_ID" & Request.Form("Contact") & "''"
rrRst.sqlstring, RRConn, 3, 3
rrRst.Fields("Account") = Request.Form("Account")
rrRst.Fields("Customer") = Request.Form("Customer")
rrRst.Fields("Street_Address") = Request.Form("Street_Address")
rrRst.Fields("Phone") = Request.Form("Phone")
rrRst.Fields("Batch") = Request.Form("Batch")
rrRst.Fields("Technical_Contact") = Request.Form("Technical_Contact")
rrRst.Fields("Email") = Request.Form("Email")
rrRst.Fields("Old_IP") = Request.Form("Old_IP")
rrRst.Fields("New_IP") = Request.Form("New_IP")
rrRst.Fields("MAC_Addy") = Request.Form("MAC_Addy")
rrRst.Fields("Node") = Request.Form("Node")
rrRst.Fields("CMTS") = Request.Form("CMTS")
rrRst.Fields("GW_IP") = Request.Form("GW_IP")
rrRst.Fields("Start") = Request.Form("Start")
rrRst.Fields("NAT_GW_IP") = Request.Form("NAT_GW_IP")
rrRst.Fields("Port_Fwds") = Request.Form("Port_Fwds")
rrRst.Fields("DHCP") = Request.Form("DHCP")
rrRst.Fields("Persistent_DHCP_or_Static_IP") = Request.Form("Persistent_DHCP_or_Static_IP")
rrRst.Fields("Notes") = Request.Form("Notes")
rrRst.Fields("Updated_by") = Request.Form("Updated_by")
rrRst.Fields("Date_Updated") = Request.Form("Date_Updated")
rrRst.Update
rrRst.Close
'' Set MyRst = Nothing
RRConn.Close
''Set MyConn = Nothing
Response.Write "<b><center>Record was modified</center></b>"
End If
If Request.Form("Type") = "Add" Then
Set rrRst = Server.CreateObject("ADODB.Recordset")
sqlstring = "SELECT * FROM [Contact] "
rrRst.sqlstring, RRConn, 3, 3
rrRst.AddNew
rrRst.Fields("Account") = Request.Form("Account")
rrRst.Fields("Customer") = Request.Form("Customer")
rrRst.Fields("Street_Address") = Request.Form("Street_Address")
rrRst.Fields("Phone") = Request.Form("Phone")
rrRst.Fields("Batch") = Request.Form("Batch")
rrRst.Fields("Technical_Contact") = Request.Form("Technical_Contact")
rrRst.Fields("Email") = Request.Form("Email")
rrRst.Fields("Old_IP") = Request.Form("Old_IP")
rrRst.Fields("New_IP") = Request.Form("New_IP")
rrRst.Fields("MAC_Addy") = Request.Form("MAC_Addy")
rrRst.Fields("Node") = Request.Form("Node")
rrRst.Fields("CMTS") = Request.Form("CMTS")
rrRst.Fields("GW_IP") = Request.Form("GW_IP")
rrRst.Fields("Start") = Request.Form("Start")
rrRst.Fields("NAT_GW_IP") = Request.Form("NAT_GW_IP")
rrRst.Fields("Port_Fwds") = Request.Form("Port_Fwds")
rrRst.Fields("DHCP") = Request.Form("DHCP")
rrRst.Fields("Persistent_DHCP_or_Static_IP") = Request.Form("Persistent_DHCP_or_Static_IP")
rrRst.Fields("Notes") = Request.Form("Notes")
rrRst.Fields("Updated_by") = Request.Form("Updated_by")
rrRst.Fields("Date_Updated") = Request.Form("Date_Updated")
rrRst.Update
rrRst.Close
''Set MyRst = Nothing
RRConn.Close
''Set MyConn = Nothing
Response.Write"<center><b>Record was added</b></center>"
End If
''MyConn.Close
''Set MyConn = Nothing
%>
<html>
<head>
<title>Write to DB</title>
</head>
<body bgcolor="white">
<p align="center">Please Follow Link back to welcome page </p>
<p align="center"> </p>
<p align="center"><a href="welcome.asp">Home</a></p>
</body>
</html>
-----------------------------
This message is posted by http://asp.forumszone.com
| | Post a follow up to this message... |
| |
|
