Send brugernavn og password med Jmail
maildatabase.mdb (database-filen)users (tabelnavn i maildatabase.mdb)
password, username, email (navne i tabellen)
-----------------------------------------------------------------
dsn.asp (filen, der kalder databasen) - kildekode:
et Conn = Server.CreateObject("ADODB.Connection")
DataBase = "Data Source="& server.mappath("maildatabase.mdb") & ";Provider=Microsoft.Jet.OLEDB.4.0;"
Conn.Open (DataBase)
------------------------------------------------------------------
sendpassword.asp ("hovedfilen" - kildekode:
<HTML>
<head>
<META HTTP-EQUIV=Refresh CONTENT="10; URL=index.htm">
</head>
<body>
<center>
<% if Request.ServerVariables("REQUEST_METHOD") = "POST" then
'Include database filen, den indeholder connection til databasen %>
<!--#include file="dsn.asp"-->
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
email = replace(Request.Form("email"),"'","''")
strSQL= "SELECT * FROM users WHERE email = '" & email & "';"
Set rs = Conn.Execute (strSQL)
if not rs.EOF then
'send password til brugeren
Set JMail= Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "smtp.varde.nu"
JMail.Sender = "admin@varde.nu"
JMail.SenderName = "Tinghøjgård"
JMail.Subject = "Brugernavn og password til Tinghøjgård"
JMail.AddRecipient rs(email)
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
BodyText = "Du har bedt om at få tilsendt dit brugernavn og password til Mit Forum." & vbCrLf
BodyText = BodyText & "Dit password er: " & rs("password") & vbCrLf
BodyText = BodyText & "Dit brugernavn er: " & rs("username")
BodyText = BodyText & "Hilsen Tinghøjgård/www.varde.nu"
JMail.Body = BodyText
JMail.Silent = true
JMail.Execute
Set JMail = Nothing
Response.Write "En mail med dit password er send til dig."
else
Response.Write "kunne ikke finde bruger oplysninger."
end if
Conn.Close
else
Response.Redirect("index.htm")
end if
%>
<br><br>
Du vil automatisk bliver stillet om til login siden om 10 sekunder.
</center>
</body>
</HTML>
-----------------------------------------------------------------
ny_side_1.htm (indtastningsfelt) - kildekode:
<table border="1">
<form method="post" action="sendpassword.asp" name="sendpassword">
<tr><td colspan="2" align="center">Jeg har glemt mit brugernavn og password, send det til mig.</td></tr>
<tr><td>E-mail:</td><td><input name="email"></td></tr>
<tr><td colspan="2" align="center"><input type="submit" value="Send" name="Action"></td></tr>
</form>
</table>
------------------------------------------------------------------
Jeg kan ikke få ovenstående til at virke. Jeg får meddelelsen:
Set Conn = Server.CreateObject("ADODB.Connection") DataBase = "Data Source="& server.mappath("maildatabase.mdb") & ";Provider=Microsoft.Jet.OLEDB.4.0;" Conn.Open (DataBase)
Microsoft VBScript runtime error '800a01a8'
Object required: ''
/sendpassword.asp, line 14
....hvad er der galt?
