Satan Reklam :: Linkler

<% Set objCn = Server.CreateObject ("ADODB.Connection") Set objRs = Server.CreateObject ("ADODB.Recordset") objCn.ConnectionString = "Data Source="& Server.MapPath("./cgi-bin/ercsr02.mdb") objCn.Provider = "Microsoft.JET.OLEDB.4.0" objCn.Open %> <%%> <% pagename="genel" %> <% message="" unutulan_username="" unutulan_password="" unutulan_email="" function errorcontrol() errorcontrol=false if trim(request("form_username"))="" then errorcontrol=true message="Lütfen Kullanıcı Adınızı giriniz!" exit function end if temp_username = replace(trim(request("form_username")),"'","''") sql = "SELECT * FROM CUSTOMERS WHERE USERNAME='"& temp_username &"'" objRs.Open sql,objCn,1,3 if objRs.EOF then message = "Kullanıcı Adı bulunamadı!" objRs.close errorcontrol=true exit function end if unutulan_username=objRs("USERNAME") unutulan_password=objRs("PASSWORD") unutulan_email=objRs("EMAIL") objRs.close End Function if request.form()<>"" then if errorcontrol() then %> <% else Set Mail = CreateObject("CDONTS.Newmail") if err.number = 0 then '***********SEND MAIL HERE********** Mail.BodyFormat = 0 Mail.MailFormat = 0 Mail.From = "info@satanreklam.com" Mail.To = unutulan_email Mail.Subject = "SATANREKLAM - Şifre Hatırlatma" Mail.Body = "kullanıcı adınız: " & unutulan_username & "

şifreniz: " & unutulan_password Mail.Send Set Mail = Nothing end if '********END SEND MAIL************** message="Şifreniz email adresinize gönderilmiştir." end if end if%> Satan Reklam :: Linkler