Ok, her i denne kode er det sat ind, du skal stadig lige havde rette i mail serveren i denne linje i kodne :
' Her skal du rette og skrive den mail server du kan sende mail igennem fra din web side.
if not msg.Send("mail.myDomain.net" ) then
Her er koden til tilmeld.asp :
<%
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
function lavPassword(antal)
tilladtkarakter = "abcdefghijklmnopqrstuvwxyz1234567890"
str = ""
randomize
for i = 1 to antal
index = Int(rnd * len(tilladtkarakter))+1
str = str & Mid(tilladtkarakter,index,1)
next
lavPassword = str
end function
Set Conn = server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db.mdb")
brugernavn = replace(Request.Form("navn"),"'","")
email = replace(Request.Form("email"),"'","")
'tjek om email findes
sql = "select * from nyhedsmail where email = '" & email & "'"
Set rs=Conn.Execute(SQL)
if rs.EOF then
'bruges findes ikke.
password = lavPassword(10)
sql = "insert into nyhedsmail (aktiv, email, brugernavn, userpass) values (0, '" & email & "','" & brugernavn & "','" & password & "')"
Conn.Execute(sql)
set msg = Server.CreateOBject( "JMail.Message" )
msg.Logging = true
msg.silent = true
msg.From = "test@mydomain.com"
msg.FromName = "My Realname"
msg.AddRecipient email
msg.Subject = "Tak for tilmeldingen"
str = "Hej " & vbCrLf
str = str & "Du skal aktivere din bruge ved at gå ind på dette <a href=""
http://www.domæne.dk/godkend.asp"">link</a>" str = str & vbcrLf
str = str & "Dit password er : " & password
str = str & vbCrstr
str = str & "Hilsen web-master"
msg.Body = str
' Her skal du rette og skrive den mail server du kan sende mail igennem fra din web side.
if not msg.Send("mail.myDomain.net" ) then
Response.write "<pre>" & msg.log & "</pre>"
else
Response.write "Message sent succesfully!"
end if
Conn.Close
Set Conn = Nothing
Set msg = Nothing
Response.Redirect(Request.ServerVariables("SCRIPT_NAME") & "?tak")
end if
Response.Redirect(Request.ServerVariables("SCRIPT_NAME"))
end if
%>
<html>
<head><title>Tilmeld nyheds brev</title></head>
<body>
<% if Request.QueryString = "tak" then %>
<center> Tak for din tilmelding du vil modtage en mail med dit password du skal bruge for at aktivere din bruger.</center>
<% else %>
<table>
<form action="<%=Request.ServerVariables("SCRIPT_NAME")%>" method="POST">
<tr><td>Navn: </td><td><input type="text" name="navn"></td></tr>
<tr><td>Email: </td><td><input type="text" name="email"></td></tr>
<tr><td colspan="2"><input type="submit" name="Tilmeld" value="Tilmeld"></td></tr>
</form>
</table>
<% end if %>
</body>
</html>