---

Nu har jeg sat og stiret på denne kode i snart 3 timer og kan
stadig ikke finde fejlen. det er meningen at hvis folk glemmer
deres pass til en bruger kan de skrive deres brugernavn og så får
de tilsendt deres pass pr email men den kommer bare med en intern
server fejl hver gang hvad kan der være galt? du kan se eks. på
www.clan.krusenet.dk/fest/test/glemt_password.asp

<%
If Request.QueryString("type") = "send" Then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath("maildb.mdb")

SQL = "Select * From users Where user_email='" &
Request.Form("brugernavn") & "'"
rs.Open SQL, Conn, 3, 3

Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "smtp.bodata.dk"
JMail.Sender = "thomasb@postbilen.dk"
JMail.SenderName = "Lind-Party.tk crew"
JMail.Subject = "Glemt password!"
JMail.AddRecipient = rs("email")
JMail.Body = "Vi sender dig hermed dit brugernavn og kodeord."
& vbCrLf
JMail.Body = JMail.Body & "Brugernavn: " & rs("user_email")
JMail.Body = JMail.Body & "Kodeord: " & rs("user_password")
JMail.Execute
Set JMail = Nothing

Response.Redirect("Glemt_Password.asp?type=mailsendt")

End If

If Request.QueryString("type") = "mailsendt" Then Response.Write
"Der er nu sendt en mail til dig, med dine oplysninger"

If Request.QueryString("type") = "brugerfejl" Then Response.Write
"Fejl, brugeren kunne ikke blive fundet!"
%>

<form method="post" action="Glemt_Password.asp?type=send">
Brugernavn:&nbsp;
<input type="text" name="brugernavn">
<input type="submit" value="Send">
</form>


--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP ???
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

Thomas Brejner skrev:

> Nu har jeg sat og stiret på denne kode i snart 3 timer og kan
> stadig ikke finde fejlen. ...
> ... den kommer bare med en intern server fejl hver gang

Start med at læse <http://asp-faq.dk/article/?id=45> for at finde
ud af hvordan du kan få en detaljeret fejlmeddelelse.

Når du har ændret dine browserindstillinger kan du få følgende fejl
frem:
***************************
Microsoft VBScript runtime error '800a01a8'

Object required: 'rs'

/fest/test/Glemt_Password.asp, line 8
****************************

- fejlen ligger altså i linje 8, og handler om at der mangler et
objekt i variablen rs.

Her har vi linje 8:
> rs.Open SQL, Conn, 3, 3

Det er første linje hvor rs indgår - men rs er ikke "skabt" endnu,
derfor fejler koden når du kalder rs.open.

Når man skal lave et recordset kan man enten gøre det implicit:
   
   ' Opret og åbn et ADODB.Recordset
   Set rs = Conn.Execute(strSQL, ...(options))

Her bliver rs på samme tid dannet og åbnet.

Man kan også eksplicit skabe et recordset og derefter fylde data i
det. Det ser således ud:

   ' Opret ADODB.Recordset
   Set rs = Server.CreateObject("ADODB.Recordset")

   ' Åbn ADODB.Recordset
   rs.Open strSQL, Conn, ...(options)    

Du mangler Set-linjen i sidste eksempel.
--
Jens Gyldenkærne Clausen
Svar venligst under det du citerer, og citer kun det der er
nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
hvordan på http://usenet.dk/netikette/citatteknik.html