Feed Back

 
E-Mail * PinCode
Name * Phone No
Address Fax No
City Note



*
State
Country
* Mandatory
           

 

<% if not isempty(Request.Form("cmdSave")) then dim vrMail,vrName,vrAdd,vrCity,vrState,vrCountry,vrPin,vrPh,vrFax,vrNote dim con,rs vrMail=Request.Form("txtEMail") vrName=Request.Form("txtName") vrAdd=Request.Form("txtAdd") vrCity=Request.Form("txtCity") vrState=Request.Form("txtState") vrCountry=Request.Form("txtCountry") vrPin=Request.Form("txtPin") vrPh=Request.Form("txtPhno") vrFax=Request.Form("txtFax") vrNote=Request.Form("txtDet") set con=server.CreateObject("ADODB.CONNECTION") set rs=server.CreateObject("adodb.recordset") dim self self=Request.ServerVariables ("APPL_PHYSICAL_PATH") dim my my="data\dbthattiar.mdb;" dim myself myself=self & my con.ConnectionString= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & myself &"Persist Security Info=False" con.open dim vrID vrID=0 rs.Open "Select Max(ID) as fldID from tblFeedback",con,1,3 if rs("fldID")>0 then vrID=rs("fldID")+1 else vrID=1 end if rs.Close rs.Open "tblFeedback",con,3,3 rs.AddNew rs("ID")=vrID rs("Email")=vrMail rs("Name")=vrName rs("Add")=vrAdd rs("City")=vrCity rs("State")=vrState rs("Country")=vrCountry rs("Pin")=vrPin rs("Ph")=vrPh rs("Fax")=vrFax rs("Det")=vrNote rs("Date")=Date rs.Update rs.Close con.Close set rs=nothing set con=nothing %> <%end if%>