Jag får upp denna felkod:
Expected statement
index.asp, line 183
*## -- kontrollera så att inte intPage variabeln är tom --
^
Var, och vilken siffra ska jag lägga in? Jag håller på att skapa en paging så man kan bläddra i gästboken. Skriptet jag har är liite struligt. Nån som har tid att hjälpa? Jag lägger till koderna jag tror behövs för att hjälpa. Det blir mycket kod :p
I indexdok:
<%
Function Censur(strText,strWord)
strText = strText & " "
strWord = Replace(strWord,".","\.")
strSplit = split(strWord,",")
strPattern = "("
for i = 0 to ubound(strSplit)
if i <> ubound(strSplit) then
strPattern = strPattern & strSplit(i) & "|"
else
strPattern = strPattern & strSplit(i)
end if
if i = ubound(strSplit) then
strPattern = strPattern & ").*?[\s]"
end if
next
Set objRegExp = New RegExp
objRegExp.Global = True
objRegExp.IgnoreCase = true
objRegExp.Pattern = strPattern
strText = objRegExp.Replace(strText,"**** ")
Set objRegExp = Nothing
Censur = left(strText,(len(strText)-1))
End Function
%>
<%
bannip = false
set rsbann = connect.execute("select ip from ip")
Do While Not rsbann.EOF
if Request.ServerVariables("REMOTE_ADDR") = rsbann("ip") then
bannip = true
end if
rsbann.movenext
Loop
if bannip = true then
Response.Redirect("banned.asp")
else
end if
%>
<%
Response.buffer=True
select case request("action")
case ""
%>
<%
Set rsvisa = Server.CreateObject("ADODB.Recordset")
SQL = "select * from gastbok order by datum desc"
rsvisa.Open SQL, Connect, 3,3
'Number of messages to show per page/ Antal meddelande per sida
rsvisa.pagesize = 20
page = Request.QueryString("page")
If page = "" then page = 1
if rsvisa.EOF then
Response.write noguests
Else
rsvisa.AbsolutePage = page
totalPages = rsvisa.PageCount
Do until rsvisa.EOF or fldcounter = rsvisa.pagesize
If strBGColor = "#ffffff" then strBGColor = "#f2f2f2" else strBGColor = "#ffffff"
fldcounter = fldcounter + 1
%>
<div class="comment1">
<p class="com3"><%= author %>:
<% = rsvisa("namn") %>
<% = rsvisa("datum") %><br /><% if rsvisa("status") = "private" then
%>
<%= privatemess2 %><% else
%></p>
</div>
<div class="comment2"><p class="com">
<% = rsvisa("meddelande") %> <br /><% end if
%>
<% if rsvisa("answer") > "" then
%></p>
</div>
<div class="comment3">
<p class="com2"><span class="bla"><%= answer %></span><br /><br /> <%= rsvisa("answer") %>
<% else
end if%></p>
<p class="com">
E-mail: <a href="mailto:<% = rsvisa("email") %>">
<% = rsvisa("email") %>
</a> <br />
<%= Homepage %>:<a href="<% = rsvisa("url") %>" target="_blank">
<% = rsvisa("url") %></a><br />
IP: <% = rsvisa("ip") %>
</p>
</div>
<%
rsvisa.movenext
loop
End If%>
<p>
<%
i = 0
For i = 1 to rsvisa.PageCount
If (Int(i)) = (Int(page)) then
Response.write "<b>"& i &"</b> "
Else
Response.write "<a href=""index.asp?page="& i &">"& i &"""</a> "
End If
Next
If page = 1 then
Response.write "<a href=""index.asp?page=" & page + 1 &"""></a>"
ElseIf (Int(totalPages)) = (Int(page)) then
Response.write "<a href=""index.asp?page=" & page - 1 &"""></a>"
Else
Response.write "<a href=""index.asp?page=" & page - 1 &"""></a>"
Response.write "<a href=""index.asp?page=" & page + 1 &"""></a>"
End If
%>
</p>
<%
rsvisa.close
set rsvisa=nothing
case "addpost"
if request.form("namn") > "" and request.form("meddelande") > "" then
strnamn=CStr(request.form("namn"))
strurl=CStr(request.form("url"))
stremail=Cstr(request.form("email"))
strMeddelande=Cstr(request.form("meddelande"))
strprivate=Cstr(request.form("private"))
strDatum=Cstr(request.form("datum"))
strip=Request.ServerVariables("REMOTE_ADDR")
strMeddelande=Replace(strMeddelande,"[:)]","<img src='images/glad.gif alt=""' />")
strMeddelande=Replace(strMeddelande,"[:(]","<img src='images/ledsen.gif alt=""' />")
strMeddelande=Replace(strMeddelande,"[:V]","<img src='images/arg.gif alt=""' />")
strMeddelande=Replace(strMeddelande,"[;)]","<img src='images/ironi.gif alt=""' />")
strMeddelande=Replace(strMeddelande,"[:D]","<img src='images/skratt.gif alt=""' />")
strMeddelande=Replace(strMeddelande,"[:O]","<img src='images/oops.gif alt=""' />")
strMeddelande=Replace(strMeddelande,"[:V:]","<img src='images/sur.gif alt=""' />")
strMeddelande=Replace(strMeddelande,"[8D]","<img src='images/cool.gif alt=""' />")
strMeddelande=Replace(strMeddelande,"'","''")
strMeddelande=Replace(strMeddelande,chr(10),"<br />")
set rsword = connect.execute("select word from word")
Do While Not rsword.EOF
strMeddelande=Censur(strmeddelande,rsword("word"))
rsword.movenext
Loop
strRubrik=Replace(strRubrik,"'","''")
connect.execute ("insert into gastbok (namn, ip, url, email, meddelande, status) values('" & strnamn & "','" & strip & "','" & strurl & "','" & stremail & "','" & strMeddelande & "','" & strprivate & "')")
response.redirect("index.asp")
else
response.write(postcheck)
end if
end select
%>
Pagingen
<%
Function Censur(strText,strWord)
strText = strText & " "
strWord = Replace(strWord,".","\.")
strSplit = split(strWord,",")
strPattern = "("
for i = 0 to ubound(strSplit)
if i <> ubound(strSplit) then
strPattern = strPattern & strSplit(i) & "|"
else
strPattern = strPattern & strSplit(i)
end if
if i = ubound(strSplit) then
strPattern = strPattern & ").*?[\s]"
end if
next
Set objRegExp = New RegExp
objRegExp.Global = True
objRegExp.IgnoreCase = true
objRegExp.Pattern = strPattern
strText = objRegExp.Replace(strText,"**** ")
Set objRegExp = Nothing
Censur = left(strText,(len(strText)-1))
End Function
%>
<%
bannip = false
set rsbann = connect.execute("select ip from ip")
Do While Not rsbann.EOF
if Request.ServerVariables("REMOTE_ADDR") = rsbann("ip") then
bannip = true
end if
rsbann.movenext
Loop
if bannip = true then
Response.Redirect("banned.asp")
else
end if
%>
<%
Response.buffer=True
select case request("action")
case ""
%>
<%
'## -- skapa connection object och öppna databasen --
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DSN"
'## -- hur många poster ska visas per sida --
intPageSize = 10 '## -- byt ut till hur många poster du vill ska visas per sida --
'## -- vilken sida ska visas --
intPage = Request.QueryString("page")
*## -- kontrollera så att inte intPage variabeln är tom --
If intPage = "" Then intPage = 1 '## -- visa första sidan som default --
'## -- sql-fråga för att hämta data från databasen --
strSQL = "SELECT fld_news_id, fld_news_header, fld_news_body FROM tbl_news ORDER BY fld_news_date DESC"
'## -- skapa och öppna recordsetet --
Set objRS = Server.CreateObject("ADODB.Recordset")
With objRS
.ActiveConnection = objConn
.Source = strSQL
'## -- bestämmer hur många poster som varje sida ska bestå av i recordsetet --
.PageSize = intPageSize
.CursorType = 3
.LockType = 1
.Open
End Wit
'## -- kontrollera om några poster har returnerats eller inte --
If Not objRS.EOF Then
'## -- poster har returnerats --
'## -- visa rätt sida i recordsetet --
objRS.AbsolutePage = intPage
'## -- hur många sidor består recordsetet av --
intTotalPages = objRS.PageCount
'## -- visa sidnavigeringen --
Call PageNavigation(intPage, intTotalPages)
'## -- loopa igenom recordsetet och visa posterna för besökaren/användaren --
Do Until objRS.EOF OR intCounter >= intPageSize
intCounter = intCounter + 1
'## -- printa ut informationen till besökare/användaren --
objRS.MoveNext
Loop
Else
'## -- inga poster returnerades --
'## -- visa meddelande att inga poster hittades för användaren --
End If
'## -- rensa up --
objRS.Close
Set objRS = Nothing
objConn.Close
Set objconn = Nothing
'## -- visa sidnavigeringen --
Call PageNavigation(intPage, intTotalPages)
'## -- include filen nedan innehåller själva subrutinen för sidnavigeringen --
%>
<!--#include file="inc_pagingFunction.asp"-->
Och inc_pagingFunction.asp
<%
Sub PageNavigation(ByVal Page, TotalPages) ...
Sub PageNavigation(ByVal Page, TotalPages)
Dim strScriptName
'## -- denna sidas namn --
strScriptName = Request.ServerVariables("SCRIPT_NAME")
'## -- länk till föregående sida --
'## -- kontrollera att det inte är första sidan som visas --
If CInt(Page) > 1 Then
'## -- inte första sidan som visas så gör en länk --
Response.Write "<A href=""" & strScriptName & "?page=" & Page - 1 & """><< Föregående</A> "
Else
'## -- det är första sidan som ska visas. gör ingen länk --
Response.Write "<< Föregående "
End If
'## -- bygg upp själva pagebaren, dvs varje sidnummer ska ha en länk
'## -- så att besökaren snabbt kan ta sig till rätt sida --
For N = 1 To CInt(TotalPages)
If N <> CInt(Page) Then
'## -- ej aktuell sida, länka --
Response.Write "<A href=""" & strScriptName & "?page=" & N & """>" & N & "</A> "
Else
'## -- aktuell sida, länka ej --
Response.Write "<B>" & N & "<B> "
End If
Next
'## -- länk till nästa sida. om vi står på sista sidan ska den ej vara länkad --
If CInt(Page) < CInt(TotalPages) Then
'## -- vi är inte på sista sidan --
Response.Write "<A href=""" & strScriptName & "?page=" & Page + 1 & """>Nästa >></A>"
Else
'## -- vi är på sista sidan. länka ej --
Response.Write "Nästa >>"
End If
End Sub
%>