hjælp til loginsystem
Hej allesammenJeg har hentet et rigtig fedt loginsystem på nettet, mit problem er bare at når en bruger har registreret sig, for de tilsendt en aktiverings kode som de så skal bruge, men jeg kan ikke få den til at sende den, det er ASPmail og når når man har udfyldt formen og klikket send, skriver den godt nok at man vil modtage em mail, der kommer bare ikke noget.
her er formen.
<!--#INCLUDE file="dbase.asp"-->
<!--#INCLUDE file="constants.asp"-->
<%
if request("password") <> request("password2") then
response.redirect "join.asp?lg=pwverify"
end if
email = request("email")
username = request("username")
fullname=request("FirstName") & " " & request("LastName")
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "select AfUsername from users where AfUsername='"& request("username")& "'"
sql2 = "select AfUsername from users where email='"& request("email")& "'"
Conn.Open dsn
'check if email exists
rs.open sql2, conn
if not rs.eof then
response.redirect "join.asp?lg=emailtaken&FirstName=" & request("FirstName") & "&LastName=" & request("LastName") & "&email=" & request("email")
end if
rs.close
rs.open sql, conn
if rs.eof then
sql1 = "INSERT INTO users(FirstName, LastName, EMail, AfUsername, Password, Country) Values('" & request("FirstName") & "', '" & request("LastName") & "', '" & request("email") & "', '" & request("username") & "', '" & request("password") & "', '" & request("country") & "')"
conn.execute(sql1)
'send email
dim b, activateCode, strCode
strCode=request("FirstName") & request("LastName") & request("email") & request("username") & request("address")
activateCode=Len(strCode)*793
' email subject
emailsub="Aktiver Din bimse konto"
' email body
b="<html><body>"
b=b & "Hi " & fn & ",<br>"
b=b & "Velkommen til " & sitename & "<br>"
b=b & "<a href='" & rootFolder & "login/activate.asp?id=" & activateCode & "'>Klik her</a> for at aktivere din konto</a>."
b=b & "<br><br>Username:<b>" & request("username") & "</b><br>Password:<b>" & request("password") & "</b><br><br>"
b=b & "Hilsen <br><br>Webmaster<br>" & sitename
b=b & "</body></html>"
function checkcomp(str)
on error resume next
checkcomp = false
Err = 0
dim checkobject
set checkobject = Server.CreateObject(str)
if 0 = Err then
checkcomp = true
end if
set checkobject = nothing
Err = 0
end function
Dim emailcomp(1)
emailcomp(0) = "SMTPsvg.Mailer"
emailcomp(1) = "CDONTS.NewMail"
if checkcomp(emailcomp(0)) then
emailcomponent="ASPMail"
elseif checkcomp(emailcomp(1)) then
emailcomponent="CDONTS"
else
emailcomponent="CDONTS/ASPMail are not installed in your server."
end if
'check if ASPMail
if emailcomponent="ASPMail" then
Set mail = Server.CreateObject("SMTPsvg.Mailer")
mail.ContentType = "text/html"
mail.FromAddress = Webmaster
mail.FromName = bimse.com
mail.AddRecipient fullname, email
mail.Subject = emailsub
mail.BodyText = b
mail.RemoteHost = mail.bimse.com
mail.SendMail
Set Mail = Nothing
'check if CDONTS
elseif emailcomponent="CDONTS" then
Set myMail = CreateObject("CDONTS.NewMail")
myMail.From = emailFromName & "<" & emailFromAddress & ">"
myMail.From = emailFromAddress
myMail.To = email
myMail.Subject = emailsub
myMail.Body = b
myMail.BodyFormat = 0
myMail.MailFormat = 0
myMail.Send
Set myMail = Nothing
end if
else
response.redirect "join.asp?lg=untaken&FirstName=" & request("FirstName") & "&LastName=" & request("LastName") & "&email=" & request("email")
end if
rs.close
set rs = nothing
conn.close
set conn = nothing
Session("AfLogin")="true"
Session("activate") = false
Session("AfUsername")=username
response.redirect "../members.asp?action=newuser"
%>
og her er hvad de skriver er det eneste jeg skulle sætte op
<%
sTitle="Advanced ASP Login System" ' site title
sitename="YourSite.com"
rootFolder="http://YourSite.com/"
tableWidth=500
'email notification variables
emailFromAddress="webmaster@YourSite.com"
emailFromName= "YourSite.com"
ASPMailRemoteHost="mail.YourSite.com"
%>
er der nogen der kan se hvad jeg gør forkert
