Gästebuch Vill du uppmärksamma oss på något vi glömt berätta om Västtyskland, eller vill du bara tacka för sajten och säga hur glad du blivit över att hitta hit? Skriv ett meddelande här nedanför! <% dim schreiben schreiben = request.QueryString("schreiben") IF schreiben = "" THEN %> Jag vill lämna ett meddelande i gästboken >>> <% ELSE 'kolla IP-adresser först... 'Här finns utvecklingspotential - att skriva till en lista som loopar igenom en spärrlista för att stoppa ip-adresser från att göra inlägg. Nu spärrar jag bara Alex från Eslöv (tre meddelanden 2003-12-13). 'dim userIP 'userIP = request.servervariables("Remote_addr") 'IF userIP = "212.31.160.202" THEN ' 'kodidé för framtida spärrlista 'Börja med att rensa spärrlistan. Ta bort alla spärrar där datumet är passerat: Set rsTABORT = EventDb.Execute("DELETE FROM ip WHERE ipSlutsparrDatum < # "& Date &" #") 'Nu ska vi söka efter aktuell adress. Finns den? Ja, då blir det inget skrivet... sqlIPKOLL = "SELECT ip from ip WHERE ip = '"&request.servervariables("REMOTE_ADDR") & "'" Set rsIPKOLL = EventDb.Execute(sqlIPKOLL) if rsIPKOLL.eof then %> Namn/signatur E-post (ej obligatorisk)     Meddelandets rubrik: Mitt meddelande: (max 500 tecken)   Ange bokstavs- och sifferkombinationen till vänster i fältet nedan.          <% end if end if dim id, antalRader, gastbokMeddelandeKorr, kortTid id = request.querystring("id") 'Ställer in recordsetet så att det är öppet och går att gå framåt och bakåt i: Set rs = Server.CreateObject("ADODB.Recordset") rs.CursorType = adOpenStatic rs.CursorLocation = 3 'Värdet "3" ska egentligen hämtas från ADOVBS.INC, men jag skriver in det istället för att hämta ' - det är ju bara detta enda av de hundratals objekten vi behöver! rs.PageSize = 5 'Ställer in hur många kommentarer som visas per sida 'Testar att värdet på querystringen "id" är en siffra och inte tex en bokstav: IF IsNumeric(id) = False THEN response.write(" ") response.write("Du har försökt visa en sida som inte finns! Gå till sidan där du väljer vilken sida du vill visa >>>") ELSEIF CDbl(id) <> Cint(id) THEN response.write(" ") response.write("Du har försökt visa en sida som inte finns i databasen! Gå till sidan där du väljer vilken sida du vill visa >>>") ELSE 'Om värdet på "id" är godkänt ska vi alltså köra denna kod: 'Väljer vilken sida som ska visas: IF id = "" THEN id = cInt(1) ELSEIF id = 0 THEN id = cInt(1) ELSE id = cInt(id) END IF rs.Open "SELECT gastbokNamn, gastbokRubrik, gastbokEpost, gastbokDatum, gastbokTid, gastbokMeddelande, gastbokKommentar FROM gastbok ORDER BY gastbokID DESC", EventDb IF rs.EOF THEN response.write(" ") response.write("Gästboken är tom! Tänka sig, du kan bli först att skriva i vår gästbok. Ta chansen!!") ELSE rs.AbsolutePage = id antalRader = 0 Set gastbokNamn = rs("gastbokNamn") Set gastbokRubrik = rs("gastbokRubrik") Set gastbokEpost = rs("gastbokEpost") Set gastbokDatum = rs("gastbokDatum") Set gastbokTid = rs("gastbokTid") Set gastbokMeddelande = rs("gastbokMeddelande") Set gastbokKommentar = rs("gastbokKommentar") response.write(" ") response.write("") While NOT rs.EOF And antalrader < rs.Pagesize response.write(""& gastbokRubrik &" ") response.write("av ""& gastbokNamn &""") IF gastbokEpost <> "." THEN response.write(" ("& gastbokEpost &"), ") ELSE response.write(", ") END IF response.write(""& gastbokDatum &" ") kortTid = Left(gastbokTid, 5) response.write("kl "& kortTid &". ") IF gastbokMeddelande <> "." THEN gastbokMeddelandeKorr = Replace(gastbokMeddelande, vbCrLf, " ") gastbokMeddelandeKorr = Replace(gastbokMeddelandeKorr, vbCr, " ") gastbokMeddelandeKorr = Replace(gastbokMeddelandeKorr, vbLf, " ") response.write(""& gastbokMeddelandeKorr &"") ELSE response.write("Inget meddelande lämnades.") END IF IF gastbokKommentar <> "." THEN response.write("     kommentar: "& gastbokKommentar &"") END IF response.write(" ") antalrader = antalrader + 1 response.flush rs.Movenext Wend IF id > rs.PageCount THEN response.write("Du har försökt visa en sida som inte finns i databasen! Gå till sidan där du väljer vilken sida du vill visa >>>") ELSE Response.Write("Sida "& id &" av "& rs.PageCount &" ") ''''''''''''''''''''''''''''''''''''''''''''''''''''' 'HÄR KOMMER EN KOMPLETT NAVIGERIN ' Först VISAR tabell med SIDNUMMER: Const COLUMN_COUNT = 10 ' or 2 or 4 or ... response.write(" ") column = 0 ' initialize counter For I = 1 To rs.PageCount If column = 0 Then Response.Write "" ''''''''''''''''''''' If I = id Then 'id är detsamma som iPageCurrent Response.Write "" Else Response.Write "" END if ''''''''''''''''''''' column = column + 1 If column = COLUMN_COUNT Then Response.Write "" & vbNewLine column = 0 ' startar på nytt! End If Next 'Fixar till sista raden.. If column <> 0 Then For c = column To COLUMN_COUNT Response.Write "" Next Response.Write "" & vbNewLine End If response.write(" | " & I & " | "& I &" |   ") 'SEDAN, en oldstyle-lista. dim forra, nasta forra = id - 1 nasta = id -- 1 'dubbelminus blir plus - dessutom kodmässigt säkrare Response.Write(" ") Response.Write(" ") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write(" ") 'Cell 1: Visar länk till förstasidan: 'Om vi är på sidan två visar vi inte länken till första sidan - den visas ju ändå av "Cell 2" nedan. 'IF forra = 1 THEN Response.Write(" ") 'ELSEIF id <> 1 THEN 'Response.Write("<<< Första sidan") 'ELSE Response.Write(" ") 'END IF Response.Write(" ") 'Cell 2: Visar länk till förra sidan: ' IF id > 1 THEN Response.Write("<<< Sida "& forra &"") ELSE Response.Write(" ") END IF Response.Write(" ") 'Cell 3: Visar länk till nästa sida: IF id <> rs.PageCount THEN Response.Write("Sida "& nasta &" >>>") ELSE Response.Write(" ") END IF Response.Write(" ") 'Cell 4: Visar länk till sista sidan: 'Om vi är på näst sista sidan visas vi inte länken till sista sidan - den visas ju ändå av "Cell 3" ovan. ' IF nasta = rs.PageCount THEN Response.Write(" ") ' ELSEIF id < rs.PageCount THEN ' Response.Write("Sista sidan >>>") ' ELSE Response.Write(" ") ' END IF Response.Write(" ") ' ''''''''''''''''''''''''''''''''''''''''''''''''''''' 'Stäng och släck detta resurskrävande recordset: rs.close set rs = nothing ''''''''''''''''''''''''''''''''''''''''''''''''''''' END IF END IF Response.Write("") END IF %>