<%
if request.Form("submit") = "Submit" then
set rs = server.CreateObject("ADODB.Recordset")
sql = "Select vcemail From useraccount where vcemail='" & request.form("txtemail") & "'"
rs.open sql, conn
if not rs.eof then
msg ="E-mail Already register another user!"
else
sql = "Insert into useraccount(vcfirstname,vcmiddlename,vclastname,dtbirthday,vcgender,vcemail,vcpassword,vcalteremailid,vcindustry,vcoccupation,vcSpecialization,vchomedoor,vchomestreet,vchomearea,vchomecity,vchomestate,vchomecountry,vchomepostalcode,vchomephonenumber,vchomemobilenumber,vccompanyname,vccompanystreet,vccompanyarea,vccompanycity,vccompanystate,vccompanycountry,vccompanypostalcode,vccompanyphonenumber,vccompanyfaxnumber,vcmember) values('"&replace(trim(request.form("txtfirstname")),"'","''")&"','"&replace(trim(request.form("txtmiddlename")),"'","''")&"','"&replace(trim(request.form("txtlastname")),"'","''")&"','"&replace(trim(request.form("txtdateofbirth")),"'","''")&"','"&request.form("Sex")&"','"&replace(trim(request.form("txtemail")),"'","''")&"','"&replace(trim(request.form("txtpassword")),"'","''")&"','"&replace(trim(request.form("txtalteremail")),"'","''")&"','"&replace(trim(request.form("slindustry")),"'","''")&"','"&replace(trim(request.form("sloccupation")),"'","''")&"','"&replace(trim(request.form("txtSpecialization")),"'","''")&"','"&replace(trim(request.form("txtdoor")),"'","''")&"','"&replace(trim(request.form("txthomestreet")),"'","''")&"','"&replace(trim(request.form("txthomearea")),"'","''")&"','"&replace(trim(request.form("txthomecity")),"'","''")&"','"&replace(trim(request.form("txthomestate")),"'","''")&"','"&replace(trim(request.form("slcontactcountry")),"'","''")&"','"&replace(trim(request.form("txthomepostalcode")),"'","''")&"','"&replace(trim(request.form("txthomephone")),"'","''")&"','"&replace(trim(request.form("txthomemoblie")),"'","''")&"','"&replace(trim(request.form("txtcompany")),"'","''")&"','"&replace(trim(request.form("txtworkstreet")),"'","''")&"','"&replace(trim(request.form("txtworkarea")),"'","''")&"','"&replace(trim(request.form("txtworkcity")),"'","''")&"','"&replace(trim(request.form("txtworkstate")),"'","''")&"','"&replace(trim(request.form("slworkcountry")),"'","''")&"','"&replace(trim(request.form("txtworkpostalcode")),"'","''")&"','"&replace(trim(request.form("txtworkphone")),"'","''")&"','"&replace(trim(request.form("txtworkfax")),"'","''")&"','"&request.form("rdmember")&"')"
'sql = "Insert into useraccount(vcfirstname,vcmiddlename)values('" & replace(trim(request.form("txtfirstname")),"'","''") & "','" & replace(trim(request.form("txtmiddlename")),"'","''") & "')"
'response.Write(sql)
'response.End()
conn.execute sql
msg = "Thank you for signing up. An email will be sent to you shortly.Your response will be needed from that email to activate your account"
Set objNewMail = Server.CreateObject ("CDONTS.NewMail")
objNewMail.From = "admin@samrakshan.com"
objNewMail.To = request.form("txtemail")
objNewMail.Subject = "congratulation,samrakshan actvation page"
' to use standard HTML tags.
objNewMail.BodyFormat = CdoBodyFormatHTML
' to use other languages/MIME encoding
objNewMail.MailFormat = CdoMailFormatMIME
set rs = server.CreateObject("ADODB.Recordset")
sql = "Select accountid From useraccount where vcemail='" & request.form("txtemail") & "'"
rs.open sql, conn
if not rs.eof then
account_id = rs("accountid")
end if
objNewMail.Body ="To complete the registration on our site, please click on the link www.samrakshan.com/activation.asp?uid=" & account_id & ""
objNewMail.Send
Set objNewMail = Nothing
end if
end if
%>
::Samrakshan New Account Registration
