<% dim email, login, password, objRS, strSQL, objCom, stype, objCon, temppass ' stype=0 first request; stype=1 confirm request email = request.form("email") stype = request("stype") if len(email)<>0 and stype = 0 then response.write(OutputCSS()) dim senderE,senderN,mailTo,mailCC,mailBCC,subject,body temppass = rndPasswd(7) Set objCom = server.createobject("adodb.command") with objCom .activeconnection = datastore '.commandTimeout = 200 .commandText = dbOwnerPrefix&"spRequestPass" .commandType = adCmdStoredProc .Parameters.Append .Createparameter("@RETURN_VALUE", adInteger, adParamReturnValue, 0 ) .parameters.append .Createparameter ("@in_email", adVarChar, adParamInput, 50, email) .parameters.append .Createparameter ("@in_temppass", adVarChar, adParamInput, 50, temppass) .parameters.append .Createparameter ("@out_login", adVarChar, adParamOutput, 50) Set objRS = .execute if not (objRS.EOF or objRS.BOF) then Body = objRS("passconfirm").value objRS.close Set objRS = nothing login = .Parameters("@out_login") end with Set objCom = nothing if isnull(login) then response.write (lostPassEmailNotFound) response.end end if Body = replace(Body,"#login#", login) Body = replace(Body,"#confirmlink#", forumdir&_ "confirmation.asp?stype=4&email="&Email&"&sid="&tempPass) Body = replace(Body,"#confirmlinkalt#", forumdir&_ "confirmation.asp?stype=4") Body = replace(Body,"#email#", Email) Body = replace(Body,"#temppass#", tempPass) Body = replace(Body,"#forumtitle#", Application(dbName&"ForumTitle")) Body = replace(Body,"#forumdir#", forumdir) Body = replace(body,"#today#",SQLdate(SQLNowDate(), Application(dbName&"timeoffset"), true)) subject = split(body,vbcrlf)(0) body = replace(body,subject&vbcrlf,"",1,1,vbBinaryCompare) senderE = Application(dbName&"adminEmail") senderN = Application(dbName&"ForumTitle") mailTo = email mailCC = "" mailBCC= "" call mailRoutine(senderE,senderN,mailTo,mailCC,mailBCC,subject,body) response.write ("

"&lostPassSentDesc&"

"&email&"

") response.end end if %> <%= Application(dbName&"forumtitle") %> <%= OutputCSS() %> style="margin:0px 0px 0px 0px">
<%= lostPassDesc %>
>