DB PROBLEM

<i><b>Originally posted by : chris (christohales@aol.com)</b></i><br /><br />Hi<br />If any one wants to help,<br />I really dont know how to get the following code to put values into the database. I know i have to use a record set to SELECT the value from the db, but this is as far as i get with the code and am completely stumped. Can anyone tell me what is wrong with the code and show me, simply, how to correct it<br /><br />Thanks chaps <br /><br /><%<br />varCustID= request.form("txtCustomerEmail")<br /><br />dim oRSs<br />dim oRSi<br />dim strInsert<br />dim strValues<br />dim objConn<br />dim objCmds<br />dim objCmd<br />dim strSelect<br /><br />Set oRSs=Server.CreateObject("ADODB.Recordset")<br />sqltext = "SELECT toolHired1 FROM Tools;"<br /><br />set oRSi=Server.CreateObject("ADODB.recordset")<br />oRSi.open "Reserved", "DSN=Tools"<br /><br />Set objConn = Server.CreateObject("ADODB.Connection")<br />objConn.Open "DSN=Tools"<br /><br />Set objCmds = Server.CreateObject("ADODB.Command")<br />objCmds.CommandText = strSelect<br />Set objCmds.ActiveConnection = objConn<br /><br />Set objCmd = Server.CreateObject("ADODB.Command")<br />objCmd.CommandText = strInsert<br />Set objCmd.ActiveConnection = objConn<br /><br />If Request.Form("Action") = "Add" Then<br /> oRSr.Open sqlText, "DNS=Tools"<br /> If oRSs ("toolHired1") = NULL then<br /> strInsert = "UPDATE Reserved SET toolID = 8, toolHired1 = 'Planer' WHERE customerEmail ='" & varCustID & "';"<br /> objCmd.Execute<br /> End If<br />End If<br /><br />Set objCmd = Nothing<br />Set objConn = Nothing<br />%>