% On Error Resume Next StrError="None" schoolID=sanitizeRequest("_i","querystring") IF schoolID <> "" AND schoolID <> "0" AND IsNumeric(schoolID) THEN 'ok ELSE StrError="Invalid school ID" END IF useremail=sanitizeRequest("_e","querystring") IF useremail <> "" AND len(usermail) < 150 AND Instr(useremail, "@") > 0 THEN 'ok ELSE StrError="Invalid email address" END IF IF StrError <> "None" THEN response.write("ERROR||"&StrError) ELSE strEM="none" SET rsE = dbCBK.Execute("SELECT `contactname`, `email`, `acpwd` from cbk_school_users WHERE schoolID='"&schoolID&"' AND `email`='"&useremail&"' limit 1") IF rsE.EOF THEN strEM="none" END IF DO WHILE NOT rsE.EOF strCN=rsE("contactname") strEM=rsE("email") strEP=rsE("acpwd") rsE.MoveNext loop rsE.Close SET rsE = Nothing IF strEM <> "" AND strEP <> "" THEN strDCEP=CustDecodeAndDecrypt(strEP) body="
" body=body & "