Hi,
I'm using the membership system bassed on
www.wedd.com but have a problem in that my ISP only has JMAIL and the code I've got is in ASPMail.
Can someone convert the following code into JMAIL format for me please?
Many thanks
Nick
__________________________
_________
<%
if request("password") <> request("password2") then
response.redirect "join.asp?lg=pwverify"
end if
email = request("email")
username = request("username")
fullname=request("FirstNam
e") & " " & request("LastName")
Set conn = Server.CreateObject("ADODB
.Connectio
n")
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&Fi
rstName=" & request("FirstName") & "&LastName=" & request("LastName") & "&email=" & request("email") & "&city=" & request("city") & "&address=" & request("address") & "&zip=" & request("zip")
end if
rs.close
rs.open sql, conn
if rs.eof then
sql1 = "INSERT INTO users(FirstName, LastName, EMail, AfUsername, Password, Country, State, City, Address, Zip) Values('" & request("FirstName") & "', '" & request("LastName") & "', '" & request("email") & "', '" & request("username") & "', '" & request("password") & "', '" & request("country") & "', '" & request("state") & "', '" & request("city") & "', '" & request("address") & "', '" & request("zip") & "')"
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="Please activate your membership"
' email body
b="<html><body>"
b=b & "Hi " & fn & ",<br>"
b=b & "Welcome to " & sitename & "<br>"
b=b & "<a href='" & rootFolder & "login/activate.asp?id=" & activateCode & "'>Click here</a> to activate your affiliate account and start earning cash</a>."
b=b & "<br><br>Username:<b>" & request("username") & "</b><br>Password:<b>" & request("password") & "</b><br><br>"
b=b & "Best Regards<br><br>Customer Service<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/ASP
Mail are not installed in your server."
end if
'check if ASPMail
if emailcomponent="ASPMail" then
Set mail = Server.CreateObject("SMTPs
vg.Mailer"
)
mail.ContentType = "text/html"
mail.FromAddress = emailFromAddress
mail.FromName = emailFromName
mail.AddRecipient fullname, email
mail.Subject = emailsub
mail.BodyText = b
mail.RemoteHost = ASPMailRemoteHost
mail.SendMail
Set Mail = Nothing
'check if CDONTS
elseif emailcomponent="CDONTS" then
Set myMail = CreateObject("CDONTS.NewMa
il")
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&First
Name=" & request("FirstName") & "&LastName=" & request("LastName") & "&email=" & request("email") & "&city=" & request("city") & "&address=" & request("address") & "&zip=" & request("zip")
end if
rs.close
set rs = nothing
conn.close
set conn = nothing
Session("AfLogin")="true"
Session("activate") = false
Session("AfUsername")=user
name
response.redirect "../members.asp?action=new
user"
%>
