<% a = request.form("chprod")
b = request.form("chname")
c = request.form("chdesc")
d = request.form("chnum")
e = request.form("chdate")
f = request.form("chcost")
g = request.form("cheff")
' response.write "a " & a
%>
<% ' THIS IS ASP CODE FOR A DSN-LESS CONNECTION (DSN = data source name)
dim conntemp, rstemp 'Declare all variables
accessdb="fgp1.mdb" 'Specify Database, Driver, path...
myDSN="DRIVER={Microsoft Access Driver (*.mdb)};" ' MS Access driver
myDSN=myDSN & "DBQ=" & server.mappath(accessdb) ' Map path to DB
mySQL="UPDATE Test1 "
mySQL=mySQL & " SET RDrugMedNm = '" & b & "',"
mySQL=mySQL & " RDrugDesc = '" & c & "',"
mySQL=mySQL & " RSerialNum = '" & d & "',"
mySQL=mySQL & " RDrugBeginOffer = '" & e & "',"
mySQL=mySQL & " RDrugCostPP = '" & f & "',"
mySQL=mySQL & " RDrugEffects = '" & g & "' "
mySQL=mySQL & " WHERE RDrugComNm = '" & a & "';"
'response.write mySQL
set conntemp=server.createobject("adodb.connection") 'Set a temporary connection (conntemp)
conntemp.open myDSN 'Open the connection
set rstemp=conntemp.execute(mySQL) 'Exec SQL and count fields - build a temporary recordset (rstemp)
%>
Change completed successfully for product '<% response.write " " & a %>'