<% Session.lcid = 1053 Response.Buffer = true '========================================================================= 'Här har du möjlighet att ändra vissa saker. Dim inlsid inlsid = 10 ' Antal inlägg per sida Dim kantfarg kantfarg = "#4FAA2C" ' Färgen på ramarna '========================================================================= %> malmös peppbok <% Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("gastbok.mdb") IF Request("do") = "add" Then Dim namn, epost, hemsid, inlagg, ip, sida, allt, hemsida namn = Request("namn") epost = Request("epost") hemsid = Request("hemsida") inlagg = Request("inlagg") ip = Request.ServerVariables("REMOTE_ADDR") sida = Request.ServerVariables("SCRIPT_NAME") allt = namn & "$|$" & epost & "$|$" & hemsid & "$|$" & inlagg IF Len(hemsid) <> 0 then IF Left(hemsid,7) = "http://" then hemsida = hemsid ElSE hemsida = "http://"& hemsid END IF END IF IF Len(namn) = 0 then Session("min_gb_fel") = "Du glömde att fylla i ditt namn" Session("uppg") = allt Response.Redirect ""&sida&"#form" ELSEIF Len(inlagg) = 0 then Session("min_gb_fel") = "Du glömde att fylla i ett inlägg" Session("uppg") = allt Response.Redirect ""&sida&"#form" END IF SQL = "Insert Into gastbok (namn, hemsida, epost, inlagg, ip) Values('"& namn &"','"& hemsida &"','"&epost&"','"&inlagg&"','"&ip&"')" Connect.Execute(SQL) Response.Redirect sida & "#form" ELSE Set RecSet = Server.CreateObject("ADODB.Recordset") If Request("sida") = "" then page = 1 Else page = Request("sida") End If RecSet.CursorLocation = 3 RecSet.CacheSize = inlsid SQL = "Select * From gastbok Order By id DESC" RecSet.Open SQL, Connect, 3, 3 %>

Skriv ett inlägg längst ner...

<% IF RecSet.Eof then Response.Write "" ELSE RecSet.MoveFirst RecSet.PageSize = inlsid TotalPages = RecSet.PageCount RecSet.AbsolutePage = page Count = 0 Do While Not RecSet.EOF And Count < RecSet.PageSize %> <% Count = Count + 1 RecSet.MoveNext Loop END IF RecSet.Close Set RecSet = nothing Connect.Close Set Connect = nothing%> <%IF totalPages > 1 then%> <%END IF%> <% IF Len(Session("uppg")) <> 0 then myArray = split(Session("uppg"),"$|$") namn = myArray(0) epost = myArray(1) hemsida = myArray(2) inlagg = myArray(3) Session("uppg") = "" END IF %> <%IF TotalPages > 1 Then%> <%End If%>
Inga inlägg i gästboken...

<% text = server.htmlencode(RecSet("inlagg")) Response.Write Replace(text,vbCrLf,"
") svar = RecSet("svar") IF Len(svar) <> 0 then Response.Write "

SVAR:
" Response.Write Replace(svar,vbCrlf,"
") END IF %>
<% Response.Write "" Response.Write Server.HTMLEncode(RecSet("namn")) & "
" strDatum = Left(RecSet("datum"),10) Response.Write Replace(Replace(Cdate(strDatum),Date(),"Idag"),DateAdd("d", -1, Date),"Igår") & "
 " strEpost = RecSet("epost") IF Len(strEpost) <> 0 then Response.Write "
Epost" luft = "ja" END IF strHemsida = RecSet("hemsida") IF Len(strHemsida) <> 0 then IF Left(strHemsida,7) = "http://" then url = strHemsida ELSE url = "http://"& strHemsida END IF Response.Write "
Hemsida" END IF If luft = "ja" then response.Write "
 " End If %>
  
<% sidan = Request.ServerVariables("SCRIPT_NAME") '## -- Bakåt-länk funktion If (Int(Page)) <> 1 Then Response.Write "" Response.Write "« bakåt | " ELSE Response.Write "« Bakåt | " END IF '## -- Skriver ut alla sidnumrena For Pages = 1 To TotalPages If (Int(Pages)) = (Int(Page)) Then Response.Write "" & Pages & " " ELSE Response.Write "" Response.Write "" & Pages & " " END IF Next '## -- Framåt-länk funktion If (Int(Page)) <> (Int(TotalPages)) Then Response.Write "| " Response.Write "Framåt »" ELSE Response.Write "| Framåt »" END IF%>
   

Skriv i peppboken!
?do=add"> <%IF Len(Session("min_gb_fel")) <> 0 then%> <% Session("min_gb_fel") = "" END IF %>
namn:
e-post:
hemsida: 
inlägg:
  <%Response.Write ""&Session("min_gb_fel")&""%>
 
   
<%END IF%>