streborr
IS-IT--Management
- Jan 16, 2002
- 98
I can't update my db:
<%
dim dbc, strConn, rs, sql
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\fpdb\leadinput.mdb;User ID=;Password=;"
Set dbc = Server.CreateObject("ADODB.Connection"
set dbc.connectionstring = strConn
dbc.open
set rs = Server.CreateObject("ADODB.Recordset"
rs.locktype = 3
rs.cursortype = 1
sql = "UPDATE Distributors SET dist_no = '" & dist_no & "', dist_name = '" & dist_name & "', dist_addr1 = '" & dist_Addr1 & "', "
sql = sql & "dist_Addr2 = '" & dist_addr2 & "', dist_city = '" & dist_city & "', dist_state = '" & dist_state & "', "
sql = sql & "dist_Zip = '" & dist_Zip & "', dist_region = '" & dist_region & "', dist_parent = '" & dist_parent & "', "
sql = sql & "WHERE dist_name ='" & dist_name & "'"
rs.Execute sql
rs.close
set rs = nothing
set dbc = nothing
response.redirect "distadmin.asp"
%>
Any Ideas?
Thanks
<%
dim dbc, strConn, rs, sql
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\fpdb\leadinput.mdb;User ID=;Password=;"
Set dbc = Server.CreateObject("ADODB.Connection"
set dbc.connectionstring = strConn
dbc.open
set rs = Server.CreateObject("ADODB.Recordset"
rs.locktype = 3
rs.cursortype = 1
sql = "UPDATE Distributors SET dist_no = '" & dist_no & "', dist_name = '" & dist_name & "', dist_addr1 = '" & dist_Addr1 & "', "
sql = sql & "dist_Addr2 = '" & dist_addr2 & "', dist_city = '" & dist_city & "', dist_state = '" & dist_state & "', "
sql = sql & "dist_Zip = '" & dist_Zip & "', dist_region = '" & dist_region & "', dist_parent = '" & dist_parent & "', "
sql = sql & "WHERE dist_name ='" & dist_name & "'"
rs.Execute sql
rs.close
set rs = nothing
set dbc = nothing
response.redirect "distadmin.asp"
%>
Any Ideas?
Thanks