Hem | Bandet | Repertoar | Download | Gästboken | Nyheter | Länkar | Kontakta | Bildbyrån |   <% Response.Buffer = True %> <%If Request.Querystring("do")= "" Then%> Ditt namn: Din e-mail: Hemsida:   Meddelande: <% Set Conn = Server.CreateObject("ADODB.Connection") Set Recset = Server.CreateObject("ADODB.Recordset") Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("databas/main.mdb") Const perSida = 25 If Request.QueryString("page") = "" then page = 1 Else page = Request.QueryString("page") End If RecSet.CursorLocation = 3 RecSet.CacheSize = perSida SQL = "SELECT * From inlagg Order By Datum DESC" Recset.Open SQL, Conn, 1, 2 If RecSet.EOF Then%> <% Else RecSet.MoveFirst RecSet.PageSize = perSida TotalPages = RecSet.PageCount RecSet.AbsolutePage = page Count = 0 Do While Not RecSet.EOF And Count < RecSet.PageSize %> <%If Recset("Email") <> "" Then%> <%Else%> <%End If%> <% Count = Count + 1 Recset.MoveNext Loop Recset.Close Conn.Close Set Recset = Nothing Set Conn = Nothing End If %> ---------------------------------------------------------------------- Inget har skrivit i gästboken. ---------------------------------------------------------------------- Inskickat: <%=FormatDateTime(Recset("Datum"),2)%> av " onfocus=this.blur()><%=Recset("Namn")%> Inskickat: <%=FormatDateTime(Recset("Datum"),2)%> av <%=Recset("Namn")%> <%=Replace(Server.HTMLEncode(RecSet("Meddelande")), vbCrLf, " " )%> <%If RecSet("Hemsida") <> "" Then%> " target="_blank" onfocus="this.blur()"> Hemsida: <%End If%> ---------------------------------------------------------------------- <% If TotalPages <> 1 Then If (Int(page)) <> 1 Then %> « Bakåt <%Else%> <%End If%> <% For Pages = 1 To TotalPages %> <%If (Int(Pages)) = (Int(page)) Then%><%=Pages%> <%Else%><%=Pages%> <%End If%><%Next%> <%End If%> <% If (Int(page)) <> (Int(TotalPages)) AND Count > 0 Then %> Framåt » <%Else%> <%End If%> ---------------------------------------------------------------------- <%End If%> <%If Request.QueryString("do")= "jepp" Then Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("databas/main.mdb") Namn = Request.Form("namn") Email = Request.Form("email") Hemsida = Request.Form("hemsida") Meddelande = Request.Form("meddelande") Datum = Now If Hemsida <> "" Then If Left(Hemsida,7) = "http://" Then Hemsida = Hemsida Else Hemsida = "http://" & Hemsida End If End If SQL="Insert Into inlagg" SQL = SQL & "(Namn, Email, Hemsida, Meddelande, Datum)" SQL = SQL & "Values('"& Namn &"','"& Email &"','"& Hemsida &"','"&Meddelande &"',#"& Datum &"#)" 'Response.Write SQL Conn.Execute(SQL) Conn.Close Set Conn = Nothing Response.Redirect "gastbok.asp" End If%> <% If Request.Querystring("do") = "loggaut" Then Session.Abandon Response.Redirect "gastbok.asp" End If %> <% If Request.Querystring("do")= "nej" Then Response.Write "Fel lösenord!   Tillbaka" End If %> <%If Request.Querystring("do")= "admin" Then%> 1.    2.    <%End If%> <% If Request.Querystring("do") = "kolla" Then Session("koll") = Request.Form("password") Session("koll2") = Request.Form("password2") If Session("koll") = Losen And Session("koll2") = Losen2 Then Response.Redirect "gastbok.asp?do=ja" Else Response.Redirect "gastbok.asp?do=nej" End If End If %> <%If Request.Querystring("do")= "ja" AND Session("koll") = Losen AND Session("koll2") = Losen2 Then Set Conn = Server.CreateObject("ADODB.Connection") Set Recset = Server.CreateObject("ADODB.Recordset") Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("databas/main.mdb") Const perSida1 = 10 If Request.QueryString("page") = "" then page = 1 Else page = Request.QueryString("page") End If RecSet.CursorLocation = 3 RecSet.CacheSize = perSida1 SQL = "SELECT * From inlagg Order By Datum DESC" Recset.Open SQL, Conn, 1, 2 If RecSet.EOF Then%> Ingen har skrivit i din snygga gästboken! Logga ut <%Else RecSet.MoveFirst RecSet.PageSize = perSida1 TotalPages = RecSet.PageCount RecSet.AbsolutePage = page Count = 0 Do While Not RecSet.EOF And Count < RecSet.PageSize %> Inlägg: <%=Server.HTMLEncode(Left(RecSet("Meddelande"),40))%> " onfocus=this.blur()> Ta bort <% Count = Count + 1 Recset.MoveNext Loop Recset.Close Conn.Close Set Recset = Nothing Set Conn = Nothing%> <% If TotalPages <> 1 Then If (Int(page)) <> 1 Then %> « Bakåt <%Else%> <%End If%> <% For Pages = 1 To TotalPages %> <%If (Int(Pages)) = (Int(page)) Then%><%=Pages%> <%Else%><%=Pages%> <%End If%><%Next%> <%End If%> <% If (Int(page)) <> (Int(TotalPages)) Then %> Framåt » <%Else%> <%End If%> Logga ut <%End If End If%><% If Request.Querystring("do")= "tabort" AND Session("koll") = Losen AND Session("koll2") = Losen2 Then Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("databas/main.mdb") SQL="Delete * From inlagg Where ID=" & Request.Querystring("id") Response.Write SQL Conn.Execute(SQL) Conn.Close Set Conn = Nothing Response.Redirect "gastbok.asp?do=ja" End If %>