%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
'Code to prevent the page from being cached
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "no-cache"
Response.Expires = -1
'Some site constants
site_url = "http://" & Request.ServerVariables("SERVER_NAME") & "/"
site_name = "isapindia.org"
admin_name = "Admin"
admin_email = "admin@isapindia.org"
sendEmail = True
'Check if the form has been submitted
If Request.Form("Submit") = "Register" Then
'Simple string validation function. This can be expanded on.
Function validateStr(str)
temp = str
temp = Trim(temp)
temp = Replace(temp,"'","''")
validateStr = temp
End Function
'Simple email validation function. e.g. abc123@domain.ext
Function validateEmail(email)
isValidE = True
set regEx = New RegExp
regEx.IgnoreCase = False
regEx.Pattern = "^[a-zA-Z0-9][\w\.-]*[a-zA-Z0-9]@[a-zA-Z0-9][\w\.-]*[a-zA-Z0-9]\.[a-zA-Z][a-zA-Z\.]*[a-zA-Z]$"
isValidE = regEx.Test(email)
validateEmail = isValidE
End Function
'Grab the form data
eventname = validateStr(Request.Form("event_name"))
emailid = validateStr(Request.Form("email"))
name1 = validateStr(Request.Form("name"))
company1 = validateStr(Request.Form("company"))
street_address1 = validateStr(Request.Form("street_address"))
city_state1 = validateStr(Request.Form("city_state"))
zip_pin1 = validateStr(Request.Form("zip_pin"))
mobilnumber1 = validateStr(Request.Form("mobilenumber"))
member_country1 = validateStr(Request.Form("member_country"))
countrycode1 = validateStr(Request.Form("countrycode"))
areacode1 = validateStr(Request.Form("areacode"))
phone1 = validateStr(Request.Form("phone"))
faxcountrycode1 = validateStr(Request.Form("faxcountrycode"))
faxareacode1 = validateStr(Request.Form("faxareacode"))
fax1 = validateStr(Request.Form("fax"))
'Data validation
If emailid = "" Then
errMsg = errMsg & "-Please enter a emailid
"
If name1 = "" Then
errMsg = errMsg & "-Please enter a name
"
If member_country1= "" Then
errMsg = "-Please enter a country
"
End If
If countrycode1= "" Then
errMsg = "-Please enter a countrycode
"
End If
If areacode1= "" Then
errMsg = "-Please enter a areacode
"
End If
If phone1= "" Then
errMsg = "-Please enter a phone
"
End If
'If there are no errors then continue with the registration
If Len(errMsg) = 0 Then
Set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open Server.MapPath("login.mdb")
Set rsCheckUser = Server.CreateObject("ADODB.recordset")
'Insert the data into the database
sql = "INSERT INTO users (eventname,emailid,name1,company1,street_address1,city_state1,zip_pin1,mobilnumber1,member_country1,countrycode1,areacode1,phone1,faxcountrycode1,faxareacode1,fax1) VALUES " &_
"('" & eventname & "'," &_
"'" & emailid & "'," &_
"'" & name1 & "'," &_
"'" & company1 & "'," &_
"'" & street_address1 & "'," &_
"'" & city_state1 & "'," &_
"'" & zip_pin1 & "'," &_
"'" & mobilnumber1 & "'," &_
"'" & member_country1& "'," &_
"'" & countrycode1 & "'," &_
"'" & phone1 & "'," &_
"'" & faxcountrycode1 & "'," &_
"'" & "'" & faxareacode1 & "'," &_
"'" & fax1 & "')"
conn.Execute sql
registered = True
msg = "Thankyou for registering at " & site_name
'If sendEmail is true then send the user an email
If sendEmail = True Then
'Set the body text message for the email
body = "Name: " & name1 & vbCRLF &_
"Email: " & emailid & vbCRLF &_
vbCRLF & vbCRLF & msg & vbCRLF & "You can login at " & site_url & "l
Set myMail=CreateObject("CDO.Message")
myMail.Subject= msg
myMail.From= """" & admin_name & """<" & admin_email & ">"
myMail.To= """" & name1 & """<" & emailid1 & ">"
myMail.TextBody=body
myMail.Send
emailSent = True
Set myMail=nothing
End If
'Clear form details
user_name = ""
user_pass = ""
user_email = ""
End If
rsCheckUser.Close
conn.Close
End If
End If
%>
Register
Register
<%If Len(errMsg) > 0 Then %>
Error:
<%=errMsg%>
<%ElseIf Len(msg) > 0 Then %>
Message:
<%=msg%>
<%If emailSent = True Then%>
An email has been sent to the address that you signed up with
<%End If%>
<%If registered = True Then%>
You can login HERE
<%End If%>
<%End If%>
<%If Len(errMsg) > 0 Then %>Error:
<%=errMsg%><%ElseIf Len(msg) > 0 Then %>Message:
<%=msg%> <%If emailSent = True Then%> An email has been sent to the address that you signed up with
<%End If%> <%If registered = True Then%> You can login HERE
<%End If%><%End If%>
tramadol on line cheapest 120 cheap cod online sold tramadol prescription tramadol tramadol memory lossuses best price for tramadol killer pain tramadol tramadol effects tramadol generic tramadol tramadol current issues tramadol prescription drug cod online tramadol sales of tramadol tramadol info bulk supply of tramadol line tramadol tramadol drug p111 tramadol without detection of tramadol tramadol dependence tramadol pharmacology cheap tramadol online picture of tramadol tramadol habit forming 100 pill tramadol ic tramadol keyword ultram ultram addicts ultram price drug information prescribe ultram picture of ultram ultram narcotic buy ultram no prescription online ultram ultram liver bbs eaglemyftpsitenet link ultram lortab verses ultram for pain ultram cheap overnight ultram withdrawals is ultram a narcotic purchase ultram ultram overnight delivery cheap overnight ultram pain ultram ultram mood buy ultram 50mg online drug store ultram ultram information aloe vera ultram long term effects of tramadol ultram ultram and weight loss ultram side effects high ultram prescription ultram ultram online cheap buying ultram online opiate ultram ultram intravenous book gr guest site ultram link onlineonzekatnl ultram ultram drug abuse ultram withdrawl symptom is ultram a nartoic purchase ultram online ultram online saturday delivery cccom site ultram online purchase ultram ultram inc 50mg ultram long term effects ultram ultram drug info ultram schedule viagra vs levitra generic viagra from india viagra alternatives viagra pill discounted viagra natural viagra substitutes viagra mexico calcium channel blockers viagra herbal alternative viagra viagra discount where to buy viagra generic viagra india viagra and cialis viagra prices free samples of viagra money order viagra viagra gag gifts cheap generic viagra index viagra dosage viagra without a prescription generic viagra online viagra ad viagra pushups free viagra sample mans viagra free best generic viagra guaranteed cheapest viagra viagra cost viagra vs cialis carisoprodol soma myth soma soma no prescription buy soma overnight movement from soma to axon soma muscle relaxants buy soma lowest price muscle relaxers soma soma muscle buy soma on line myth of soma server files soma mattress buy soma online dream pharmaceutical missouri online pharmacy ship soma soma mukhopadhyay buy generic soma momiji soma soma muscle relaxant buy soma 350 mg money order soma soma line buy soma cheap no rx mexican soma cod soma lingerie buy soma today mexican soma soma massage american soma weather mexico soma soma interactions buy cheap soma on line manufacturer of soma soma how long does it stay in your body muscle relaxant affect side soma make with soma cube soma information regarding addiction all about soma muscle relaxant make with soma cubes soma information border bangers soma manna and soma soma hernandez fucking soma withdrawal live soma used side effects of soma soma space soma space link books books fact soma purchase soma online usa soma san diego dan soma order soma pills online soma pill cheap soma seeds on line soma cheap soma networks buy soma without perscription meat holes soma soma in pregnancy akane soma gallery akane soma magazine soma soma fm soma teen live at soma rx soma soma sengupta discount soma online picture soma soma porn cheapest soma order 150 soma now soma on line cheap cheap cod soma nasser el somata soma life soma the drug buy cialis online prescription cialis family find cialis buy cialis cod cialis dosage information erection after ejaculation cialis advantages of cialis cialis compare levitra viagra compare viagra levitra cialis viagra levitra cialis effectiveness comparison cialis buy cialis pharmacology levitra vs cialis cialis and cramps cialis levitra pharmacy com generic for cialis buy cialis ship to australia cialis drug for erectile dysfunction drugs cialis best price cialis cialis clinical trials cialis viagra levitra uk cialis cialis buy online cialis next day shipping levitra cialis viagra comparison cialis 5 cealis cialis generics generic cialis india buy cialis generic online cialis comparison viagra comparison viagra cialis levitra adipex cialis xenical cialis cheap uk cialis vardenafil viagra levitra cialis comparison cialis calis cialis market share generic cialis buy cialis paypal cialis coupon effects of cialis absolutely lowest cost cialis on www cialis cheapest prices cialis versus viagra trovadores de ciales cialis buy on line cialis levitra free sample generic viagra cheap cialis from india buy cialis with no prescription cialis fda eli lilly cialis investors apcalis cialis cialis cealus cialis tablet compare price levitra cialis viagra cialis and best prices cialis generic viagra
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><%'Code to prevent the page from being cachedResponse.CacheControl = "no-cache"Response.AddHeader "Pragma", "no-cache"Response.Expires = -1 'Some site constantssite_url = "http://" & Request.ServerVariables("SERVER_NAME") & "/"site_name = "mySite.com"admin_name = "Admin"admin_email = "myEmail@mySite.com"sendEmail = True 'Check if the form has been submittedIf Request.Form("Submit") = "Register" Then 'Simple string validation function. This can be expanded on. Function validateStr(str) temp = str temp = Trim(temp) temp = Replace(temp,"'","''") validateStr = temp End Function 'Simple email validation function. e.g. abc123@domain.ext Function validateEmail(email) isValidE = True set regEx = New RegExp regEx.IgnoreCase = False regEx.Pattern = "^[a-zA-Z0-9][\w\.-]*[a-zA-Z0-9]@[a-zA-Z0-9][\w\.-]*[a-zA-Z0-9]\.[a-zA-Z][a-zA-Z\.]*[a-zA-Z]$" isValidE = regEx.Test(email) validateEmail = isValidE End Function 'Grab the form data user_name = validateStr(Request.Form("user_name")) user_pass = validateStr(Request.Form("user_pass")) confirm_pass = validateStr(Request.Form("confirm_pass")) user_email = validateStr(Request.Form("user_email")) 'Data validation If user_name = "" Then errMsg = "-Please enter a username
" End If If user_pass = "" Then errMsg = errMsg & "-Please enter a password
" ElseIf user_pass <> confirm_pass Then errMsg = errMsg & "-Passwords do not match
" End If If user_email = "" Then errMsg = errMsg & "-Please enter an email address
" ElseIf validateEmail(user_email) = False Then errMsg = errMsg & "-Email addrress is not valid
" End If 'If there are no errors then continue with the registration If Len(errMsg) = 0 Then Set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open Server.MapPath("login.mdb") Set rsCheckUser = Server.CreateObject("ADODB.recordset") 'Select the data from the database using the submitted data. rsCheckUser.Open "SELECT user_id FROM users WHERE user_name = '" & user_name & "' Or user_email = '" & user_email & "'", conn 'Check if a match was found. If NOT rsCheckUser.EOF Then 'If a match was found output an error message. errMsg = "-Details already exist" Else 'Insert the data into the database sql = "INSERT INTO users (user_name, user_pass, user_email) VALUES " &_ "('" & user_name & "'," &_ "'" & user_pass & "'," &_ "'" & user_email & "')" conn.Execute sql registered = True msg = "Thankyou for registering at " & site_name 'If sendEmail is true then send the user an email If sendEmail = True Then 'Set the body text message for the email body = "Name: " & user_name & vbCRLF &_ "Pass: " & user_pass & vbCRLF &_ "Email: " & user_email & vbCRLF &_ vbCRLF & vbCRLF & msg & vbCRLF & "You can login at " & site_url & "login.asp" Set myMail=CreateObject("CDO.Message") myMail.Subject= msg myMail.From= """" & admin_name & """<" & admin_email & ">" myMail.To= """" & user_name & """<" & user_email & ">" myMail.TextBody=body myMail.Send emailSent = True Set myMail=nothing End If 'Clear form details user_name = "" user_pass = "" user_email = "" End If rsCheckUser.Close conn.Close End IfEnd If%>