save2.asp

<!--#include file="../../SQLconn.asp" -->

<% Response.Expires = 0 %>
<%
function IsNotNumeric(pStr, pDefaultValue)
 dim sTemp
 sTemp = pStr
 if isNuLL(sTemp) OR sTemp = "" OR not isNumeric(sTemp) then
  sTemp = pDefaultValue
 end if
 IsNotNumeric = sTemp
end function

UserID__MMColParam = IsNotNumeric(Request("UI"),0)
val = Request("val")

Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = conn
Recordset1.Source = "UPDATE USERID SET DealtWith = "& val &" WHERE UI = "& UserID__MMColParam
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>
<%
conn.close
set conn=nothing
%>