<% Response.Buffer = true server.ScriptTimeout = 30 Set conn = Server.CreateObject("ADODB.Connection") conn.open "DSN=test1" 'patnow = left(now(),2) & mid(now(),9,2) response.buffer = true server.scripttimeout = 30 if session("papid") <> "" then pcnt = 2 else '===== COUNTER =========================== strCountFileName = Server.MapPath(Request.ServerVariables("SCRIPT_NAME") & ".cnt") Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objCountFile = objFSO.OpenTextFile(strCountFileName, 1, True) If Not objCountFile.AtEndOfStream Then iCount = CLng(objCountFile.ReadAll) Else iCount = 0 End If objCountFile.Close Set objCountFile = Nothing iCount = iCount + 1 Set objCountFile = objFSO.CreateTextFile(strCountFileName, True) objCountFile.Write iCount objCountFile.Close Set objCountFile = Nothing Set objFSO = Nothing session("papid") = "RollInt" & icount '==== END ============= 'Response.Write Session("papid") end if ' Set data = Server.CreateObject("ADODB.Recordset") 'SQLdel = "DELETE * FROM temporders WHERE left(patstamp,2) <'" & patnow & "'" 'data.Open SQLdel, Conn, 1, 3 'conn.Execute SQLdel Set conn2 = Server.CreateObject("ADODB.Connection") conn2.open "DSN=test" padescription = request("description") paprodid = request("prodid") paqty = request("qty") paprice = request("price") 'patxt = request("jimage") 'Delete Function============= if request("patrec") <> "" then patrec = request("patrec") Set data = Server.CreateObject("ADODB.Recordset") SQLdel = "DELETE * FROM temporders WHERE recnum = " & patrec data.Open SQLdel, Conn, 1, 3 conn.Execute SQLdel end if '============================ if paprodid <> "" then Set rs = Server.CreateObject("ADODB.Recordset") SQL = "SELECT * FROM temporders" rs.Open SQL, Conn, 3, 3 rs.addnew rs("customerid") = session("papid") rs("description") = padescription rs("prodid") = paprodid rs("qty") = paqty rs("price") = paprice 'rs("jimage") = patxt rs.update end if %> Rollersnakes Search