% Response.Buffer = True
Session.LCID = 1053
intPageSize = 15
intPage = Request.QueryString("page")
If intPage = "" Then intPage = 1
Function FormatStr(String)
on Error resume next
String = Replace(String, CHR(13), "")
String = Replace(String, CHR(10) & CHR(10), "
")
String = Replace(String, CHR(10), "
")
FormatStr = String
End Function
'=====================================================================================================================
'Öppnar databasen
'=====================================================================================================================
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};uid=;pwd=gurkmeja;dbq=" & Server.MapPath("../../../data/guestbook.mdb")
Set RSShow = Server.CreateObject("ADODB.Recordset")
Visa = "SELECT * FROM Gaster ORDER BY Datum DESC, ID DESC"
With RSShow
.ActiveConnection = Connect
.Source = Visa
.PageSize = intPageSize
.CursorType = 3
.LockType = 1
.Open
End With %>
Alice och Tildes Gästbok!!
Kul om du vill lämna ett avtryck i vår gästbok!
Här finner du vad andra har skrivit.
Vill du själv skriva några rader till oss om allt eller inget...?
Klicka då här: Ny kommentar!
Inlagd | Av | Kommentar |
---|---|---|
<% =RSShow("Datum") %> |
<% If Not RSShow("Mail") = "" Then %>
"><% =RSShow("Av") %>
<% If Not RSShow("Sida") = "" Then %>
<% If Not RSShow("Sida") = "http://" Then %>
<% End If %> <% End If %> <% Else %> <% If Not RSShow("Av") = "" Then %> <% =RSShow("Av") %> <% If Not RSShow("Sida") = "" Then %> <% If Not RSShow("Sida") = "http://" Then %> <% End If %> <% End If %> <% End If %> <% End If %> <% If Not RSShow("Sida") = "" Then %> <% If Not RSShow("Sida") = "http://" Then %> " target="_blank">Hemsida <% End If %> <% End If %> |
<% If Not RSShow("Rubrik") = "" Then %>
<% =RSShow("Rubrik") %> <% End If %> <% =FormatStr(RSShow("Text")) %> |
<% Call PageNavigation(intPage, intTotalPages)
Else
Response.Write "
Inga poster hittade..."
End If %>