%
dim SqlStmt
if Request.ServerVariables("REQUEST_METHOD")="POST" then
Err.Clear
set connsearch=server.createobject("adodb.connection")
dsnname="DSN=kothariinfotech;UID=kothari;PWD=itech713"
connsearch.Open dsnname
firstname =Request.Form("firstname")
lastname =Request.Form("lastname")
designation =Request.Form("designation")
email =Request.Form("email")
phone =Request.Form("phone")
mobile =Request.Form("mobile")
fax =Request.Form("fax")
companyname =Request.Form("companyname")
companyurl =Request.Form("companyurl")
companyoverview=Request.Form("companyoverview")
segmentsserve=Request.Form("segmentsserve")
productoverview=Request.Form("productoverview")
annualrevenue=Request.Form("annualrevenue")
nosuppstaff=Request.Form("nosuppstaff")
noyrsinbuss=Request.Form("noyrsinbuss")
country=Request.Form("country")
othercountry=Request.Form("othercountry")
state=Request.Form("state")
city=Request.Form("city")
pincode=Request.Form("pincode")
address1=Request.Form("address1")
address2=Request.Form("address2")
refbussname1=Request.Form("refbussname1")
refcontname1=Request.Form("refcontname1")
refphone1=Request.Form("refphone1")
reffax1=Request.Form("reffax1")
refemail1=Request.Form("refemail1")
refurl1=Request.Form("refurl1")
refbussname2=Request.Form("refbussname2")
refcontname2=Request.Form("refcontname2")
refphone2=Request.Form("refphone2")
reffax2=Request.Form("reffax2")
refemail2=Request.Form("refemail2")
refurl2=Request.Form("refurl2")
refbussname3=Request.Form("refbussname3")
refcontname3=Request.Form("refcontname3")
refphone3=Request.Form("refphone3")
reffax3=Request.Form("reffax3")
refemail3=Request.Form("refemail3")
refurl3=Request.Form("refurl3")
otherdetails=Request.Form("otherdetails")
SqlStmt="Select * from dealerform"
set RS=Server.CreateObject("ADODB.Recordset")
RS.Open SqlStmt,connsearch
if rs.EOF then
SqlStmt = "Insert into dealerform values('"
SqlStmt = SqlStmt & firstname &"','"
SqlStmt = SqlStmt & lastname &"','"
SqlStmt = SqlStmt & designation &"','"
SqlStmt = SqlStmt & email &"','"
SqlStmt = SqlStmt & phone &"','"
SqlStmt = SqlStmt & mobile &"','"
SqlStmt = SqlStmt & fax &"','"
SqlStmt = SqlStmt & companyname &"','"
SqlStmt = SqlStmt & companyurl &"','"
SqlStmt = SqlStmt & companyoverview &"','"
SqlStmt = SqlStmt & segmentsserve &"','"
SqlStmt = SqlStmt & productoverview &"','"
SqlStmt = SqlStmt & annualrevenue &"','"
SqlStmt = SqlStmt & nosuppstaff &"','"
SqlStmt = SqlStmt & noyrsinbuss &"','"
SqlStmt = SqlStmt & country &"','"
SqlStmt = SqlStmt & othercountry &"','"
SqlStmt = SqlStmt & state &"','"
SqlStmt = SqlStmt & city &"','"
SqlStmt = SqlStmt & pincode &"','"
SqlStmt = SqlStmt & address1 &"','"
SqlStmt = SqlStmt & address2 &"','"
SqlStmt = SqlStmt & refbussname1 &"','"
SqlStmt = SqlStmt & refcontname1 &"','"
SqlStmt = SqlStmt & refphone1 &"','"
SqlStmt = SqlStmt & reffax1 &"','"
SqlStmt = SqlStmt & refemail1 &"','"
SqlStmt = SqlStmt & refurl1 &"','"
SqlStmt = SqlStmt & refbussname2 &"','"
SqlStmt = SqlStmt & refcontname2 &"','"
SqlStmt = SqlStmt & refphone2 &"','"
SqlStmt = SqlStmt & reffax2 &"','"
SqlStmt = SqlStmt & refemail2 &"','"
SqlStmt = SqlStmt & refurl2 &"','"
SqlStmt = SqlStmt & refbussname3 &"','"
SqlStmt = SqlStmt & refcontname3 &"','"
SqlStmt = SqlStmt & refphone3 &"','"
SqlStmt = SqlStmt & reffax3 &"','"
SqlStmt = SqlStmt & refemail3 &"','"
SqlStmt = SqlStmt & refurl3 &"','"
SqlStmt = SqlStmt & otherdetails & "');"
connsearch.Execute(SqlStmt)
Response.Write "
Congratulations!! Your information is successfully Registered."
End If
else
%>
.:: Welcome to Kothari Info-Tech Ltd. » Business » Becoming a Dealer
::.
 |
 |
   |
 |
 |
 |
| Copyright © 2003 Kothari Info-Tech Ltd. All Rights Reserved. |
<%
End If
%>