---
title: "Konstig bugg"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/102334-konstig-bugg"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "kalasnikov"
published: "2004-04-26T08:48:02.000Z"
updated: "2004-04-26T08:59:16.000Z"
replies: 2
views: 217
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/102334-konstig-bugg"
---

# Konstig bugg

## #1 — kalasnikov, 2004-04-26T08:48Z

Tja, jag har en såndär "glömt lösenord"grej som buggar lite. Om man skriver in en mail som finns i databasen så är det inga problem, man får mailet skickat till sig men om man skriver en mail som inte finns i databasen så kommer man ändå till sidan där det står att man har fått mail.

\<html\>

\<!-- #include virtual="projekt/adovbs.inc" --\>
\<!-- #include virtual="projekt/cdovbs.inc" --\>
\<%
	Set Connect = Server.CreateObject("ADODB.Connection")
	Connect.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=c:/inetpub/wwwroot/projekt/databas.mdb"
	Set RecSet = Server.CreateObject("ADODB.Recordset")

	Visa = "Select \* From Användare WHERE epost=  '" & Request.Form("epost") & "'"
	RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic

   If Not RecSet.EOF Then
   	If Lcase(Request.Form("epost")) = Lcase(RecSet("epost")) Then
     	set msg = Server.CreateOBject( "JMail.Message" )
	 	msg.Logging = true
	 	msg.silent = true
	 	msg.From = "hej@hej.se"
	 	msg.FromName = "Administratörerna på 2004projekt.tk"
	 	msg.AddRecipient Request.Form("epost")
	 	msg.Subject = "Glömt lösenord"
	 	msg.Body  = "Lösenord: " & RecSet("pass1")
	  	If not msg.Send("smtp.bredband.net" ) then
	     		Response.write "\<pre\>" & msg.log & "\</pre\>"

	Response.write "Du har nu fått ett mail med ditt lösenord"
	End If

   Else
      Response.write "Din mail finns inte i databasen."
   End If

   End If

	RecSet.Close
	Connect.Close
%\>
\<h2\>Du har nu fått ett mail med ditt lösenord\</h2\>
\</html\>
är tacksam för alla svar

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

## #2 — OveRRidE, 2004-04-26T08:53Z

Ja? Sidan stoppas ju inte bara för att "Din mail finns inte..." skrivs ut. Du har ju bara IF-satsen runt själva skickningen av mailet. 

```
<html>

<!-- #include virtual="projekt/adovbs.inc" -->
<!-- #include virtual="projekt/cdovbs.inc" -->
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:/inetpub/wwwroot/projekt/databas.mdb"
Set RecSet = Server.CreateObject("ADODB.Recordset")

Visa = "Select * From Användare WHERE epost= '" & Request.Form("epost") & "'"
RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic

If Not RecSet.EOF Then
If Lcase(Request.Form("epost")) = Lcase(RecSet("epost")) Then
set msg = Server.CreateOBject( "JMail.Message" )
msg.Logging = true
msg.silent = true
msg.From = "hej@hej.se"
msg.FromName = "Administratörerna på 2004projekt.tk"
msg.AddRecipient Request.Form("epost")
msg.Subject = "Glömt lösenord"
msg.Body = "Lösenord: " & RecSet("pass1")
If not msg.Send("smtp.bredband.net" ) then
Response.write "<pre>" & msg.log & "</pre>"

sMsg = "Du har nu fått ett mail med ditt lösenord"
End If

Else
sMsg = "Din mail finns inte i databasen."
End If

End If

RecSet.Close
Connect.Close
%>
<h2><% =sMsg %></h2>
</html>
```

PS. Använd \[kod\]-taggarna. DS.

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

## #3 — OveRRidE, 2004-04-26T08:59Z

Jag skulle även en gång för alla vilja påpeka att det anses som dålig programmerar-etik att döpa strängar till t.ex. 'Visa' som detta uppenbara IDG WebStudio-exemplet illustrerar. Döp dina variablar till vettiga namn istället;

```
sSQL = "SELECT * FROM Baluba"
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/102334-konstig-bugg
