|
| » MM Demo Trader |
|
MM Demo Trader
|
|
|
<%
SuccessStr=False
ErrStr=""
ErrStrtop=""
if request.Form("btnSubmit")<>"" then
'server side validation
if request.Form("txtName")="" then ErrStrtop="Enter name"
if request.Form("txtPhone")="" then ErrStrtop=ErrStrtop&"
Enter phone number"
if request.Form("txtEmail")="" then ErrStrtop=ErrStrtop&"
Enter email ID"
if InStr(lcase(request.Form("txtName")),".com")<>0 or InStr(lcase(request.Form("txtName")),"%")<>0 or InStr(lcase(request.Form("txtName")),"http")<>0 or InStr(lcase(request.Form("txtName")),"www")<>0 then ErrStrtop=ErrStrtop&"
Invalid name"
if InStr(lcase(request.Form("txtPhone")),".com")<>0 or InStr(lcase(request.Form("txtPhone")),"%")<>0 or InStr(lcase(request.Form("txtPhone")),"http")<>0 or InStr(lcase(request.Form("txtPhone")),"www")<>0 or Not IsNumeric(replace(lcase(Request.Form("txtPhone"))," ","")) then ErrStrtop=ErrStrtop&"
Invalid phone number"
If Len(request.Form("txtEmail"))>0 and IsValidEmailID(request.Form("txtEmail"))=false Then ErrStrtop=ErrStrtop & "
Invalid email ID"
dim spamStop1,hasMailSent123
spamStop1 = trim(request.form("EmailAddress"))
if spamStop1 <> "" then
ErrStrtop=ErrStrtop&"
Invalid Entry"
end if
if ErrStrtop="" then
If Request.Form("txtChar") <> Session("captcha_code") Then
ErrStr="Your Image character is not valid, Please try again"
SuccessStr=False
else
SuccessStr=True
end if
end if
end if
If SuccessStr=True Then
If Session("sesseappmm")<>Date()&Request.Form("txtName")&Request.Form("txtEmail")&Request.Form("txtPhone") Then
msg=""
msg=msg & "| | "
msg=msg & "
| "
msg=msg & "| MM Demo Trader Submission | "
msg=msg & "
| "
msg=msg & "" & vbcrlf
msg=msg & ""
msg=msg & "| Name : | "
msg=msg & "" & Trim(Request.Form("txtName")) & " | "
msg=msg & "| Phone No: | "
msg=msg & "" & Trim(Request.Form("txtPhone")) & " | "
msg=msg & "| Email : | "
msg=msg & "" & Trim(Request.Form("txtEmail")) & " | "
msg=msg & "| Address : | "
msg=msg & "" & Trim(Request.Form("Selcountry")) & " " & Trim(Request.Form("selState")) & " | "
msg=msg & "| Background : | "
msg=msg & "" & Trim(Request.Form("txtBackground")) & " | "
msg=msg & "| Company Name : | "
msg=msg & "" & Trim(Request.Form("txtCompname")) & " | "
msg=msg & "| Nature of Business : | "
msg=msg & "" & Trim(Request.Form("txtNatureofBusiness")) & " | "
msg=msg & "| Phone : | "
msg=msg & "" & Trim(Request.Form("txtCompphone")) & " | "
msg=msg & "| Company address : | "
msg=msg & "" & Trim(Request.Form("txtCompaddress")) & " | "
msg=msg & "| Message : | "
msg=msg & "" & Trim(Request.Form("txtMessage")) & " | "
msg=msg & "| Submitted Date & Time : | "
msg=msg & "" & FormatDateTime(Now(),1) & " " & FormatDateTime(Now(),3) & " | "
msg=msg & "| Submitted IP Address: | "
msg=msg & "" & Trim(Request.ServerVariables("REMOTE_ADDR")) & " | "
msg=msg & "| Submitted Country-Region-City: | "
msg=msg & "" & Trim(Request.Form("cnn")) & "-" & Trim(Request.Form("rgn")) & "-" & Trim(Request.Form("cyn")) & " | "
msg=msg & " | "
msg=msg & "| | "
msg=msg & "
| "
msg=msg & " "
msgsubject="MM Demo Trader Submission From MexNepal.com"
mailfrom="info@mexnepal.com"
mailfromname="MexNepal"
mailto="membership@mexnepal.com"
mailtoname="MexNepal"
mailBCC="graphics@kappsoft.com"
hasMailSent=sendMail(msg,msgsubject,mailfrom,mailfromname,mailto,mailtoname,mailBCC)
msgack=""
msgack=msgack & "| | "
msgack=msgack & "
| "
msgack=msgack & "| Acknowledgement - MM Membership | "
msgack=msgack & "
| "
msgack=msgack & "" & vbcrlf
msgack=msgack & "Hello, | | Thank you for showing your interest. | | Your request has been acknowledged and we will be sending you a mail in your registered email address with the link, username, password and help manual of Market Maker very soon. | | | Regards, | | MEX Nepal |
"
msgack=msgack & " | "
msgack=msgack & "| | "
msgack=msgack & "
| "
msgack=msgack & " "
msgsubjectack="Acknowledgement - MM Membership From MexNepal.com"
mailfromack="info@mexnepal.com"
mailfromnameack="MexNepal"
mailtoack=Trim(Request.Form("txtEmail"))
mailtonameack=Trim(Request.Form("txtName"))
mailBCCack="graphics@kappsoft.com"
hasMailSentAck=sendMail(msgack,msgsubjectack,mailfromack,mailfromnameack,mailtoack,mailtonameack,mailBCCack)
set dbconn=getDB()
sqlStr="Insert into download_mm_trader (user_name,address,phone_no,email_address,txtBackground,comp_name,nature_of_Busi,comp_phone,comp_address,txtMessage,submitted_date,submitted_ipaddress,sub_country,sub_region,sub_city) values( '"& fixQuotes(Trim(Request.Form("txtName"))) &"','"& fixQuotes(Trim(Request.Form("Selcountry"))) &"-"& fixQuotes(Trim(Request.Form("selState"))) &"','"& fixQuotes(Trim(Request.Form("txtPhone"))) &"','"& fixQuotes(Trim(Request.Form("txtEmail"))) &"','"& fixQuotes(Trim(Request.Form("txtBackground"))) &"','"& fixQuotes(Trim(Request.Form("txtCompname"))) &"','"& fixQuotes(Trim(Request.Form("txtNatureofBusiness"))) &"','"& fixQuotes(Trim(Request.Form("txtCompphone"))) &"','"& fixQuotes(Trim(Request.Form("txtCompAddress"))) &"','"& fixQuotes(Trim(Request.Form("txtMessage"))) &"','"& Now() &"','"& fixQuotes(Request.ServerVariables("REMOTE_ADDR")) &"','"& fixQuotes(Trim(Request.Form("cnn"))) & "','" & fixQuotes(Trim(Request.Form("rgn"))) &"','" & fixQuotes(Trim(Request.Form("cyn"))) & "')"
dbconn.execute sqlStr,recsAffected
If hasMailSent=True Then Session("sesseappmm")=Date()&Request.Form("txtName")&Request.Form("txtEmail")&Request.Form("txtPhone")
End If
Session.Contents.Remove("captcha_code")
%>
Why MM Membership?
<% else
%>
Please fill up the fields given below to get demo market maker user.
Why MM Membership?
 |
MM Demo Trader |
* Mandatory fields |
 |
 |
|
|
 |
|
 |
<%End If%>
|
|
|
| |