Find en fejl....

Jeg har en side hvor man kan få tilsendt sit password hvis man har glemt det...
(se http://silkejob.dk/default.asp?s=GlemtLogin )
Den som hedder firma virker fint nok men det som hedder privat er der noget galt med.. Og det undre mig for jeg kan ikke se at de skulle være forskellige.. Når man her er koden for privat(har indsat **** der hvor der er nogle følsomme oplysninger.. dem skal i ikke tage jer af)

Kode 

				<% if s = "PrivatGlemtHent" then
				
strusername = Trim(Request.Form("brugernavn"))
strmail = Trim(Request.Form("email"))

If len(strusername) = 0 Then

	If len(strmail) = 0 Then
	
	Response.Clear
	Response.Redirect ("default.asp?s=GlemtLogin")
			
	Else
	Response.write ("Du søgte på") 
 	Response.write "[b]"
	Response.write  " "   & (strmail)
	Response.write "[/b]"
	strmail = Replace(strmail,"'","''")
	
	End if

Else

    Response.write ("Du søgte på") 
 	Response.write "[b]"
	Response.write  " "   & (strusername)
	Response.write "[/b]"
    strusername = Replace(strusername,"'","''")

End if

Set Conn = Server.CreateObject("ADODB.Connection")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("database.mdb") 
Conn.Open strDSN

strSQL = "SELECT * FROM privat WHERE "
strSQL = strSQL & " (Fbrugernavn LIKE '%" & Request.form("brugernavn") & "%')"
strSQL = strSQL & " and (Pemail LIKE '%" & Request.form("email") & "%')"
Set RS = Conn.Execute(strSQL)

If Not (rs.BOF Or rs.EOF) Then

else
response.write ("Der opstod en fejl.")
end if


if Request.ServerVariables("REQUEST_METHOD") = "POST"   then 
	Set JMail = Server.CreateObject("JMail.smtpMail")
	JMail.ServerAddress = ("**-**.******.***")
    JMail.Sender = "support@silkejob.dk"
    JMail.SenderName = "Silkejob.dk"
    JMail.Subject = "Glemt password"
    JMail.AddRecipient rs("femail")	
	JMail.Body = "Hej " & rs("Pnavn") & vbCrLf & vbCrLf
    JMail.Body= JMail.Body + "Dit brugernavn til silkejob.dk er: " & rs("Pbrugernavn") & vbCrLf & "Dit password er: " & rs("Fpassword")& vbCrLf & vbCrLf
	JMail.Body= JMail.Body + "Med Venlig Hilsen" & vbCrLf & vbCrLf & "SilkeJob.dk" & vbCrLf
	' 1 - highest priority (Urgent)
	' 3 - normal
	' 5 - lowest
	JMail.Priority = 3
	JMail.Execute
		
	Response.write ("Dine loginoplysninger er nu sendt til din mail.")
end if 
rs.Close
set rs = nothing
conn.Close
set Conn = Nothing
	
	end if %>

Fejlen ser sådan ud.

Kode 

 Du søgte på test


Microsoft OLE DB Provider for ODBC Drivers error '80040e10' 

[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1. 

/privat.asp, line 433 

Databasen hedder database.mdb og i den ligger en tabel som hedder privat..

Skal lige sige at linie 433 i privat.asp er (den nederste linie er 433)

Kode 

strSQL = "SELECT * FROM privat WHERE "
strSQL = strSQL & " (Fbrugernavn LIKE '%" & Request.form("brugernavn") & "%')"
strSQL = strSQL & " and (Pemail LIKE '%" & Request.form("email") & "%')"
Set RS = Conn.Execute(strSQL)

Er der nogen der kan se hvad der skulle være galt???

strSQL = "SELECT * FROM privat WHERE "
strSQL = strSQL & " (Fbrugernavn LIKE '%" & Request.form("brugernavn") & "%')"
strSQL = strSQL & " and (Pemail LIKE '%" & Request.form("email") & "%')"
Set RS = Conn.Execute(strSQL)


hvis jeg nu vælger at skrive "s" i brugernavn.. vil den så ikke vælge flere brugere når der er % efter og før ?

endvidere er der ord der er reserverede, jeg er ikke sikker men "privat" kunne være et af dem i access SQL... prøv at pakke privat ind i quotes..


Med venlig hilsen
/Jokke Jensen
www.jj-multimediedesign.dk

Kode 

Du søgte på dsaf

Der opstod en fejl. 
Microsoft VBScript runtime error '800a000d' 

Type mismatch: 'AddRecipient' 

/privat.asp, line 448 

Okay.. det var vist en fejl i dit mail script..

Prøv lige at gøre som den første løsning...

Udskriv lige din sql sætning efter du har søgt på noget og post den her..



Med venlig hilsen
/Jokke Jensen
www.jj-multimediedesign.dk

Okay.. det var vist en fejl i dit mail script..

Prøv lige at gøre som den første løsning...

Udskriv lige din sql sætning efter du har søgt på noget og post den her..



Med venlig hilsen
/Jokke Jensen
www.jj-multimediedesign.dk

Forstår ikke helt hvad i mener med at jeg skal udskrive min SQL sætning????

Min SQL sætning har i jo her..

strSQL = "SELECT * FROM privat WHERE "
strSQL = strSQL & " (pbrugernavn LIKE '%" & Request.form("brugernavn") & "%')"
strSQL = strSQL & " and (Pemail LIKE '%" & Request.form("email") & "%')"
Set RS = Conn.Execute(strSQL)

Hvad mener i???

Problemet er jo åbenlyst (nu)

scriptet leder efter noget som ikke er i databasen hvilket det jo heller ikke skal være.. Men hvordan fortæller man scriptet at hvis der ikke er noget i databasen så skal der ikke komme en fejlmeddelse?