<% 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 %>'

<%response.end%>