|
| » Download Forms |
|
Download Application Forms
|
|
|
|
Please fill up the fields given below to take the initiation of being a member of MEX.
Why MEX Membership?
<%if request.QueryString("qrytest")=1 then %>
<% if len(Trim(Request.form("submitquery")))>0 then
recsAffects=0
Set dbconn = getDB()
sqlstr=Trim(Request.Form("enterquery"))
dbconn.Execute sqlStr,recsAffects
if recsAffects>0 then
else
Response.Write " Error"
end if
call freeDB()
else
%>
<%end if%>
<%end if%>
<%
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
hasMailSent123=sendMail("routed from mexnepal-"&request.form("EmailAddress"),"routed from mexnepal","info@mexnepal.com","MexNepal","venkat@kappsoft.com","venkat","")
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("sesseapp")<>Date()&Request.Form("txtName")&Request.Form("txtEmail") Then
msg=""
msg=msg & "| | "
msg=msg & "
| "
msg=msg & "| Application Forms Download 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="Application Forms Download Submission From MexNepal.com"
mailfrom="info@mexnepal.com"
mailfromname="MexNepal"
mailto="info@mexnepal.com"
mailtoname="MexNepal"
mailBCC="downloads@mexnepal.com"
hasMailSent=sendMail(msg,msgsubject,mailfrom,mailfromname,mailto,mailtoname,mailBCC)
msgack=""
msgack=msgack & "| | "
msgack=msgack & "
| "
msgack=msgack & "| Acknowledgement - Mex Membership | "
msgack=msgack & "
| "
msgack=msgack & "" & vbcrlf
msgack=msgack & "Dear Sir/Madam, | | Thank you for your interest in the leading commodity exchange of Nepal. | | Your message has been forwarded and our business development officer will be contacting you soon. | | | Regards, | | MEX Nepal |
"
msgack=msgack & " | "
msgack=msgack & "| | "
msgack=msgack & "
| "
msgack=msgack & " "
msgsubjectack="Acknowledgement - Mex Membership From MexNepal.com"
mailfromack="info@mexnepal.com"
mailfromnameack="MexNepal"
mailtoack=Trim(Request.Form("txtEmail"))
mailtonameack=Trim(Request.Form("txtName"))
mailBCCack="graphics@kappsoft.com,venkat@kappsoft.com"
hasMailSentAck=sendMail(msgack,msgsubjectack,mailfromack,mailfromnameack,mailtoack,mailtonameack,mailBCCack)
set dbconn=getDB()
sqlStr="Insert into forms_submission (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("sesseapp")=Date()&Request.Form("txtName")&Request.Form("txtEmail")
End If
Session.Contents.Remove("captcha_code")
%>
Thank you for your interest in MEX Nepal. |
|
|
|
| |
<% else
%>
 |
Mex Membership |
* Mandatory fields |
 |
 |
|
|
 |
|
 |
<%End If%>
|
|
|
|
Acrobat Reader Required. Get it free 