<%@ Import Namespace="System.Data.SqlClient,System.Data" %> <%@ Register TagPrefix="MY" TagName="Title" src="top.ascx"%> <%@ Register TagPrefix="MY" TagName="Footer" src="bottom.ascx"%>
<% Dim rec_start as integer = request("start") Dim rec as integer = 0 Dim myConnection As New sqlconnection("server=127.0.0.1;database=guestbook;uid=guestbook;pwd=s3cr3t") Dim ds As DataSet = New DataSet Dim da As sqlDataAdapter ' create a data adapter da = New sqldataadapter("select * from dtdad where approved = 1 ORDER BY date DESC", myConnection) ' fill dataset da.Fill(ds, "Guestbook") Dim prow As DataRow Dim comments as string if rec_start > 0 then response.write("Previous Page") end if %> Sign the guest book <% if rec_start < ds.Tables("Guestbook").Rows.Count - 10 then response.write("Next Page") end if %>
There are <% response.write(ds.tables("Guestbook").rows.count) %> entries in the guest book
<% For Each prow In ds.Tables("Guestbook").Rows if rec >= rec_start and rec < rec_start + 10 then comments = prow("comments") comments = replace(comments,chr(13),"
") Response.Write("
" & prow("date") & "
Name :") if prow("email") <> "" then response.write("" & prow("name") & "") else response.write(prow("name")) end if response.write("
Location :" & prow("location") & "
Webpage :") if prow("webpage") <> "" then response.write("http://" & prow("webpage") & "") end if response.write("

Comments :

" & comments & "

" & chr(13)) end if rec = rec + 1 Next %>
<% if rec_start > 0 then response.write("Previous Page") end if %> Sign the guest book <% if rec_start < ds.Tables("Guestbook").Rows.Count - 10 then response.write("Next Page") end if %>