---
title: "Ifall användaren inte finns"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/76623-ifall-användaren-inte-finns"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "DiDjo"
published: "2003-05-11T18:21:52.000Z"
updated: "2003-05-11T20:11:29.000Z"
replies: 11
views: 312
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/76623-ifall-användaren-inte-finns"
---

# Ifall användaren inte finns

## #1 — DiDjo, 2003-05-11T18:21Z

Tja! Jag har en glömt lösenordet kod:

```
<%
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath ("lol.mdb")
Set Rs = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From anv"
rs.Open Addera, Connect, 3, 3 

Do Until rs.EOF

	If Rs("anv") = Request.Form("anv") Then

epost = Rs("email")
namn = Rs("anv")
losen = Rs("losen")

Set jmail = Server.CreateObject( "JMail.Message" )
 
jmail.AddRecipient "" & epost & ""
jmail.From = "support@didjo.com"
Jmail.Priority = 1
jmail.Subject = "Glömt lösenordet"
jmail.appendHTML "<font face=Verdana, Arial, Helvetica, sans-serif size=2>"
jmail.appendHTML "Tja " & namn & "! <br><br>"
jmail.appendHTML "Här är ditt användarnamn och lösenord till DiDjo Community<br><br><br>"
jmail.appendHTML "<b>Användarnamn: </b> " & namn & "<br>"
jmail.appendHTML "<b>Lösenord: </b> " & losen & "<br>" 
jmail.appendHTML "</font>"
jmail.appendHTML "<br><br><a href=http://www.didjo.com/ target=new>[url]http://www.didjo.com/[/url]</a><br><br>"
jmail.Send( "mail.didjo.com" )

End if
Rs.MoveNext
Loop

Rs.Close
Connect.Close
Set Rs = nothing
Set Connect = nothing
Session("skickat") = "Ditt lösenord har skickats!"
Response.Redirect "index.asp"
%>
```

Hur lägger man till en koll som kollar om användarnamnet finns lr ej? Finns det skickas mejlet... annars skickas man tillbaka till sidan innan med en session?

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

## #2 — Sebbe, 2003-05-11T18:26Z

Menar du såhär?

```
<%
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath ("lol.mdb")
strSQL = "SELECT * FROM anv WHERE [anv] = '" & Request.Form("anv") & "'"
Set objRS = Connect.Execute(strSQL)

If objRS.EOF Then
  Session("fel") = "Användarnamnet finns inte."
  Server.Transfer("default.asp")
Else
  Set jmail = Server.CreateObject( "JMail.Message" )
  jmail.AddRecipient objRS("email")
  jmail.From = "support@didjo.com"
  jmail.Priority = 1
  jmail.Subject = "Glömt lösenordet"
  jmail.appendHTML "<font face=Verdana, Arial, Helvetica, sans-serif size=2>"
  jmail.appendHTML "Tja " & objRS("anv") & "! <br><br>"
  jmail.appendHTML "Här är ditt användarnamn och lösenord till DiDjo Community<br><br><br>"
  jmail.appendHTML "<b>Användarnamn: </b> " & objRS("anv") & "<br>"
  jmail.appendHTML "<b>Lösenord: </b> " & objRS("losen") & "<br>" 
  jmail.appendHTML "</font>"
  jmail.appendHTML "<br><br><a href=http://www.didjo.com/ target=new>[url]http://www.didjo.com/[/url]</a><br><br>"
  jmail.Send( "mail.didjo.com" )
  Set jmail = Nothing
End If

Set objRS = Nothing
Connect.Close
Set Connect = Nothing
%>
```

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

## #3 — LarsG, 2003-05-11T18:27Z

```
namn = Request.Form("anv")
Addera = "Select email,losen From anv where anv = '" & _
replace(namn,"'","''") & "'"
set rs = Connect.execute(addera)
if not rs.eof then

epost = Rs("email")
losen = Rs("losen")

Set jmail = Server.CreateObject( "JMail.Message" )
 
jmail.AddRecipient "" & epost & ""
jmail.From = "support@didjo.com"
Jmail.Priority = 1
jmail.Subject = "Glömt lösenordet"
jmail.appendHTML "<font face=Verdana, Arial, Helvetica, sans-serif size=2>"
jmail.appendHTML "Tja " & namn & "! <br><br>"
jmail.appendHTML "Här är ditt användarnamn och lösenord till DiDjo Community<br><br><br>"
jmail.appendHTML "<b>Användarnamn: </b> " & namn & "<br>"
jmail.appendHTML "<b>Lösenord: </b> " & losen & "<br>" 
jmail.appendHTML "</font>"
jmail.appendHTML "<br><br><a href=http://www.didjo.com/ target=new>[url]http://www.didjo.com/[/url]</a><br><br>"
jmail.Send( "mail.didjo.com" )
else
'
' kod för att hantera fel användarnamn
'
End if
```

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

## #4 — @nders, 2003-05-11T18:29Z

(Ja, jag såg att det har hunnit inläggas, men när jag ändå har skrivit det, så... ;) )

 \- - - - -

Det är extremt onödigt att loopa igenom hela användartabellen. Ställ villkoret direkt i SQL-frågan. Varför kallar du SQL-frågan för *Addera* förresten?

```
<%
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath ("fjukig_databas.mdb")
strSQL = "Select * From anv where anv='" & replace(request.form("anv"), "'", "''") & "'"
set rs = Connect.Execute (strSQL)
[b]If not rs.eof then[/b]
	epost = Rs("email")
	namn = Rs("anv")
	losen = Rs("losen")

	Set jmail = Server.CreateObject( "JMail.Message" )
 
	jmail.AddRecipient epost ' [b]<-- här tog jag bort onödiga konkateneringar av tomma strängar
	jmail.From = "support@didjo.com"
	Jmail.Priority = 1
	jmail.Subject = "Glömt lösenordet"
	jmail.appendHTML "<font face=Verdana, Arial, Helvetica, sans-serif size=2>"
	jmail.appendHTML "Tja " & namn & "! <br><br>"
	jmail.appendHTML "Här är ditt användarnamn och lösenord till DiDjo Community<br><br><br>"
	jmail.appendHTML "<b>Användarnamn: </b> " & namn & "<br>"
	jmail.appendHTML "<b>Lösenord: </b> " & losen & "<br>" 
	jmail.appendHTML "</font>"
	jmail.appendHTML "<br><br><a href=http://www.didjo.com/ target=new>[url]http://www.didjo.com/[/url]</a><br><br>"
	jmail.Send( "mail.didjo.com" )
	Rs.Close
	Connect.Close
	Set Rs = nothing 
	Set Connect = nothing
	Session("skickat") = "Ditt lösenord har skickats!"
	Response.Redirect "index.asp"
Else
	Rs.Close
	Connect.Close
	Set Rs = nothing 
	Set Connect = nothing
	Session("skickat") = "Nä, fanns ju inte!"
	Response.Redirect "index.asp"
End if
%>
```

Mvh

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

## #5 — DiDjo, 2003-05-11T18:38Z

Så här?

```
<%
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath ("nasse.mdb")
Set Rs = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From anv"
rs.Open Addera, Connect, 3, 3 

Do Until rs.EOF

	If Rs("anv") = Request.Form("anv") Then

namn = Request.Form("anv")
Addera = "Select email,losen From anv where anv = '" & _
replace(namn,"'","''") & "'"
set rs = Connect.execute(addera)
if not rs.eof then

epost = Rs("email")
losen = Rs("losen")

Set jmail = Server.CreateObject( "JMail.Message" )
 
jmail.AddRecipient "" & epost & ""
jmail.From = "support@didjo.com"
Jmail.Priority = 1
jmail.Subject = "Glömt lösenordet"
jmail.appendHTML "<font face=Verdana, Arial, Helvetica, sans-serif size=2>"
jmail.appendHTML "Tja " & namn & "! <br><br>"
jmail.appendHTML "Här är ditt användarnamn och lösenord till DiDjo Community<br><br><br>"
jmail.appendHTML "<b>Användarnamn: </b> " & namn & "<br>"
jmail.appendHTML "<b>Lösenord: </b> " & losen & "<br>" 
jmail.appendHTML "</font>"
jmail.appendHTML "<br><br><a href=http://www.didjo.com/ target=new>[url]http://www.didjo.com/[/url]</a><br><br>"
jmail.Send( "mail.didjo.com" )
else

session("fel")="Användarnamnet fanns inte!"
Response.Redirect "glomt1.asp"
End if

Rs.MoveNext
Loop

Rs.Close
Connect.Close
Set Rs = nothing
Set Connect = nothing
Session("skickat") = "Ditt lösenord har skickats!"
Response.Redirect "index.asp"
%>
```

Då får jag:

```
Microsoft VBScript compilation error '800a040e' 

'loop' without 'do' 

/glomt2.asp, line 49 

Loop
^
```

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

## #6 — DiDjo, 2003-05-11T18:39Z

ops! Marsvinet hann säga nått! Ska pröva hans!

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

## #7 — DiDjo, 2003-05-11T18:40Z

@nders byt ut databasen PLZ!

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

## #8 — @nders, 2003-05-11T18:42Z

> **DiDjo skrev:**
>
> @nders byt ut databasen PLZ!

Jepp, fixat

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

## #9 — DiDjo, 2003-05-11T18:42Z

tackar! Får detta fel:

```
Microsoft VBScript runtime error '800a000d' 

Type mismatch: 'jmail.AddRecipient' 

/glomt2.asp, line 13
```

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

## #10 — @nders, 2003-05-11T18:43Z

Innehåller fältet email något då? Kontrollera det. 

Mvh

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

## #11 — DiDjo, 2003-05-11T20:00Z

Det gjorde det innan jag ändarde koden... har inge bra prg för att ändra ASP just nu! har bara anteckningar...

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

## #12 — Poffe, 2003-05-11T20:11Z

ASP är ju bara text så anteckninger funkar ju

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/76623-ifall-användaren-inte-finns