<% If Request.QueryString("val") = "skicka" Then If InStr(Request.Form("vad"),"a href=") > 0 Then Session("fel")= "Sorry inga spamrobotar här...

" ElseIf InStr(Request.Form("vad"),"http://") > 0 Then Session("fel")= "Sorry inga spamrobotar här...

" ElseIf Trim(Request.Form("vem")) = "" Then Session("fel")= "Du måste fylla i ett namn...

" ElseIf Trim(Request.Form("vad")) = "" Then Session("fel")= "Du mäste göra ett inlägg...

" End If If Session("fel") <> "" Then Response.Redirect "default.asp?val=skriv" End If text = Request.Form("vad") text = Server.HTMLEncode(text) text = Replace(text,vbCrLf,"
") vem = Server.HTMLEncode(Request.Form("vem")) hur = Server.HTMLEncode(Request.Form("hur")) var = Server.HTMLEncode(Request.Form("var")) %> [an error occurred while processing this directive] <% Set RecSet = Server.CreateObject("ADODB.Recordset") Addera = "SELECT * FROM _gastbok" RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic RecSet.Addnew RecSet("vem") = vem RecSet("hur") = hur RecSet("var") = var RecSet("vad") = text RecSet("ip") = Request.ServerVariables("REMOTE_ADDR") RecSet("datum") = Date() RecSet.Update RecSet.Close Connect.Close Set RecSet = Nothing Set Connect = Nothing Response.Redirect "default.asp?val=las" End If %>

[an error occurred while processing this directive]
[an error occurred while processing this directive]	<% If Request.Querystring("val") <> "las" Then %> <% If Session("fel") <> "" Then Response.Write Session("fel") Session("fel") = "" End If %> Gästboken Skriv gärna några rader i vår gästbok. Namn * E-post Hemsida Inlägg *      * = obligatoriska fält <% End If If Request.Querystring("val") = "las" Then %> [an error occurred while processing this directive] <% Set RecSet = Server.CreateObject("adodb.recordset") Addera = "SELECT * FROM _gastbok ORDER BY datum DESC" RecSet.open Addera, Connect, adopenstatic, adlockoptimistic Count = 0 Do Until RecSet.eof Count = Count +1 RecSet.MoveNext Loop If Int(Count/30) = Count/30 Then antal_sidor = Count/30 Else antal_sidor = Int(Count/30)+1 End If RecSet.Close RecSet.open Addera, Connect, adopenstatic, adlockoptimistic %> <% RecSet.MoveNext Loop RecSet.Close Connect.Close Set RecSet = Nothing Set Connect = Nothing %> Fler sidor: <% For x=1 To antal_sidor %>  <%=x%>  <% Next If Request.Querystring("skipp") = "" Then skipp = 0 Else skipp = Request.Querystring("skipp") End If For x=1 To skipp For y=1 To 30 RecSet.MoveNext Next Next z=0 Do Until RecSet.Eof Or z=30 z=z+1 %> Skrivet av:   <%= Left(RecSet("vem"),60) %>   <%= RecSet("datum") %> <%= SplitText(RecSet("vad"),29) %> <% If IsNull(Trim(RecSet("hur"))) OR Trim(RecSet("hur")) = "" Then Response.Write "" Else %> E-post: " onFocus="this.blur();"><%= Left(RecSet("hur"),50) %> <%End If If Trim(RecSet("var")) = "" Then Response.Write "" ElseIf InStr(RecSet("var"), "http://") <> 0 OR InStr(RecSet("var"), "https://") <> 0 Then%> Hemsida: " target="_blank" onFocus="this.blur();"><%= Left(RecSet("var"),50) %> <%Else%> Hemsida: " target="_blank" onFocus="this.blur();"><%= Left(RecSet("var"),50) %> <%End If%> [an error occurred while processing this directive] <% End If %>