---
title: "Glömt ditt lösenord"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/12997-glömt-ditt-lösenord"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "loboz"
published: "2001-12-04T13:29:00.000Z"
updated: "2001-12-04T13:49:00.000Z"
replies: 3
views: 267
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/12997-glömt-ditt-lösenord"
---

# Glömt ditt lösenord

## #1 — loboz, 2001-12-04T13:29Z

Jag försöker hitta en asp-lösning för att ge besökare möjligheten att få sina användaruppgifter (anvnamn och lösenord) sig tillsända via e-post om de har glömt dessa.Användaruppgifterna finns i en databas (även deras e-post). Finns det någon smidig lösning för detta.

"Beginner"

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

## #2 — erka, 2001-12-04T13:30Z

Det är ju bara att göra ett forumlär där de får skriva in sin email adress sen kollar du i db:n om du hittar någon träff med en count på recordsettet, hittar du någon så ber du din mail komponent plocka ut email infon,användarinfon med lösenord och skickar iväg det till emailadressen.

Vad har du för mail komponent ?

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

## #3 — jorgen, 2001-12-04T13:40Z

Hej!

red: förutsätter att mailkomponenten är CDONTS ;)

```
<%
dim sql
dim RS
dim pass
dim user
dim email

sql = "SELECT [Password], Email, Username FROM user_table WHERE Email = '"& request.form("email") &"'"
Set RS = objDB.Execute(sql) 

'#-- om inte mailadressen fanns, skriv ut felmess --
If RS.EOF Then
Response.write "<p>Din E-Postadress var inte rätt!<br> Var god försök igen.</p>"
'#-- annars skicka uppgifterna --
Else
'#-- definera variablerna pass, email och user --
pass = RS("Password")
user = RS("Username")
email = RS("Email")
'#-- Hämta subben --

Call SendPW(pass, email, user)
Response.Write "<p>Vi har skickat dina användaruppgifter till dig.</p> " 

'#-- städa bort använda objekt --

RS.Close()
objDB.Close()
Set RS = Nothing
Set objDB = Nothing
End If

'#-- en subrutin som skickar uppgifterna med CDONTS --
dim cdoMail
Sub SendPW(pass, email, user)
Set cdoMail = Server.CreateObject("CDONTS.NewMail")
cdoMail.From = "somone@blaha.nu"
cdoMail.To = email
cdoMail.Subject = "Användaruppgifter"
cdoMail.body = "Ditt användarnamn: " & user & vbcrlf & "Lösenord: " & pass & vbcrlf & vbcrlf & "Var så god, här kommer dina beställda användaruppgifter"

cdoMail.Send
Set cdoMail = Nothing
End Sub
%>
```

mvh Jörgen :)

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

## #4 — loboz, 2001-12-04T13:49Z

Hej och tackar för svaren!

Jag har CDONTS Erka! Tyvärr är jag lite kass på hur jag skall få ihop hämtningen ut databasen med mailfunktionen:-)
\--------------------------------
Jörgen, du är alltid lika generös, tack för scriptet!
\--------------------------------

:-):-):-):-):-)(5 leenden av 5 möjliga)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/12997-glömt-ditt-lösenord