<% 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 %> Gästbok

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!

<% If Not RSShow.EOF Then RSShow.AbsolutePage = intPage intTotalPages = RSShow.PageCount Call PageNavigation(intPage, intTotalPages) %> <% x = 0 Do Until RSShow.EOF OR intCounter >= intPageSize intCounter = intCounter + 1 If x mod 2 = 0 Then bgcolor = "" & strTblBkgndM & "" Else bgcolor = "" & strTblBkgndL & "" End If %> <% x = x + 1 RSShow.MoveNext Loop RSShow.Close Set RSShow = Nothing Connect.Close Set Connect = Nothing %>
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 %>