<%
up " "
'on error resume next
dim db
dim tempflag
tempflag = request.querystring("tempflag")
if tempflag="" then
tempflag = request.form("tempflag")
end if
if tempflag="false" then
connection
set rs13=server.createobject("adodb.recordset")
s2="select * from directory_inquiry where Supplier_id="&session("myid")&" "
rs13.open s2 , db, 3
set rs12=server.createobject("adodb.recordset")
s2="select * from product_inquiry where Supplier_id="&session("myid")&" "
rs12.open s2 , db, 3
response.write "
"
'response.write ""
response.write "Step - 3"
'response.write "To list your product range on easy2source.com, kindly enter your product details in the form provided below."
response.write "
You have completed step-1
You have completed step-2.
To list your product range on easy2source.com, kindly enter your product details in the form provided below.
"
end if
connection
dim myid
myid=request.form("supplier_id")
accessdb="temp.mdb"
tempDSN="DRIVER={Microsoft Access Driver (*.mdb)};"
tempDSN=tempDSN & "DBQ=" & server.mappath(accessdb)
set tempdb=server.createobject("adodb.connection")
tempdb.open tempDSN
set rs=server.createobject("adodb.recordset")
set rs1=server.createobject("adodb.recordset")
'response.Write(session("myid")&"--session Id"&rs("company_name"))
if tempflag="false" then
rs.open "select Company_name from Supplier where supplier_id="&session("myid"), db, 3
response.write "
"
response.write ""&rs("company_name")&" "
if session("Company_name")="" then session("Company_Name")=rs("company_name")
rs.close
else
if session("my_id")="" then
session("myid")=request.querystring("supplier_id")
end if
' rs.open="select Company_name from Supplier where supplier_id="&session("myid"), tempdb, 3
'rs.close
''response.Write(myid)
''response.Write(tempflag&"-tempflag")
'response.End()
end if
'''''if tempflag="false" then
'''' response.write "
"
'''' response.write ""&rs("company_name")&" "
'''''if session("Company_name")="" then session("Company_Name")=rs("company_name")
''''end if
%>
Please enter your Products detail : (Fields marked with * are mandatory)
"
rs.close
set rs=nothing
db.close
set db=nothing
response.write ""
response.write "
"
response.write "easy2source.com will update your data in the relevant category. You will receive inquires directly from the interested buyers through E-mail. You can also check the total inquiries recieved for your product by entering login name & password in 'View Your Inquiries' on the Home Page.