<% strID = request.querystring("id") if strID <> "" then lngID = sbDecrypt(strID) else lngID = "" end if if lngID <> "" then SQL = "SELECT isRegistered FROM Register WHERE ID=" & lngID set rs = createobject("ADODB.Recordset") rs.Open SQL, myDSN response.write rs(0) set rs=nothing else response.write "0" end if %>