<%@ language="VBSCRIPT" codepage="65001" %> <% page="admin-individualfarmerentry" %> <% errorMessage="" name="" contactno="" email="" address="" item="" available="" price="" description="" location="" %> : Mercantile Exchange Nepal Limited: Online Commodities and Metal Trading in Nepal
» Product Listing Form
Market-Making

Product Listing Form

व्यक्तिगत कृषक आदेश

वस्तु सूचीकरण फारम

कृपया खाली ठाउँमा आवश्यक विवरण भर्नुहोस् ।

वस्तु सूचीकरण फारम  
<% isSuccess= ProcessResponse() %>

<%=errorMessage%>

<% If( Not isSuccess) Then %>
नाम *:
मोबाइल नं. *:
इमेल :
ठेगाना *:
वस्तु *:
उपलब्ध परिमाण *:
मूल्य (प्रति परिमाण) *:
विवरण *:
हस्तान्तरण हुने स्थान *:
नोटः माथि उल्लेखित जानकारी गलत भएमा एक्सचेन्ज जिम्मेवार हुनेछैन ।
  
<% end if %>




<% private function ProcessResponse() isValid=false If Request.Form("btnSubmit")<>"" then name=fixQuotes(Trim(Request.Form("txtfullname"))) contactno=fixQuotes(Trim(Request.Form("txtcontactno"))) email=fixQuotes(Trim(Request.Form("txtemail"))) address=fixQuotes(Trim(Request.Form("txtaddress"))) item=fixQuotes(Trim(Request.Form("txtitem"))) available=fixQuotes(Trim(Request.Form("txtavailable"))) price=fixQuotes(Trim(Request.Form("txtprice"))) description=fixQuotes(Trim(Request.Form("txtdescription"))) location=fixQuotes(Trim(Request.Form("txtlocation"))) if name="" then errorMessage="कृपया तपाईंको पूरा नाम प्रविष्ट गर्नुहोस्।
" Else if NOT IsValidName(name) then errorMessage=errorMessage&"नाम: विशेष वर्ण अनुमति छैन।
" End If End If if contactno="" then errorMessage=errorMessage&"तपाईंको फोन नम्बर प्रविष्ट गर्नुहोस्।
" Else if NOT IsValidContact(contactno) then errorMessage=errorMessage&"अवैध मोबाइल फोन नम्बर।
" End If End If if email<>"" then if NOT IsValidEmailID(email) then errorMessage=errorMessage&"अवैध इमेल ठेगाना।
" End If End If if address="" then errorMessage=errorMessage&"कृपया आफ्नो ठेगाना प्रविष्ट
" End if if item="" then errorMessage=errorMessage&"वस्तु नाम प्रविष्ट गर्नुहोस्
" End if if available="" then errorMessage=errorMessage&"उपलब्ध वस्तुको रकम प्रविष्ट गर्नुहोस्।
" End if if price="" then errorMessage=errorMessage&"उपलब्ध वस्तुको रकम प्रविष्ट गर्नुहोस्।
" End if if description="" then errorMessage=errorMessage&"उपलब्ध वस्तुको रकम प्रविष्ट गर्नुहोस्।
" End if if location="" then errorMessage=errorMessage&"उपलब्ध वस्तुको रकम प्रविष्ट गर्नुहोस्।
" End if if (errorMessage="") Then If Session("sessmexproductlisting")=name&contactno&item&available&price&location Then Call ShowSuccessMessage() Call Reset() isValid=true Else If (CreateProductListing(name,contactno,email,address,item,available,price,description,location,ReadIpAddress(),fixQuotes(Trim(Request.Form("cnn"))),fixQuotes(Trim(Request.Form("rgn"))),fixQuotes(Trim(Request.Form("cyn"))))) Then Session("sessmexproductlisting")=name&contactno&item&available&price&location Call ShowSuccessMessage() lastId=getLastProductListing() isValid=true hasSent=SenkAck() if (hasSent) Then if (lastId>0) Then Call UpdateProductListing(lastId,True) Else errorMessage="मेल डेलिभर छैन!" End If Call Reset() Else errorMessage="अनपेक्षित त्रुटि
दर्ता विफल, कृपया फेरि प्रयास गर्नुहोस्" End If End If End If End If ProcessResponse=isValid End Function %> <% private sub ShowSuccessMessage() Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "
" & vbCrLf Response.Write "

फारम दर्ता प्रकृया सफल भयो ।

" & vbCrLf Response.Write "

हामी तपाईलाई यथा सिध्र सम्पर्क गर्नेछौँ।

" & vbCrLf Response.Write "
" & vbCrLf Response.Write "" & vbCrLf Response.Write "
" & vbCrLf End sub %> <% private sub Reset() name="" contactno="" email="" address="" item="" available="" price="" description="" location="" End sub %> <% Private function SenkAck() strMsg="
" & vbcrlf strMsg=strMsg & "" & vbcrlf strMsg=strMsg & "" & vbcrlf strMsg=strMsg & "" & vbcrlf strMsg=strMsg & "" & vbcrlf strMsg=strMsg & "" & vbcrlf strMsg=strMsg & "
" & vbcrlf strMsg=strMsg & "

नमस्ते,

" & vbcrlf strMsg=strMsg & "

मेक्स नेपाल तपाईलाई हार्दिक स्वागत गर्दछ ।

" & vbcrlf strMsg=strMsg & "

तपाईले भर्नु भएको वस्तु सूचीकरण फारम हामीले प्राप्त गरेका छौँ । तपाईको वस्तु यथा सिध्र सूचीकरण गरिनेछ ।

" & vbcrlf strMsg=strMsg & "

तपाईले दिनुभएको जानकारी निम्न अनुसार रहेको छ ।

" & vbcrlf strMsg=strMsg & "

" & vbcrlf strMsg=strMsg & "" & vbcrlf strMsg=strMsg & "" & vbcrlf strMsg=strMsg & "" & vbcrlf strMsg=strMsg & "" & vbcrlf strMsg=strMsg & "" & vbcrlf strMsg=strMsg & "" & vbcrlf strMsg=strMsg & "" & vbcrlf strMsg=strMsg & "" & vbcrlf strMsg=strMsg & "" & vbcrlf strMsg=strMsg & "" & vbcrlf strMsg=strMsg & "" & vbcrlf strMsg=strMsg & "" & vbcrlf strMsg=strMsg & "" & vbcrlf strMsg=strMsg & "" & vbcrlf strMsg=strMsg & "" & vbcrlf strMsg=strMsg & "" & vbcrlf strMsg=strMsg & "" & vbcrlf strMsg=strMsg & "" & vbcrlf strMsg=strMsg & "" & vbcrlf strMsg=strMsg & "" & vbcrlf strMsg=strMsg & "" & vbcrlf strMsg=strMsg & "" & vbcrlf strMsg=strMsg & "" & vbcrlf strMsg=strMsg & "" & vbcrlf strMsg=strMsg & "" & vbcrlf strMsg=strMsg & "" & vbcrlf strMsg=strMsg & "" & vbcrlf strMsg=strMsg & "" & vbcrlf strMsg=strMsg & "" & vbcrlf strMsg=strMsg & "" & vbcrlf strMsg=strMsg & "" & vbcrlf strMsg=strMsg & "" & vbcrlf strMsg=strMsg & "" & vbcrlf strMsg=strMsg & "" & vbcrlf strMsg=strMsg & "" & vbcrlf strMsg=strMsg & "" & vbcrlf strMsg=strMsg & "" & vbcrlf strMsg=strMsg & "" & vbcrlf strMsg=strMsg & "" & vbcrlf strMsg=strMsg & "" & vbcrlf strMsg=strMsg & "
नाम" & name & "
मोबाइल नं." & contactno & "
इमेल" & email & "
ठेगाना" & address & "
वस्तु " & item & "
उपलब्ध परिमाण" & available & "
मूल्य (प्रति परिमाण)" & price & "
विवरण" & description & "
हस्तान्तरण हुने स्थान" & location & "
" & vbcrlf strMsg=strMsg & "
" & vbcrlf strMsg=strMsg & "

नोटः कृपया तपाईले उल्लेख गर्नु भएको बिक्री परिमाण परिवर्तन भएमा हामीलाई जानकारी गराउँनुहोला । तापाईको बिक्री परिमाण तपाईले दिएको जानकारी अनुसार हामी परिवर्तन गर्नेछौँ ।

" & vbcrlf strMsg=strMsg & "

थप जानकारीकोलागि यहाँ क्लिक गर्नुहोस् वा +९७७–१–४४२३५६६/७७/८८ मा सम्पर्क गर्नुहोस् ।

" & vbcrlf strMsg=strMsg & "

धन्यवाद !

" & vbcrlf strMsg=strMsg & "

भवदीय,
मेक्स नेपाल

" & vbcrlf strMsg=strMsg & "
 
" & vbcrlf msgsubject="MexNepal - वस्तु सूचीकरण फारम" mailfrom="info@mexnepal.com" mailfromname="MexNepal" if (Trim(email)="") Then mailto="r&d@mexnepal.com" mailtoname="MexNepal" mailBCC="graphics@kappsoft.com" Else mailto=email mailtoname=name mailBCC="r&d@mexnepal.com,graphics@kappsoft.com" End If SenkAck=sendMail(strMsg,msgsubject,mailfrom,mailfromname,mailto,mailtoname,mailBCC) End function %>