Thanks!
Code:
<% @language="vbscript" %> <% Response.buffer = true %> <html> <head> <title> NC NE&P Panel Data</title> </head> <body background="\..\background.jpg"> <% '************************************************************
<% @language="vbscript" %> <% Response.buffer = true %> <html> <head> <title> NC NE&P Panel Data</title> </head> <body background="\..\background.jpg"> <% '************************************************************
locvar = Request.QueryString("loc") locCount = 1 Set MyConn = Server.CreateObject("ADODB.Connection") ' Establish the connection object MyConn.Open ("Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\Inetpub\wwwroot\paneldatatest\databases\FDPIN.mdb;Uid=;Pwd=niemtel;")
Public Function MakeNewLoc(ByVal loc As Variant) AS String
'UPDATE panel sqlUPDATE = "UPDATE panel SET PlantLoc = '" & newlocvar & "' WHERE PlantLoc = '" & locvar & "'" MyConn.Execute sqlUPDATE
<% @language="vbscript" %> <% Response.buffer = true %> <% '************************************************************ 'ADO is the keyword for google searches on help with DB stuff '************************************************************
locvar = Request.Form("loc") newlocvar = Request.Form("loc") locCount = 1 locSize = Request.Form("ps") locSize = Cint(locSize) Set MyConn = Server.CreateObject("ADODB.Connection") ' Establish the connection object MyConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\Paneldata\Databases\FDPIN.mdb;Jet
sqlUPDATE = "UPDATE panel SET key = " & newlocvar & " WHERE key = " & locvar MyConn.Execute sqlUPDATE
'UPDATE panel SET key = newlocvar WHERE key = locvar;
<% locvar = Request.Form("loc") newlocvar = Request.Form("loc") locCount = 1 locSize = Request.Form("ps")
Leave a comment: