<%@ Language = VBScript%> <% opendb() 'Obj.Execute("Delete * from tender where exp_date <=now()") Count=3 str =dateadd("m",1,now()) Flag=false If Request.Form ("Save3")<> "" Or Request.Form ("Save3")<> null then Obj.Execute("Insert Into tender(equipment,buyer,company_name,head_adv,country,industry,req_adv,url,scope,solicitation,category,status,ann_date,bid_date,description,contact_person,designation,phone,fax,email,point_to_contact)Values ('"&Request.Form ("equipment")&"',"&Request.Form ("buyer")&",'"&Request.form("company_name")&"','"&Request.form("head_adv")&"','"&Request.form("country")&"','"&Request.form("industry")&"','"&Request.form("req_adv")&"','"&Request.form("url")&"','"&Request.form("scope")&"','"&Request.form("solicitation")&"','"&Request.form("category")&"','"&Request.form("status")&"','"&Request.form("ann_date")&"','"&Request.form("bid_date")&"','"&Request.form("description")&"','"&Request.form("contact_person")&"','"&Request.form("designation")&"','"&Request.form("phone")&"','"&Request.form("fax")&"','"&Request.form("email")&"','"&Request.form("point_to_contact")&"')" ) 'Obj.Execute("Insert Into tender(equipment,buyer)Values ('"&Request.Form ("equipment")&"',"&Request.Form ("buyer")&")") Flag=true End If %> Classified Adds
<%If Flag then%>

 

 

Congratulations! Your Tender has been added to database.
<%Else%>
 
Tender Information
Government Agency/Company name:
Heading of the Tender:*
Country if other than the USA
Your Industry
Your requirement for the Bid:*
The tender for sale or purchase:*
Website address /URL:
Buyer Seller
Scope:
Solicitation no #:
Category:
Status:
Announce Date: 
Bid Due Date
Description:
Contact Information
Contact person name:*
Contact person designation/title:*
Point of Contact: 
Email :*
Phone Number:*
Fax Number:
<%End If%>