---
title: "Glömt lösenordet (Jmail)"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/120596-glömt-lösenordet-jmail"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Sico"
published: "2005-01-20T12:20:47.000Z"
updated: "2005-01-20T19:14:05.000Z"
replies: 9
views: 394
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/120596-glömt-lösenordet-jmail"
---

# Glömt lösenordet (Jmail)

## #1 — Sico, 2005-01-20T12:20Z

Jag sökte här på forumet och fick mycket till hjälp men ändå klarar jag inte lösa problemet. 

```
If Request.QueryString("reqpass") = "req" Then 

If NOT Request.Form("missedEpost") = "" Then strEmail = Cstr(Request.Form("missedEpost"))

SQL = "SELECT f_User, f_Password, f_Mail FROM t_Members where f_Mail = '" & strEmail & "'"
set rs = Connect.Execute(SQL)

	[b]If LCase(rs("f_Mail")) =  LCase(strEmail) Then[/b]

	Set objJMail = Server.CreateObject("JMAIL.Message")
	objJmail.From = "sico_eo@hotmail.com"
	objJmail.FromName = "Badbet"
	objJmail.AddRecipient strEmail
	objJmail.Subject = "Begäran av lösenord"
	objJmail.Body = "meddelandet"
	objJmail.ContentType = "text/plain"
	objJmail.Send("xxx")
	Set objJmail = Nothing

	Response.Write "<b class=big>Dina uppgifter är skickade till din e-post.</b>"
	
	Else
		Response.Write "<b class=big>Det gick inte att hitta e-postadressen i databasen.</b><br>" &_
		"<a href='javascript:history.go(-1)'>Tillbaka</a>"
	End If

End If
```

> **error skrev:**
>
> error '80020009' 
> /login.asp, line 271

En mycket viktig funktion som måste funka i nuläget och jag har pillat med det gött länge men får det aldrig att funka.

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

## #2 — @nders, 2005-01-20T12:32Z

Du måste kontrollera att inte recordsetet är tomt innan du börjar använda värden från det.

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

## #3 — Sico, 2005-01-20T14:54Z

```
If Request.QueryString("reqpass") = "req" Then 

If NOT Isnull(Request.Form("missedEpost")) = "" Then strEmail = Cstr(Request.Form("missedEpost"))

SQL = "SELECT f_User, f_Password, f_Mail FROM t_Members where f_Mail = '" & strEmail & "'"
set rs = Connect.Execute(SQL)

If Not rs.EOF Then

	If LCase(rs("f_Mail")) =  LCase(strEmail) Then

	Set objJMail = Server.CreateObject("JMAIL.Message")
	objJmail.From = "sico_eo@hotmail.com"
	objJmail.FromName = "Badbet"
	objJmail.AddRecipient strEmail
	objJmail.Subject = "Begäran av lösenord"
	objJmail.Body = "meddelandet"
	objJmail.ContentType = "text/plain"
	objJmail.Send("xxx")
	Set objJmail = Nothing

	Response.Write "<b class=big>Dina uppgifter är skickade till din e-post.</b>"
	
	Else
		Response.Write "<b class=big>Det gick inte att hitta e-postadressen i databasen.</b><br>" &_
		"<a href='javascript:history.go(-1)'>Tillbaka</a>"
	End If
Else
		[b]Response.Write "<b class=big>Du måste ange en e-postadress.</b><br>" &_
		"<a href='javascript:history.go(-1)'>Tillbaka</a>"[/b]
End If
End If
```

Det spelar ingen roll om man lämnar formuläret tomt eller om e-posten är korrekt. den går till den markerade raden ändå :(

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

## #4 — @nders, 2005-01-20T14:57Z

Skriv då ut SQL-frågan och se om den ser ut som du förväntar dig.

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

## #5 — Sico, 2005-01-20T15:01Z

Den blir det jag skriver in i formuläret. Och jag vet att eposten finns i databasen.

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

## #6 — Sico, 2005-01-20T15:10Z

Ok, det va visst fel mail inskriven i databasen \*förlåt\* :( 
Den ger mig rätt svar om eposten hittas eller inte. Men jag får då inget mail skickat till inkorg. hmmm
Sidan ligger på loopia's server och dom har JMail är jag säker på. Rätt smtp-server är inskriven.

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

## #7 — Sico, 2005-01-20T15:42Z

Problemet löst, gjorde om hela jmail-biten. Tack ändå snabel

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

## #8 — @nders, 2005-01-20T17:25Z

> **Sico skrev:**
>
> Problemet löst, gjorde om hela jmail-biten. Tack ändå snabel

Jamen visa då! :)

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

## #9 — Sico, 2005-01-20T19:11Z

E du på mig nu igen :e

```
If Request.QueryString("reqpass") = "req" Then 

If NOT Isnull(Request.Form("missedEpost")) = "" Then strEmail = Cstr(Request.Form("missedEpost"))

SQL = "SELECT f_User, f_Password, f_Mail FROM t_Members where f_Mail = '" & strEmail & "'"
set rs = Connect.Execute(SQL)

If Not rs.EOF Then

	If LCase(rs("f_Mail")) =  LCase(strEmail) Then

	Set msg = Server.CreateObject("JMail.Message")
	msg.Logging = True
	msg.Silent = True
	msg.ContentType = "text/plain"
	msg.ISOEncodeHeaders = false

	msg.AddRecipient strEmail
	msg.From = "emil.olsson@badbet.se"
	msg.FromName = "Badbet.se"
	msg.Subject = "Begäran av lösenord"
	
	txtBody = "En begäran av användarnamn och lösenord har skickats." &_
		"" & VbCrLf & "" &_
	  	"Användarnamn: " & rs("f_User") & " " & VbCrLf & "" &_
	  	"Lösenord: " & rs("f_Password") & " " & VbCrLf & "http://www.badbet.se"

	msg.Body = txtBody
	msg.Send("xxx.xxx.xxx")
	
	Response.Write "<b class=big>Dina uppgifter är skickade till din e-post.</b>"

	
	End If
Else
		Response.Write "<b class=big>Det gick inte att hitta e-postadressen i databasen.</b><br>" &_
		"<a href='javascript:history.go(-1)'>Tillbaka</a>"
End If
End If
```

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

## #10 — @nders, 2005-01-20T19:14Z

> **Sico skrev:**
>
> E du på mig nu igen :e

Ja, ända tills du lär dig. :)

Bra att du fick ihop det! :)

Mvh

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/120596-glömt-lösenordet-jmail