---
title: "lösen till kunden"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/124629-lösen-till-kunden"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Ivar"
published: "2005-03-17T19:55:53.000Z"
updated: "2005-03-17T20:16:10.000Z"
replies: 2
views: 339
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/124629-lösen-till-kunden"
---

# lösen till kunden

## #1 — Ivar, 2005-03-17T19:55Z

\[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/\]

Permalänk: https://www.webforum.nu/p/124629

## #2 — joel_joel88, 2005-03-17T20:06Z

visa mer kod av mail scriptet

Permalänk: https://www.webforum.nu/p/1574205

## #3 — Ivar, 2005-03-17T20:16Z

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

Permalänk: https://www.webforum.nu/p/1574210

---

Tråden på webben: https://www.webforum.nu/amne/asp/124629-lösen-till-kunden