|
<%@ Language=VBScript %>
<%
dim con
dim rs
set con= server.CreateObject ("ADODB.Connection")
set rs= server.CreateObject ("ADODB.Recordset")
con.Open "Provider= Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath ("user.mdb")
rs.open "select * from comt",con,3,3
%>
<%
if rs.BOF = true or rs.EOF = true then
Response.Redirect("query1.htm")
else
Response.Write(" " & "")
Response.Write("
" & "" & "| " & "" & "" & "Field" & " | " & "" & "" & "" & "Value")
do while not rs.EOF
Response.Write ("")
Response.Write (" " & "" & "
" & "" & "Name- " & " | " & "" & "
" & "" & rs(0).Value )
Response.Write ("" & "" & "
" & "" & "Type of comments- " & " | " & "" & "
" & "" & rs(1).Value)
Response.Write ("" & "" & "
" & "" & "Subject- " & " | " & "" & "
" & "" & rs(2).Value)
Response.Write ("" & "" & "
" & "" & "Phono No- " & " | " & "" & "
" & "" & rs(3).Value)
Response.Write ("" & "" & "
" & "" & "Email- " & " | " & "" & "
" & "" & rs(4).Value )
Response.Write ("" & "" & "
" & "" & "Address- " & " | " & "" & "
" & "" & rs(5).Value)
Response.Write ("" & "" & "
" & "" & "Comments- " & " | " & "" & "
" & "" & rs(6).Value)
Response.Write(" | ")
rs.MoveNext
loop
end if
%>
| | | | | | | |
