<%
'Get data from form
varuserid = Request.form("Userid")
page = Request.form("page")
varfname = Request.form("firstname")
varlname = Request.form("lastname")
varfname = Request.form("firstname")
varemail = Request.form("email")
varcity = Request.form("city")
varcountry = Request.form("country")
varstate = Request.form("state")
varage = Request.form("mm")&"/"& Request.form("dd")&"/"& Request.form("yy")
vargender = Request.form("gender")
varMarStatus = Request.form("MarStatus")
varOccupation = Request.form("Occupation")
varSignature = Request.form("Signature")
varemailhidden = Request.form("hidden")
'Optional
varhomepage = Request.form("homepage")
varcoollink = Request.form("coollink")
varpic_url = Request.form("photo_url")
varbio = Request.form("bio")
varhobbies = Request.form("hobbies")
varlnews = Request.form("lnews")
varquote = Request.form("quote")
varpage = Request.form("page")
%>
<%
Randomize
varRnd = Int((99999 * Rnd)+1 )
varRndpass = "j_"&varRnd
Call Connjunooni(Conn)
sql = "select * From users where username = '"&varuserid&"'"
Set checkObj = Conn.Execute(sql)
if not checkObj.EOF Then
%>
sorry UserID already exists.
Use the back button of your browser.
<%
response.end
end if
esql = "select * From users where email = '"&varemail&"'"
Set emailObj = Conn.Execute(esql)
if not emailObj.EOF Then
%>
sorry Email address already use.
Use the back button of your browser.
<%
response.end
end if
'On error resume next
Set rsUser = Server.CreateObject("ADODB.Recordset")
rsUser.open "users", conn, 3, 3
rsUser.AddNew
rsUser("username") = varuserid
rsUser("password") = varRndpass
rsUser("firstname") = varfname
rsUser("lastname") = varlname
rsUser("email") = varemail
rsUser("city") = varcity
rsUser("state") = varstate
rsUser("country") = varcountry
rsUser("dateofbirth") = varage
rsUser("gender") = vargender
rsUser("mar_status") = varmarstatus
rsUser("Occupation") = varOccupation
rsUser("Signature") = varSignature
rsUser("homepage") = varhomepage
rsUser("coollink") = varcoollink
rsUser("pic_url") = varpic_url
rsUser("bio") = varbio
rsUser("hobbies") = varhobbies
rsUser("lastnews") = varlnews
rsUser("emailhidden") = varemailhidden
rsUser("favoritequote") = varquote
rsUser("status") = 1
rsUser.Update
'Response.Cookies("pb_username") = varuserid
'Response.Cookies("level") = 1
varbody = " Hello "& varfname & " " & varlname
varbody = varbody & "
You received this message from Official Discussion Forum for Junoonis "
varbody = varbody & "because you have registered for a new account which allows you to post new "
varbody = varbody & "messages and reply to existing ones on the forums at http://www.junoon.com/Fourmboard/"
varbody = varbody & "
password:"& varRndpass
varbody = varbody & "
You can change your information at our website by selecting the Profile link."
varbody = varbody & "
Happy Posting!"
Set MailObj = server.createObject("CDONTS.NewMail")
mailobj.MailFormat = 0
mailobj.BodyFormat = 0
MailObj.To = varemail
mailObj.From = "webmaster@junoon.com"
mailObj.Subject = "BBL @ junoon.com"
mailObj.Body = varbody
mailObj.Send
set mailObj = nothing
%>
Thanks for signing up <%=firstname%> <%=surname%>
Your password has been sent on your email address
Click here to continue
|