webForumDet fria alternativet

lösen till kunden

ASP

2 svar · 329 visningar · startad av Ivar

Medlem sedan aug. 2002218 inlägg
Frågan#1

[kod]
<form name="form1" method="post" action="posta.asp” onSubmit="return telluser1();" >

      \<input name="glomt" type="text"  size="25"\>          
                
      \<input name="Submit" type="submit" value="Skicka!"\>

</form>

Posta.asp

Dim connect, query, senaste
set connect = server.createobject("ADODB.connection")
Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/db/annonser.mdb") & ";pwd=;"
Set senaste = Server.CreateObject("ADODB.Recordset")
query = "SELECT * FROM mak WHERE email='"&Request("glomt")&"'"
senaste.Open query, Connect, 1, 3

If senaste.EOF Then

'## -- användarnamn upptaget --
Response.Redirect "ejgod.asp"

Else
senderEmail = Request.Form("glomt")
password =senaste("password")
email = senaste("email")

Fortsätter mail scriptet………

Hur fixa? att inte fel lösen skickas till användaren?
I vissa fall kunden annonserar fler gånger med samma e-postadress men anger olika lösenord
Som det är nu skickas fel lösen till kunden.
[kod/]

Medlem sedan nov. 20021 222 inlägg
#2

visa mer kod av mail scriptet

Medlem sedan aug. 2002218 inlägg
#3

SenderEmail = "e-post"
Subject = "lozinka"

strContent = ""&_
"Poveli!"&vbcrlf &""&vbcrlf &" Vashata lozinka e: [ " & password & " ]"&vbcrlf &""&vbcrlf &" Pozdrav "&vbcrlf &"www.stuffmarket.nu/makedonia"
Set oMail = CreateObject("CDONTS.NewMail")
oMail.From = senderEmail
oMail.To = email
oMail.BCC = "e-post"
oMail.Subject = subject
oMail.BodyFormat = 1
oMail.MailFormat = 0
oMail.Body = strContent
oMail.Send

Set oMail = Nothing

End if

senaste.Close
Connect.Close
Set senaste = nothing
Set Connect = nothing

267 ms totalt · 4 externa anrop · v20260731065814-full.a51de22e
114 ms — deklarationer (db)
0 ms — hämta statistik (cache)
119 ms — hämta tråd, inlägg och bilagor (db)
133 ms — ändringar (db)