% 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 %>
<% 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 %>
|