|
Vendégkönyv
<%
If Request.QueryString("page") = "" Then
CurrPage = 1
Else
CurrPage = Request.QueryString("page")
End If
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Provider = "Microsoft.Jet.OLEDB.4.0;"
Conn.Properties("data source")= Database
Conn.open 'Open Database
Set Messages = Server.CreateObject("ADODB.RecordSet")
Messages.CursorLocation = 3
Messages.CursorType = 3
Messages.Open "SELECT * FROM Messages Where Book=" & GuestBook & " ORDER BY MessageDate DESC, MessageTime DESC", Conn
If Messages.EOF Then
%>
A vendégköny jelenleg üres
<%
Else
Messages.PageSize = PageSize
PageNum = Messages.PageCount
Messages.AbsolutePage = CurrPage
CurrRec = 0
Do Until Messages.EOF Or CurrRec>=PageSize
%>
Név: <%=Messages("MessageWriter")%>
<%=Messages("MessageDate")%> <%=Messages("MessageTime")%>
Bejegyzés:
<%=Messages("Message")%>
<%
Messages.MoveNext
CurrRec = CurrRec + 1
Loop
%>
Oldalak:
<%
For I=1 To PageNum
If Trim(cStr(I)) = Trim(cStr(CurrPage)) Then
Response.Write "[" & I & "]"
Else
Response.Write " " & I & ""
End If
Next
%>
<%
End If
Messages.Close
Set Messages = Nothing
Conn.Close
Set Conn = Nothing
%>
Ha most támadt kedve megírni a véleményét, tessék:
Kérem, a Név és Vélemény mezőket feltétlen töltse ki!
|
