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 :))
Annonceindlæg tema
Offentlig digitalisering
Fra effektivisering til digital suverænitet. Hvordan skaber det offentlige en digital fremtid med AI, sikkerhed og kontrol i centrum?
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)
09. marts 2003 - 23:16
#2
k 2 sec prøver jeg lige
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 :))
09. marts 2003 - 23:19
#4
husk nu at det ska være så at men ska indtase mail+username for at få koden !!
09. marts 2003 - 23:19
#5
<form method="POST" action=""> skal ændres til: <form method="POST" action="siden-du-kalder-fra.asp">
09. marts 2003 - 23:20
#6
action="" betyder samme side. Du vil havde kode og <form>'en på samme side.
09. marts 2003 - 23:21
#7
dvs glemt.asp ?
09. marts 2003 - 23:21
#8
så lærte jeg det eagle ;)
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 !!
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" -->
09. marts 2003 - 23:24
#11
Set JMail = Nothing %> <% end if %> </TD></TR> </TABLE> bør ændres til: Set JMail = Nothing end if %>
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>
09. marts 2003 - 23:26
#13
nå,,, det er rettet kan jeg se
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 ?
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") & "'"
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
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")
09. marts 2003 - 23:44
#18
jeps !!! hmm men hvorfor siger den enligt så fejl ???
09. marts 2003 - 23:47
#19
Ja det ville hjælpe hvis du skrev hvilken fejl du får.
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
09. marts 2003 - 23:57
#21
hmm hvad sker der hvis du udkommentere den linje?
10. marts 2003 - 00:02
#22
2 sec
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
10. marts 2003 - 00:05
#24
Og password feltete i din tabel hedder password ?
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
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
10. marts 2003 - 00:12
#27
Fik du et navn i den email du modtog??? navn: XXXXXX
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
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")
10. marts 2003 - 00:32
#31
Det bliver først senere på ugen, jeg får kigget på det. Jeg skal i seng nu :)
10. marts 2003 - 00:33
#32
okey kan du sove godt :))
Kurser inden for grundlæggende programmering