<% Dim Comm EnqID = request.querystring("ID") Nme = request.querystring("LNme") EStat = request.form("EnquiryStat") response.write EStat if EStat = "New" then EStat ="Open" else EStat = EStat end if OldComm = request.form("OldComments") Dim NewComm NewComm = request.form("ClosingComments") Dte = request.form("TxtDte") if NewComm ="" then Comm = OldComm else Comm = OldComm & "
" & Dte & NewComm end if Phonefolow = request.form("PhoneFollowup") OldPhoneFollow = request.form("OldPhneComments") if Phonefolow = "" then PhneFol = OldPhoneFollow else PhneFol = OldPhoneFollow & "
" & Dte & Phonefolow end if 'response.end '--------Initiliasing variables------------------- Dim AdoCon Dim RsSearch Dim SQLProj Dim RsPrc Dim SQLPrc '------Create Connection----------------------------------- Set AdoCon = server.createobject("ADODB.CONNECTION") AdoCon.Open "Driver={MICROSOFT ACCESS DRIVER (*.mdb)};DBQ=" & server.mappath("/DB/fh.mdb") Set RsChck = server.createobject("ADODB.RECORDSET") '--------------- SQL Statements ------------------- SQLChck = "update enquiries set enquirystatus='" & EStat &"',closingcomments='" & Comm & "',phonefollow='" & PhneFol & "' where EnquiryID=" & EnqID 'response.write SQLChck 'response.end '---------------------------------------------------------------- RsChck.Open SQLChck,AdoCon,3,3 response.redirect "salesviewenquiry.asp?LNme=" & Nme %> New Page 3

see all