---
title: "Glömt lösen skickas till mail"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/66672-glömt-lösen-skickas-till-mail"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Gimbo"
published: "2003-01-30T23:00:45.000Z"
updated: "2003-02-01T19:54:49.000Z"
replies: 16
views: 447
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/66672-glömt-lösen-skickas-till-mail"
---

# Glömt lösen skickas till mail

## #1 — Gimbo, 2003-01-30T23:00Z

Hejsan!

Håller på och testar hur det går till att bara fylla i sitt mail och då få mailet skickat till sin mail... har denna kod men den klagar på object krävs 'RSTemp'

det verkar som att den inte kopplas till databasen så här ser i a f koden ut:

```
<% If request.querystring("do") = "losen" then 
on error resume next

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "DRIVER=Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source="&server.mappath("databasem.mdb")
If Not Isnull(Request.Form("Email")) Then strEmail = Cstr(Request.Form("Email"))

mySQL = "SELECT name, losen, email FROM customers where email = '" &strEmail& "'"
set RSTemp = Connect.execute(mySQL)

	Set CDOMail = Server.CreateObject("CDONTS.NewMail")
	CDOMail.From = "losenord@blabla.com"
	CDOMail.To = RSTemp("f_Mail")
	CDOMail.Subject = "Ditt lösenord är = " &RSTemp("losen")& ""
	CDOMail.Body = "Ditt lösenord"
	CDOMail.Send
	If error.number <> 0 Then
	Response.Write "Lösenordet finn i din mail"
	Else
	Response.Write "Den angivna mailen finns ej registrerad"
	End If
	Set CDOMail = Nothing

End If
RSTemp.close
set RSTemp = nothing
connect.close
set connect = nothing
%>
```

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

## #2 — OveRRidE, 2003-01-31T00:10Z

Posten 'f_mail' som du försökte anropa finns inte i urvalet du gör mot databasen. Jag bytte namn på den. 

Tog bort on error resume next också, det är inte bra att ha i felsökningssyfte. 

```
<% If request.querystring("do") = "losen" then 

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "DRIVER=Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source="&server.mappath("databasem.mdb")
If Not Isnull(Request.Form("Email")) Then strEmail = Cstr(Request.Form("Email"))

mySQL = "SELECT name, losen, email FROM customers where email = '" &strEmail& "'"
set RSTemp = Connect.execute(mySQL)

	Set CDOMail = Server.CreateObject("CDONTS.NewMail")
	CDOMail.From = "losenord@blabla.com"
	[red]CDOMail.To = RSTemp("email")[/red]
	CDOMail.Subject = "Ditt lösenord är = " &RSTemp("losen")& ""
	CDOMail.Body = "Ditt lösenord"
	CDOMail.Send
	If error.number <> 0 Then
	Response.Write "Lösenordet finn i din mail"
	Else
	Response.Write "Den angivna mailen finns ej registrerad"
	End If
	Set CDOMail = Nothing

End If
RSTemp.close
set RSTemp = nothing
connect.close
set connect = nothing
%>
```

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

## #3 — Gimbo, 2003-01-31T09:13Z

nu får jag detta felmeddelande:

```
Server object error 'ASP 0177 : 800401f3' 

Server.CreateObject Failed 

/glomtlosen.asp, line 41
```

flet pekar på raden:

Set CDOMail = Server.CreateObject("CDONTS.NewMail")

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

## #4 — @nders, 2003-01-31T09:16Z

Är det lokalt eller hos webhotellet?
Vilket OS?

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

## #5 — Gimbo, 2003-01-31T09:18Z

det är hos webhotellet (digikom), får detta meddelande när jag kör det loklat winXP som OS:

```
Feltyp:
Serverobjekt, ASP 0177 (0x800401F3)
Ogiltig klassträng
```

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

## #6 — @nders, 2003-01-31T09:21Z

CDONTS finns inte i Windows XP, därav min fråga. Kontrollera med Digikom då, så att de inte lyft bort CDONTS.

\*famlar i mörkret\*

Mvh,

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

## #7 — Gimbo, 2003-01-31T09:26Z

hoppsan, d verkar som att de inte har det, de använder sig utav Jmail eller dynumail, hur kan man göra detta med Jmail??

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

## #8 — @nders, 2003-01-31T09:27Z

Det, min vän, finner du om du söker. ;-)

Mvh,

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

## #9 — Gimbo, 2003-01-31T09:48Z

ok, har gjort detta nu:

```
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "DRIVER=Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source="&server.mappathdatabase.mdb")
If NOT Request.Form("Email") = "" Then strEmail = Cstr(Request.Form("Email"))
else
response.write "du måste ange ngt"
end if
mySQL = "SELECT name, losen, email FROM customers where email = '" &strEmail& "'"

set RSTemp = Connect.execute(mySQL)

subject = "Ditt Lösenord"
recipient = strEmail
body = "Ditt lösenord är '" &RSTemp("losen")& "' "

' Skapar en koppling till JMail
set msg = Server.CreateOBject( "JMail.Message" )

msg.Logging = true
msg.silent = true

msg.From = senderEmail
msg.FromName = name

msg.AddRecipient recipient

msg.Subject = subject

msg.body = body

if not msg.Send("mail.server" ) then
Response.write "<pre>" & msg.log & "</pre>"
else
Response.write "Ditt meddelandet skickades! "
end if 

RSTemp.close
set RSTemp = nothing
connect.close
set connect = nothing
```

får felmeddelandet:

```
Microsoft VBScript runtime error '800a01a8' 
Object required: '' 
/glomtLosen.asp, line 37
```

dvs raden:
set RSTemp = Connect.execute(mySQL)

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

## #10 — Gimbo, 2003-01-31T17:40Z

någon?

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

## #11 — @nders, 2003-01-31T18:20Z

Jag vet inte om det har med felmeddelandet att göra, men flukta in det fetstilta. Det är *nog* fel.

```
Connect.Open "DRIVER=Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=[b]"&server.mappathdatabase.mdb"[/b])
```

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

## #12 — Gimbo, 2003-02-01T18:41Z

det var det ena, nu får jag det att skickas dvs det står:
"Ditt meddelandet skickades!"
men när jag kollar i min mail så får jag inget

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

## #13 — solbulle, 2003-02-01T18:54Z

Jag ser iofs inte att du skickar mailet någonstans?

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

## #14 — Gimbo, 2003-02-01T19:21Z

man anger sin email först i en textfield som heter Email, därefter läser jag in den i strEmail och mailet är tänkt att skickas till det angivna mailet så som koden visar:

```
recipient = strEmail
```

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

## #15 — solbulle, 2003-02-01T19:43Z

Jo, men ska du inte skicka mailet också, eller kanske jag som missar något.

```
msg.Send("mail.server")
```

Där mail.server är en fungerande mailserver?

RED. Kanske inte iofs...

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

## #16 — solbulle, 2003-02-01T19:50Z

Sen måste väl även senderEmail vara en giltig epostadress.

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

## #17 — Gimbo, 2003-02-01T19:54Z

fan va dum jag är, man tackar och bockar det funkade nu!

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/66672-glömt-lösen-skickas-till-mail