<% on error resume next up " " dim db response.write "
" response.write "Home >> " response.write "Submit Your Company :
" dim str1,str2,company,address,city,pin,state,country,tel1,tel2,fax, website,login_name,password,contact_person,designation,products,profile,email str1=request.form("combo1") str2= request.form("combo2") count=request.form("count") count1=request.form("count1") company=request.form("company") address=request.form("address") city=request.form("city") pin = request.form("pin") state = request.form("state") country=request.form("country") tel1 =""&request.form("CountryCode1")&"-"&request.form("AreaCode1")&"-"&request.form("tel1") tel2 =""&request.form("CountryCode2")&"-"&request.form("AreaCode2")&"-"&request.form("tel2") fax =""&request.form("CountryCode3")&"-"&request.form("AreaCode3")&"-"&request.form("fax") website = request.form("website") login_name= request.form("login_name") password= request.form("password") contact_person = request.form("contact_person") designation = request.form("designation") products = request.form("products") profile=request.form("profile") email = request.form("email") dim flag flag=true count=0 response.write "" response.write "" 'response.write "You have completed step-2. " response.write "
" response.write "" response.write "Step - 1" 'response.write "You have completed step-1." response.write "" response.write "Step - 2" response.write "" response.write "Step - 3" 'response.write "To list your product range on easy2source.com,
kindly click on 'Submit Products Now'." response.write "
You have completed step-1. You have completed step-2. To list your product range on easy2source.com,
kindly click on 'Submit Products Now'.

" response.write "" registration response.write "

" Bottom_Patch %> <% Sub registration accessdb="temp.mdb" myDSN="DRIVER={Microsoft Access Driver (*.mdb)};" myDSN=myDSN & "DBQ=" & server.mappath(accessdb) set db=server.createobject("adodb.connection") set rs=server.createobject("adodb.recordset") db.open myDSN dim sql if len(request.form("profile"))>200 then profile=mid(request.form("profile"),1,200) end if sql="insert into supplier(company_name, contact_person, designation, address, city, pin, state,country ,tel1, tel2,paid,fax, email, website,update_id,date_added,sessionid) values('"&replace(request.form("company"),"'","")&"', '"&replace(request.form("contact_person"),"'","")&"', '"&replace(request.form("designation"),"'","")&"', '"&replace(request.form("address"),"'","")&"', '"&replace(request.form("city"),"'","")&"', '"&request.form("pin")&"', '"&replace(request.form("state"),"'","")&"', '"&replace(request.form("country"),"'","")&"','"&tel1&"', '"&tel2&"','0', '"&fax&"', '"&replace(request.form("email"),"'","")&"','"&website &"',0,'"&date&"',"&session.SessionID&")" db.execute(sql) rs.open "select top 1 supplier_id from supplier where sessionid="&session.SessionID&" order by supplier_id desc" ,db,3 sql="insert into profile values("&rs("supplier_id")&",'"&replace(profile,"'","")&"',0)" db.execute(sql) sql="insert into products values("&rs("supplier_id")&",'"&replace(request.form("products"),"'","")&"',0)" db.execute(sql) sql="insert into login values("&rs("supplier_id")&",'"&request.form("login_name")&"','"&request.form("password")&"',0)" db.execute(sql) if cint(request.form("count"))>0 then txtVal="" for i=1 to cint(request.form("count")) txtVal=cint(request.form("A" & i)) if txtVal>0 then sql="insert into cat values(" & txtVal & ","&rs("supplier_id") &",0)" db.execute(sql) end if next end if if cint(request.form("count1"))>0 then for i=1 to cint(request.form("count1")) txtVal=cint(request.form("B" & i)) if txtVal>0 then sql="insert into cat values("& txtVal &","&rs("supplier_id") &",0)" db.execute(sql) end if next end if response.write "
Congratulation !

Your Company has been successfully submitted. You can check your listing after a fortnight.

" response.write "That is not all ! You can also enter unlimited product profiles absolutely free. " response.write "

Click here to proceed to step-3 : Submit Products

" responsemail rs.close set r=nothing set rs=nothing db.close set db=nothing End Sub %> <% sub responsemail server.scripttimeout=600 dim message flag=true dim mymail 'Set mymail = Server.CreateObject("CDO.Message") 'mymail.SUBJECT="Registration in Directory Section of easy2source.com" 'mymail.To=""&request.form("email") 'mymail.FROM="editor@easy2source.com" 'set mymail = Server.CreateOBject("jmail.SMTPMail") ' mymail.Logging = true ' mymail.silent = true ' mymail.ContentType = "text/html" ' mymail.sender = "editor@easy2source.com" ' mymail.AddRecipient request.form("email") ' mymail.Subject = "Registration in Directory Section of easy2source.com" message="
" message=message&"
easy2source
              .com

" message=message&"Dear "&request.form("contact_person")&",

" message=message&"Thank you for Registering on easy2source.com.

This registration will make your company information accessible to thousands of buyers visiting easy2source.com to source various suppliers and their product information in your product category

" message=message&"You have submitted following details :

" message=message&"Login Name : "&request.form("login_name") message=message&"
Password : "&request.form("password") message=message&"
Company Name : "&request.form("company") message=message&"
Contact Person : "&request.form("contact_person") message=message&"
Address : "&request.form("address") message=message&"
Email : "&request.form("email") message=message&"
Product Profile : "&request.form("products") message=message&"
Company Profile : "&request.form("profile") message=message&"

Your company name will be updated within a fortnight. You can view your listing by entering your login name and password.

How to Submit your products? Free
To submit your products, please visit 'Submit Your Products' section.

How to Update your listing? Free
To update your listing, please visit 'Update Your Listing' section.

" message=message&"How to create personalised Corporate Page? Free
You can also use your login and password to create your personalised 'Corporate Webpage', once your company details are updated. " message=message&"

Wishing you all the best and anticipating your continous patronage.

Thank You,

Minesh Modi
Editor - easy2source.com

" message=message&"More benefits from easy2source.com
FREE Product Alert : Register your email address to get regular email updates on latest products with complete sourcing details." 'mymail.HtmlBODY=message+mess2 'on error resume next 'mymail.send ' mymail.Body = message 'mymail.Send("mail.easy2source.com") ' mymail.serveraddress = "66.7.148.50" ' mymail.priority = 1 'on error resume next ' mymail.Execute ' set mymail=nothing Dim iMsg Dim iConf Dim Flds Dim strHTML Const cdoSendUsingPort = 2 set iMsg = CreateObject("CDO.Message") set iConf = CreateObject("CDO.Configuration") Set Flds = iConf.Fields With Flds .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "96.127.179.226" .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 25 .Update End With With iMsg Set .Configuration = iConf .To = request.form("email") '.Bcc = "admin@embroideryemotions.com" .Bcc = "editor@easy2source.com" .From = "editor@easy2source.com" .Subject = "Registration in Directory Section of easy2source.com" .HTMLBody = message .Send End With Set iMsg = Nothing Set iConf = Nothing Set Flds = Nothing 'dim mymail5 ' set mymail5 = Server.CreateOBject("jmail.SMTPMail") ' mymail5.Logging = true ' mymail5.silent = true '' mymail5.ContentType = "text/html" ' mymail5.sender = request.form("email") ' mymail5.AddRecipient "editor@easy2source.com" '' mymail5.Subject = "Registration in Directory Section of easy2source.com" ' mymail5.Body = message ' mymail5.serveraddress = "66.7.148.50" ' mymail5.priority = 1 ' mymail5.Execute ' set mymail5=nothing end sub %> <% sub category_display connection dim i i=1 count=0 count1=0 set rs=server.createobject("adodb.recordset") set rs1=server.createobject("adodb.recordset") response.write "

Your document is missing information or needs correction. Please select the sub category from below." response.write "

" if not str1="none" then rs.open "select index,category from category where cat_id ="&str1, db, 3 rs1.open "select cat_id ,category from category where index like '"&rs("index") &"%'",db,3 response.write "Select Sub category for "&rs("category")&"
" while not rs1.eof if len(request.form("A"&i))>0 then response.write ""&rs1("category")&"
" else response.write ""&rs1("category")&"
" end if i=i+1 count=count+1 rs1.movenext wend rs.close rs1.close end if response.write"

" i=1 if not str2="none" then rs.open "select index,category from category where cat_id ="&str2, db, 3 rs1.open "select cat_id ,category from category where index like '"&rs("index") &"%'",db,3 response.write "Select Sub category for "&rs("category")&" Category
" while not rs1.eof if len(request.form("B"&i))>0 then response.write ""&rs1("category")&"
" else response.write ""&rs1("category")&"
" end if i=i+1 count1=count1+1 rs1.movenext wend rs.close rs1.close end if response.write"" response.write"" response.write"" response.write"" response.write"" response.write"" response.write"" response.write"" response.write"" response.write"" response.write"" response.write"" response.write"" response.write"" response.write"" response.write"" response.write"" response.write"" response.write"" response.write"" response.write"" response.write "

" response.write "

" end sub %>
<% Sub Bottom_Patch %>

| Small Business Directory | About Us | Site Map | Contact Us | Partner |
Creative Commons License
easy2source by http://www.easy2source.com is licensed under a Creative Commons Attribution 2.5 India License.
Based on a work at www.easy2source.com.
Permissions beyond the scope of this license may be available at http://www.easy2source.com

--------------------------------------------------------------------------------
easy2source.com is a division of Netlink Solutions (India) Ltd.
Website Development and Search Engine Optimization by: Aditya Infotech | Business Directory | Gifts And Accessories

Small Business Directory, Business Directory, Exporters Directory, Business Directory India, Indian Exporters, Indian Products, Indian Suppliers


<% End Sub %>