---
title: "Skicka glömda uppgifter, funkar detta?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/43492-skicka-glömda-uppgifter-funkar-detta"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "bigsky"
published: "2002-05-11T00:25:37.000Z"
updated: "2002-05-11T16:31:02.000Z"
replies: 20
views: 468
page: 1
pages: 2
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/43492-skicka-glömda-uppgifter-funkar-detta"
---

# Skicka glömda uppgifter, funkar detta?

_Sida 1 av 2._

## #1 — bigsky, 2002-05-11T00:25Z

Kommer denna kod att fungera? Tanken är att den ska skicka iväg uppgifterna som finns i databasen om den e-post man matar i på sidan innan stämmer med den som redan finns i databasen. Dock ska databasen uppdateras med ett nytt lösenord innan uppgifterna skickas med. Det nya lösenordet ska alltså vara det som man ser i det e-postmeddelande man får. Gulp, behöver hjälp nu...

\<%@ LANGUAGE="VBSCRIPT" %\>
\<!-- #include file="../adovbs.inc" --\>
\<!-- #include file="../sendlostuserinfoconn.asp" --\>
\<%  Set RecSet = Server.CreateObject("ADODB.Recordset")
	FindEmail = "SELECT Username, Password, Email FROM users"
	
	RecSet.Open FindEmail, Connect, adOpenStatic, adLockOptimistic
	
	Do Until RecSet.EOF
    
	If RecSet("Email") = Request.Form("email") Then
	
	memberemail = RecSet("Email")
	memberusername = RecSet("Username")
	memberpassword = RecSet("Password")
	
    Passwordeller = ""
    
    Randomize
    
    For i = 1 to 10
    intNum = Int(10 \* Rnd + 48)
    intBig = Int(26 \* Rnd + 65)
    intSmall = Int(26 \* Rnd + 97)
    intRand = Int(3 \* Rnd + 1)
    
    Select Case intRand
    Case 1
    delPasseller = Chr(intNum)
    Case 2
    delPasseller = Chr(intBig)
    Case 3
    delPasseller = Chr(intSmall)
    End Select
    
    Passwordeller = Passwordeller & delPasseller
    
    Next
	
	RecSet("Email")	= Passwordeller
    RecSet.Update
	
	Dim objMail
	Set objMail = Server.CreateObject("CDONTS.NewMail")
    
	objMail.From = "something@email.com"
	objMail.Subject = "Your username and new password"
	objMail.To = " " & memberemail & " "
	objMail.Bcc = "soemthingelse@email.com"
	objMail.Body = "Your member ID: = " & memberusername & " " & vbcrlf&\_
	"Your password: = " & memberpassword & " " & vbcrlf & vbcrlf&\_
	"MVH Supporten" & vbcrlf&\_
	MailObj.BodyFormat = 1
	MailObj.MailFormat=1
	objMail.Send
	Set objMail = Nothing
	
	Else
	Response.Redirect "helpdesk.asp"
	
	End If
    RecSet.MoveNext
    Loop
	
	RecSet.Close
	Connect.Close
	
	Set RecSet = Nothing
    Set Connect = Nothing
	
    Response.Redirect "../default.asp" %\>

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

## #2 — icaaq, 2002-05-11T08:22Z

Testa .... ;)

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

## #3 — icaaq, 2002-05-11T11:12Z

```
[red]
<%
'div anslutningar till databasen....
strSQL = "SELECT Username, [Password], Email FROM users WHERE Email = "&Trim(Request.Form("email"))
Set objRS = Connect.execute(strSQL)
If objRS.EOF Then
	Response.Redirect "helpdesk.asp"
Else
    Randomize
    
    For i = 1 to 10
		intNum = Int(10 * Rnd + 48)
		intBig = Int(26 * Rnd + 65)
		intSmall = Int(26 * Rnd + 97)
		intRand = Int(3 * Rnd + 1)
    
		Select Case intRand
		Case 1
			delPasseller = Chr(intNum)
		Case 2
			delPasseller = Chr(intBig)
		Case 3
			delPasseller = Chr(intSmall)
		End Select
    
			Passwordeller = Passwordeller & delPasseller
    
    Next
    
    strUpd = "UPDATE users SET [Password] = "&Passwordeller&" WHERE Email = "&Trim(Request.Form("email"))
    Connect.execute(strUpd),,128
    
    Dim objMail
	Set objMail = Server.CreateObject("CDONTS.NewMail")
    
	objMail.From = "something@email.com"
	objMail.Subject = "Your username and new password"
	objMail.To = " " & memberemail & " "
	objMail.Bcc = "soemthingelse@email.com"
	objMail.Body = "Your member ID: = " & memberusername & " " & vbcrlf&_
	"Your password: = " & memberpassword & " " & vbcrlf & vbcrlf&_
	"MVH Supporten" & vbcrlf&_
	MailObj.BodyFormat = 1
	MailObj.MailFormat=1
	objMail.Send
	Set objMail = Nothing
	
	Connect.Close
	Set Connect = Nothing
	
	Response.Redirect "../default.asp"
End If

%>
[/red]
```

Så här kanske .........

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

## #4 — bigsky, 2002-05-11T12:49Z

Nej, man kommer bara till helpdesk.asp hela tiden, oavsett om e-postadressen finns i DBn eller inte.

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

## #5 — icaaq, 2002-05-11T12:52Z

Skriv ut SQL-satsen med Response.Write...

```
[red]
Response.Write strSQL
[/red]
```

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

## #6 — bigsky, 2002-05-11T12:56Z

Vart?

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

## #7 — icaaq, 2002-05-11T12:58Z

```
[red]
<%
'div anslutningar till databasen....
strSQL = "SELECT Username, [Password], Email FROM users WHERE Email = "&Trim(Request.Form("email"))
[b]Response.Write strSQL
Response.End[/b]
Set objRS = Connect.execute(strSQL)
If objRS.EOF Then
	Response.Redirect "helpdesk.asp"
Else
    Randomize
    
    For i = 1 to 10
		intNum = Int(10 * Rnd + 48)
		intBig = Int(26 * Rnd + 65)
		intSmall = Int(26 * Rnd + 97)
		intRand = Int(3 * Rnd + 1)
    
		Select Case intRand
		Case 1
			delPasseller = Chr(intNum)
		Case 2
			delPasseller = Chr(intBig)
		Case 3
			delPasseller = Chr(intSmall)
		End Select
    
			Passwordeller = Passwordeller & delPasseller
    
    Next
    
    strUpd = "UPDATE users SET [Password] = "&Passwordeller&" WHERE Email = "&Trim(Request.Form("email"))
    Connect.execute(strUpd),,128
    
    Dim objMail
	Set objMail = Server.CreateObject("CDONTS.NewMail")
    
	objMail.From = "something@email.com"
	objMail.Subject = "Your username and new password"
	objMail.To = " " & memberemail & " "
	objMail.Bcc = "soemthingelse@email.com"
	objMail.Body = "Your member ID: = " & memberusername & " " & vbcrlf&_
	"Your password: = " & memberpassword & " " & vbcrlf & vbcrlf&_
	"MVH Supporten" & vbcrlf&_
	MailObj.BodyFormat = 1
	MailObj.MailFormat=1
	objMail.Send
	Set objMail = Nothing
	
	Connect.Close
	Set Connect = Nothing
	
	Response.Redirect "../default.asp"
End If

%>
[/red]
```

Så här kanske .........

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

## #8 — bigsky, 2002-05-11T13:23Z

Ja, den skrivs ju ut då, men nåt annat händer ju inte. Vad konstigt? Varför funkar det inte, bah.

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

## #9 — solbulle, 2002-05-11T14:14Z

Hur blev då utskriften?

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

## #10 — bigsky, 2002-05-11T14:18Z

SELECT Username, Password, Email FROM users WHERE Email = ''

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

## #11 — solbulle, 2002-05-11T14:22Z

mao får du inte med någon info från formuläret.

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

## #12 — bigsky, 2002-05-11T14:26Z

Nej, om jag inte använder response som i den första koden han skickade (iccaq) så kommer man bara till helpdesk.asp, men nåt mail skickas inte.

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

## #13 — solbulle, 2002-05-11T14:29Z

Men... om du när du skriver ut din sqlsats och den blir som du skriver måste ju Request.Form("email") vara tom.
Har du ett värde där i och rätt namn i formuläret?

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

## #14 — LarsG, 2002-05-11T14:38Z

Vilken method använder du i det formuläret där Email finns?

POST eller GET? Det skall vara POST i ditt fall.

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

## #15 — bigsky, 2002-05-11T14:46Z

det finns ett värde i formuläret, textfältet heter email och jag använder POST. Vad är meningen med att skriva ut sql satsen just där?

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

## #16 — Skarre, 2002-05-11T14:55Z

Då ser du om Request.Form("email") innehåller någonting eller inte. Om det inte gör det så måste någonting vara fel.

Testa att ändra denna rad:

```
strSQL = "SELECT Username, [Password], Email FROM users WHERE Email = "&Trim(Request.Form("email"))
```

till

```
strSQL = "SELECT Username, [Password], Email FROM users WHERE Email = '" & Trim(Request.Form("email")) & "'"
```

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

## #17 — bigsky, 2002-05-11T15:17Z

Skrivs ut som SELECT Username, Password, Email FROM users WHERE Email = <test@email.com>

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

## #18 — Skarre, 2002-05-11T15:40Z

Märkligt. Det bör skrivas ut som:

```
SELECT Username, Password, Email FROM users WHERE Email = 'test@email.com'
```

Jag har hursomhelst inte läst igenom koden, och har inte riktigt tid just nu, men det brukar inte dröja länge innan någon löser sådant här. Lycka till!

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

## #19 — bigsky, 2002-05-11T15:54Z

Jo, nu skrivs det så. Men nåt mail skickas inte. Finns e-posten inte skickas man till helpdesk.asp, finns den skickas man till default.asp. Så det funkar, hur som helst är det rätt att skriva  & vbcrlf & \_ om man vill ha en ny rad i Body delen av mailet?

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

## #20 — icaaq, 2002-05-11T16:27Z

Är det en fungerande epost adress......?

Det måste vara det för att CDONTS ska fungera

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/43492-skicka-glömda-uppgifter-funkar-detta  
Nästa sida: https://www.webforum.nu/amne/asp/43492-skicka-glömda-uppgifter-funkar-detta/page2.md