<%
dim rs,conn,sex,anna,comm
set conn=server.createobject("ADODB.Connection")
phypath=server.mappath("/emrc/feedback.mdb")
conn.connectionstring="Provider=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & phypath
conn.open
set rs=server.createobject("ADODB.Recordset")
if request.queryString("house")="on" then
house="yes"
else
house="no"
end if
if request.queryString("shop")="on" then
shop="yes"
else
shop="no"
end if
if request.queryString("vehicle")="on" then
vehicle="yes"
else
vehicle="no"
end if
if request.queryString("1")="on" then
time1="yes"
else
time1="no"
end if
if request.queryString("2")="on" then
time2="yes"
else
time2="no"
end if
if request.queryString("3")="on" then
time3="yes"
else
time3="no"
end if
if request.queryString("4")="on" then
time4="yes"
else
time4="no"
end if
if request.queryString("5")="on" then
time5="yes"
else
time5="no"
end if
if request.queryString("6")="on" then
time6="yes"
else
time6="no"
end if
if request.queryString("suryan")="on" then
suryan="yes"
else
suryan="no"
end if
if request.queryString("mirchi")="on" then
mirchi="yes"
else
mirchi="no"
end if
if request.queryString("rainbow")="on" then
rainbow="yes"
else
rainbow="no"
end if
if request.queryString("gold")="on" then
gold="yes"
else
gold="no"
end if
strsql = "insert into feed(name,sex,edu,occu,income,location,house,shop,vehicle,time1,"
strsql = strsql & "time2,time3,time4,time5,time6,suryan,mirchi,rainbow,gold,anna,comm,comments) "
strsql = strsql &"values ('" & request.querystring("name") & "','"
strsql = strsql & request.querystring("sext") & "','"
strsql = strsql & request.querystring("edu") & "','" & request.querystring("occu") & "','"
strsql = strsql & request.querystring("income") & "','" & request.querystring("location")
strsql = strsql & "',"
strsql = strsql & house & "," & shop & "," & vehicle & "," & time1 & "," & time2
strsql = strsql & "," & time3 & "," & time4 & "," & time5 & "," & time6 & ","
strsql = strsql & suryan & ","
strsql = strsql & mirchi & "," & rainbow & "," & gold
strsql = strsql & "," & request.querystring("awaret") & "," & request.querystring("commt")
strsql = strsql & ",'" & request.querystring("comments") & "')"
conn.execute strsql
%>
Thank you for sparing time and giving us your valuable feedback!