% strID = request.querystring("id") if strID <> "" then lngID = sbDecrypt(strID) else lngID = "" end if if lngID <> "" then SQL = "SELECT * FROM Register WHERE ID=" & lngID set rs = createobject("ADODB.Recordset") rs.Open SQL, myDSN name = rs("name") email = rs("email") set rs = nothing if name = "" and email <> "" then name=email elseif name = "" and email = "" then response.redirect "download_your_free_trial.asp" end if else response.redirect "download_your_free_trial.asp" end if %>
![]()
|
||||
|
|