Avatar billede copyfree Nybegynder
09. marts 2003 - 23:10 Der er 31 kommentarer og
1 løsning

Kan ik få det lorte JMail til at sende mig glemt password

Hejza alle sammen jeg har et lille problem !!


<!-- #include file="../top.asp" -->


<TABLE cellPadding=0 cellSpacing=0 width="100%"  height="100%">

<TR>
<TD background="drage.png"valign="top" bgColor=#becad6 style="BORDER-BOTTOM: #000000 0px solid; BORDER-LEFT: #000000 0px solid; BORDER-RIGHT: #000000 0px solid; BORDER-TOP: #000000 0px solid; PADDING-BOTTOM: 6px; PADDING-LEFT: 6px; PADDING-RIGHT: 6px; PADDING-TOP: 6px" width=440>
<font color="#000000" face="tahoma,verdana">

Kontakt os vis du geren vil være med i vores clan CwC men vi lover ikke at du komme med 100%<br>

<%
If not request("mail") = "" Then
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database.mdb")
strSQL = ("SELECT * FROM user WHERE email = '" & Request("email") & "'")
Set rs = myConn.Execute(strSQL)
%>

<% else %>
<form method="POST" action="">

<table align="center">
<tr>
<td><font size="1" face="Verdana">Email: </font></td>
<td><input type="text" name="email"></td>
</tr>
<tr>
<td></td>
<td><input type="submit" value="Send" name="Send"></td>
</tr>
</table>
</form>
<%
Request.ServerVariables("REQUEST_METHOD") = "POST"

  Set JMail          = Server.CreateObject("JMail.SMTPMail")
  JMail.ServerAddress = "mail.copyfree.dk"
  JMail.Sender        = "cwc@copyfree.dk"
  JMail.SenderName    = "CopyFree"
  JMail.Subject      = "Jeg vil geren på Try"
  JMail.AddRecipient  "cwc@copyfree.dk"
 
  JMail.Body = "navn: " & Request.Form("navn") & vbCrLf
  JMail.Body = Jmail.Body & "Password: " & rs("password") & vbCrLf
  JMail.Body = Jmail.Body & "Username: " & rs("username") & vbCrLf
  JMail.Body = JMail.Body & "Klik her for at logge ind:"
  JMail.Execute
 
  Set JMail = Nothing
%>
<% end if %>

</TD></TR>
</TABLE>




<!-- #include file="../bund.asp" -->

hvor den er det nu jeg gør så¨når jeg klikker på Submit(send) at den så sender !! for kan ikke huske det !! da jeg nermlig få fejl her


<%
Request.ServerVariables("REQUEST_METHOD") = "POST"

  Set JMail          = Server.CreateObject("JMail.SMTPMail")
  JMail.ServerAddress = "mail.copyfree.dk"
  JMail.Sender        = "cwc@copyfree.dk"
  JMail.SenderName    = "CopyFree"
  JMail.Subject      = "Jeg vil geren på Try"
  JMail.AddRecipient  "cwc@copyfree.dk"
 
  JMail.Body = "navn: " & Request.Form("navn") & vbCrLf
  JMail.Body = Jmail.Body & "Password: " & rs("password") & vbCrLf
  JMail.Body = Jmail.Body & "Username: " & rs("username") & vbCrLf
  JMail.Body = JMail.Body & "Klik her for at logge ind:"
  JMail.Execute
 
  Set JMail = Nothing
%>

på forh¨nd tak for hjælpen :))
Avatar billede eagleeye Praktikant
09. marts 2003 - 23:15 #1
Du skal hvade flyttet dette styk kode op hvor du henter fra databasen:

<%
Request.ServerVariables("REQUEST_METHOD") = "POST"

  Set JMail          = Server.CreateObject("JMail.SMTPMail")
  JMail.ServerAddress = "mail.copyfree.dk"
  JMail.Sender        = "cwc@copyfree.dk"
  JMail.SenderName    = "CopyFree"
  JMail.Subject      = "Jeg vil geren på Try"
  JMail.AddRecipient  "cwc@copyfree.dk"
 
  JMail.Body = "navn: " & Request.Form("navn") & vbCrLf
  JMail.Body = Jmail.Body & "Password: " & rs("password") & vbCrLf
  JMail.Body = Jmail.Body & "Username: " & rs("username") & vbCrLf
  JMail.Body = JMail.Body & "Klik her for at logge ind:"
  JMail.Execute
 
  Set JMail = Nothing
%>



Altså lige efter denne linje:

Set rs = myConn.Execute(strSQL)
Avatar billede copyfree Nybegynder
09. marts 2003 - 23:16 #2
k 2 sec prøver jeg lige
Avatar billede copyfree Nybegynder
09. marts 2003 - 23:18 #3
okey :) jeps igen fejl :) hvor dan er det nu jeg så får hente og sendt en glemt password vis du kan hjælpe mig ind til det virker får du 100 point ialt :))
Avatar billede copyfree Nybegynder
09. marts 2003 - 23:19 #4
husk nu at det ska være så at men ska indtase mail+username for at få koden !!
Avatar billede cpufan Juniormester
09. marts 2003 - 23:19 #5
<form method="POST" action="">
skal ændres til:
<form method="POST" action="siden-du-kalder-fra.asp">
Avatar billede eagleeye Praktikant
09. marts 2003 - 23:20 #6
action="" betyder samme side. Du vil havde kode og <form>'en på samme side.
Avatar billede copyfree Nybegynder
09. marts 2003 - 23:21 #7
dvs glemt.asp ?
Avatar billede cpufan Juniormester
09. marts 2003 - 23:21 #8
så lærte jeg det eagle ;)
Avatar billede copyfree Nybegynder
09. marts 2003 - 23:23 #9
hmmm ja !! jeg smider lige såden som min code er nu :) vil du ik lige lave så at den henter koden fra password + user name og sende til den mail man indtaster i email formen !!
Avatar billede copyfree Nybegynder
09. marts 2003 - 23:23 #10
<!-- #include file="../top.asp" -->


<TABLE cellPadding=0 cellSpacing=0 width="100%"  height="100%">

<TR>
<TD background="drage.png"valign="top" bgColor=#becad6 style="BORDER-BOTTOM: #000000 0px solid; BORDER-LEFT: #000000 0px solid; BORDER-RIGHT: #000000 0px solid; BORDER-TOP: #000000 0px solid; PADDING-BOTTOM: 6px; PADDING-LEFT: 6px; PADDING-RIGHT: 6px; PADDING-TOP: 6px" width=440>
<font color="#000000" face="tahoma,verdana">

Kontakt os vis du geren vil være med i vores clan CwC men vi lover ikke at du komme med 100%<br>

<%
If not request("mail") = "" Then
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database.mdb")
strSQL = ("SELECT * FROM user WHERE email = '" & Request("email") & "'")
Set rs = myConn.Execute(strSQL)

Request.ServerVariables("REQUEST_METHOD") = "POST"

  Set JMail          = Server.CreateObject("JMail.SMTPMail")
  JMail.ServerAddress = "mail.copyfree.dk"
  JMail.Sender        = "cwc@copyfree.dk"
  JMail.SenderName    = "CopyFree"
  JMail.Subject      = "Jeg vil geren på Try"
  JMail.AddRecipient  "cwc@copyfree.dk"
 
  JMail.Body = Jmail.Body & "Password: " & rs("password") & vbCrLf
  JMail.Body = Jmail.Body & "Username: " & rs("username") & vbCrLf
  JMail.Body = JMail.Body & "Klik her for at logge ind:"
  JMail.Execute
 
  Set JMail = Nothing

%>
Din kode er nu sendt til din Email
<% else %>
<form method="POST" action="glemt.asp">

<table align="center">
<tr>
<td><font size="1" face="Verdana">Email: </font></td>
<td><input type="text" name="email"></td>
</tr>
<tr>
<td></td>
<td><input type="submit" value="Send" name="Send"></td>
</tr>
</table>
</form>
<% end if %>

</TD></TR>
</TABLE>




<!-- #include file="../bund.asp" -->
Avatar billede cpufan Juniormester
09. marts 2003 - 23:24 #11
Set JMail = Nothing
%>
<% end if %>

</TD></TR>
</TABLE>

bør ændres til:

  Set JMail = Nothing

end if %>
Avatar billede eagleeye Praktikant
09. marts 2003 - 23:24 #12
<!-- #include file="../top.asp" -->


<TABLE cellPadding=0 cellSpacing=0 width="100%"  height="100%">

<TR>
<TD background="drage.png"valign="top" bgColor=#becad6 style="BORDER-BOTTOM: #000000 0px solid; BORDER-LEFT: #000000 0px solid; BORDER-RIGHT: #000000 0px solid; BORDER-TOP: #000000 0px solid; PADDING-BOTTOM: 6px; PADDING-LEFT: 6px; PADDING-RIGHT: 6px; PADDING-TOP: 6px" width=440>
<font color="#000000" face="tahoma,verdana">

Kontakt os vis du geren vil være med i vores clan CwC men vi lover ikke at du komme med 100%<br>

<%
if Request.ServerVariables("REQUEST_METHOD") = "POST" then

  Set myConn = Server.CreateObject("ADODB.Connection")
  myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database.mdb")
  strSQL = "SELECT * FROM user WHERE email = '" & Request,Form("email") & "'"
  strSQL = strSQL & " AND username = '" & Request.Form("brugernavn") & "'"
  Set rs = myConn.Execute(strSQL)

  Set JMail          = Server.CreateObject("JMail.SMTPMail")
  JMail.ServerAddress = "mail.copyfree.dk"
  JMail.Sender        = "cwc@copyfree.dk"
  JMail.SenderName    = "CopyFree"
  JMail.Subject      = "Jeg vil geren på Try"
  JMail.AddRecipient  "cwc@copyfree.dk"
 
  JMail.Body = "navn: " & Request.Form("navn") & vbCrLf
  JMail.Body = Jmail.Body & "Password: " & rs("password") & vbCrLf
  JMail.Body = Jmail.Body & "Username: " & rs("username") & vbCrLf
  JMail.Body = JMail.Body & "Klik her for at logge ind:"
  JMail.Execute
 
  Set JMail = Nothing


else %>
<form method="POST" action="">

<table align="center">
<tr>
<td><font size="1" face="Verdana">Email: </font></td>
<td><input type="text" name="email"></td>
</tr>
<tr>
<td><font size="1" face="Verdana">Brugernavn: </font></td>
<td><input type="text" name="brugernavn"></td>
</tr>
<tr>
<td></td>
<td><input type="submit" value="Send" name="Send"></td>
</tr>
</table>
</form>

<% end if %>

</TD></TR>
</TABLE>
Avatar billede cpufan Juniormester
09. marts 2003 - 23:26 #13
nå,,, det er rettet kan jeg se
Avatar billede copyfree Nybegynder
09. marts 2003 - 23:31 #14
fjlen er


Microsoft VBScript compilation error '800a0401'

Expected end of statement

/cwc/member/glemt.asp, line 17

strSQL = "SELECT * FROM user WHERE email = '" & Request,Form("email") & "'"



hvor dan ska den rettes ?
Avatar billede eagleeye Praktikant
09. marts 2003 - 23:37 #15
Ups der er kommet et , ind hor det skulle være . så prøv med denne:

  strSQL = "SELECT * FROM user WHERE email = '" & Request,Form("email") & "'"
Avatar billede copyfree Nybegynder
09. marts 2003 - 23:39 #16
hmmm endnu en fjel :) fik lige rettet den anden :p hi ih

men hvor den får jeg den nu til at hive en database veriable ud i malinen men pass og bruger navn ???



  JMail.Body = Jmail.Body & "Password: " & rs("password") & vbCrLf
  JMail.Body = Jmail.Body & "Username: " & rs("username") & vbCrLf
Avatar billede eagleeye Praktikant
09. marts 2003 - 23:42 #17
Som du har vist...?? får du en fejl?

Den hendter password fra kolonnen med navnet password:  rs("password")
Den hendter brugernavnet  fra kolonne username:  rs("username")
Avatar billede copyfree Nybegynder
09. marts 2003 - 23:44 #18
jeps !!! hmm men hvorfor siger den enligt så fejl ???
Avatar billede eagleeye Praktikant
09. marts 2003 - 23:47 #19
Ja det ville hjælpe hvis du skrev hvilken fejl du får.
Avatar billede copyfree Nybegynder
09. marts 2003 - 23:51 #20
error '80020009'
Exception occurred.

/cwc/member/glemt.asp, line 28



som er ::

JMail.Body = Jmail.Body & "Password: " & rs("password") & "" & vbCrLf
Avatar billede eagleeye Praktikant
09. marts 2003 - 23:57 #21
hmm hvad sker der hvis du udkommentere den linje?
Avatar billede copyfree Nybegynder
10. marts 2003 - 00:02 #22
2 sec
Avatar billede copyfree Nybegynder
10. marts 2003 - 00:03 #23
så er koden 100% regti men det er bare den der fejhl !! hvor den ska sende passwordet og bruger navet med i mail der manger nu
Avatar billede eagleeye Praktikant
10. marts 2003 - 00:05 #24
Og password feltete i din tabel hedder password ?
Avatar billede copyfree Nybegynder
10. marts 2003 - 00:06 #25
jeps det enste fejl der er er

de her 2 liner

'  JMail.Body = Jmail.Body & "Password: " & rs("password") & "" & vbCrLf
'  JMail.Body = Jmail.Body & "Username: " & rs("username") & "" & vbCrLf
Avatar billede eagleeye Praktikant
10. marts 2003 - 00:09 #26
Det kunne måske tyde på der ikke var en record som passer med email og brugernavnet prøv lige at lave dette styk kode.:

  Set JMail          = Server.CreateObject("JMail.SMTPMail")
  JMail.ServerAddress = "mail.copyfree.dk"
  JMail.Sender        = "cwc@copyfree.dk"
  JMail.SenderName    = "CopyFree"
  JMail.Subject      = "Jeg vil geren på Try"
  JMail.AddRecipient  "cwc@copyfree.dk"
 
  JMail.Body = "navn: " & Request.Form("navn") & vbCrLf
  JMail.Body = Jmail.Body & "Password: " & rs("password") & vbCrLf
  JMail.Body = Jmail.Body & "Username: " & rs("username") & vbCrLf
  JMail.Body = JMail.Body & "Klik her for at logge ind:"
  JMail.Execute
 
  Set JMail = Nothing



Ok til dette:

if rs.EOF or rs.BOF then
  Response.write "Ingen bruger fundet"
else
  Set JMail          = Server.CreateObject("JMail.SMTPMail")
  JMail.ServerAddress = "mail.copyfree.dk"
  JMail.Sender        = "cwc@copyfree.dk"
  JMail.SenderName    = "CopyFree"
  JMail.Subject      = "Jeg vil geren på Try"
  JMail.AddRecipient  "cwc@copyfree.dk"
 
  JMail.Body = "navn: " & Request.Form("navn") & vbCrLf
  JMail.Body = Jmail.Body & "Password: " & rs("password") & vbCrLf
  JMail.Body = Jmail.Body & "Username: " & rs("username") & vbCrLf
  JMail.Body = JMail.Body & "Klik her for at logge ind:"
  JMail.Execute
 
  Set JMail = Nothing
end if
Avatar billede eagleeye Praktikant
10. marts 2003 - 00:12 #27
Fik du et navn i den email du modtog???

navn: XXXXXX
Avatar billede copyfree Nybegynder
10. marts 2003 - 00:19 #28
if rs.EOF or rs.BOF then


Microsoft VBScript runtime error '800a01a8'

Object required: ''

/cwc/member/glemt.asp, line 13
Avatar billede eagleeye Praktikant
10. marts 2003 - 00:20 #29
Tilføj lige denne linje:

Set rs = Server.CreateObject("ADODB.RecordSet")


Efter denne:
Set myConn = Server.CreateObject("ADODB.Connection")
Avatar billede copyfree Nybegynder
10. marts 2003 - 00:26 #30
10000000 tak nu funger det :)) måske du også kan hjælpe mig med det ger spg

http://www.eksperten.dk/spm/325407
Avatar billede eagleeye Praktikant
10. marts 2003 - 00:32 #31
Det bliver først senere på ugen, jeg får kigget på det.
Jeg skal i seng nu :)
Avatar billede copyfree Nybegynder
10. marts 2003 - 00:33 #32
okey kan du sove godt :))
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester