<% dim rs_page,page_count page_count=0 set rs_page=server.createobject("adodb.recordset") rs_page.cursorlocation=aduseclient rs_page.open "select user_comments,user_name from guest_details",con if rs_page.eof=false then rs_page.pagesize=5 page_count=rs_page.pagecount if request.querystring("page") <> "" then rs_page.absolutepage=cint(request.querystring("page")) else rs_page.absolutepage=1 end if end if %>
 
seams natural
home fashion shows
profile gallery
exhibitions enquiry
guest book contact
products  
intro home
<%if request.querystring("page")="" then%>

<% if request.QueryString("status")="updated" then Response.Write "Record Updated" end if %>
Name*
Address
E-mail*
Telephone
About Yourself*
Comments*
* Mandatory Fields
<%else%>
" response.write "" response.write "" response.write " " response.write "" response.write "" rs_page.movenext if rs_page.eof then exit for end if next end if %>
<% if request.querystring("page")<>"" then for i=1 to rs_page.pagesize response.write "
" response.write replace(rs_page("user_comments"),"`","'") response.write "
" response.write "" & replace(rs_page("user_name"),"`","'") & "" response.write "

<%end if%>

<% if rs_page.eof=false or request.QueryString("page")<>"" then response.write "View Users Comments    " for i = 1 to page_count if request.QueryString("page")<>"" then if trim(request.QueryString("page")) = cstr(i) then response.write " " & i & "" else response.write " " & i & "" end if else response.write " " & i & "" end if next end if %>

 

<% rs_page.close() set rs_page=nothing con.close() set con=nothing %>