%Response.Buffer=true%>
<%
if Request.Form("name")<>"" and Request.Form("Firm_name")<>"" then
set con=Server.CreateObject("ADODB.connection")
set rs_insert=Server.CreateObject("ADODB.recordset")
set rs1=Server.CreateObject("ADODB.recordset")
con.Open "dsn=dsn_forest"
dim sql_insert
name=Request.Form("name")
Firm_name=Request.Form("Firm_name")
address=Request.Form("address")
email=Request.Form("email")
phone=Request.Form("phone")
mobile=Request.Form("mobile")
subject=Request.Form("subject")
enquiry=Request.Form("enquiry")
sql_insert="INSERT INTO TBL_MARKET_ENQUIRY" _
& "(S_NAME, S_FIRM_NAME, S_ADDRESS, S_EMAIL, S_PHONE, "_
& "S_MOBILE, S_ENQUIRY, DT_DATE,S_SUBJECT) "_
& "VALUES ('"& name &"','"& Firm_name &"','"& address &"','"& email &"','"& phone &"','"& mobile &"','"& enquiry &"',#"& date() &"#,'"& subject &"')"
'response.write sql_insert
'response.end
rs_insert.Open sql_insert,con,3,1
Response.Redirect "marketEnquirySignip.asp"
'rs_insert.Close
'con.Close
end if
%>
Chhattisgarh Minor Forest Produce Co-Operative Fedration Ltd.
 |
|
|
|
Content Provided By
"Chhattisgarh State Minor Forest Produce Co-Operative Federation Ltd." Best viewed in Internet Explorer 5.0 & above with 800 x 600
Resolution. |
|
|
|
| |