" & vbcrlf
End Function
%>
"" then
s1="select * from category where cat_id="&cat_id
set rs2=server.createobject("adodb.recordset")
rs2.open s1, db, 3
end if
if Supplier_Id <> "" then
sql="select * from Supplier where Supplier_Id="&Supplier_Id
else
sql="select * from Supplier where Supplier_Id=26669"
end if
set rs=server.createobject("adodb.recordset")
rs.open sql, db, 3
IF NOT rs.EOF then response.write ""&rs("Company_Name")&" Inquiry Form"
%>

To avoid re-entering your data for the next inquiry and save valuable time, we provide member registration at easy2source.com is absolutely free of cost. By registering, you will have full access to easy2source.com. We promise to keep your registration information confidential & secured. (Read our Privacy Policy)

"
'response.write "

"
'response.write ""
'response.write "For Guest:"
'response.write "Please provide your contact information here. This information will be provided to the recipient of this query along with your requirement details."
%>

"
response.write ""
response.write "

"
%>

"" then
txt=trim(txt)
varTxt=split(txt," ")
putSpace=""
for i=0 to ubound(varTxt)
if varTxt(i)<>"" then
txtVal=txtVal & putSpace & ucase(left(varTxt(i),1)) & lcase(right(varTxt(i),len(varTxt(i))-1))
end if
putSpace=" "
next
ProperCase=txtVal
end if
End function
%>