Just nu i M3-nätverket
Gå till innehåll
Eforum är stängt för nya inlägg och svar sedan 20 juni 2022. Klicka för att läsa vad som hände och om alternativ.

'Next' förväntas?

Siluett

Startad av Siluett,
i Webbutveckling

Rekommendera Poster

Siluett

Siluett

Postad
Postad

Hej

 

Jag hoppas att någon kan hjälpa mig här. I den här taggen:

 

<%

Else

 

Response.Write "<b>" & a & "</b>"

 

RecSet.Close

 

End If

 

%>

</td>

<td align="right">

<a href="#" onClick="forum_skapa_inlagg.asp?forum=<%=Request.Querystring("forum")%>&forumname=<%=Request.Querystring("forumname")%>&answerto=<%=Request.Querystring("post")%>&rubrik=<%=strHead%>">Skriv ett svar</a>

</td>

</tr>

</table>

</tr></td>

</table>

 

På raden som är understruken får jag felmedd att Next förväntas.... ?

 

 

Såhär ser min kod ut:

 

<%

nextPage = TRIM( Request( "nextPage" ) )

IF nextPage = "" THEN nextPage = 1

 

Set Conn = Server.CreateObject("ADODB.Connection")

Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db/forum.mdb")&";"

 

Set RecSet = Server.CreateObject("ADODB.Recordset")

 

Addera = "SELECT * FROM forum WHERE id=" & Request.Querystring("post") & ""

RecSet.Open Addera, Conn, 1, 3

 

Dim strHead, headline

strHead = RecSet("headline")

%>

 

<%

Set RecSet2 = Server.CreateObject("ADODB.Recordset")

Addera2 = "SELECT * FROM forum WHERE answerto='" & Request.Querystring("post") & "'"

RecSet2.Open Addera2, Conn, 1, 3

 

Dim svar

svar = 0

Do Until RecSet2.EOF

svar = svar + 1

RecSet2.MoveNext

Loop

RecSet2.Close

Set RecSet2 = Nothing

%>

 

<html>

<head><link rel="stylesheet" href="forumstyle2.css" type="text/css">

</head>

<body topmargin="20" leftmargin="15">

<center>

 

<table width="60%" align="center">

<tr><td bgcolor="#000000">

<table width="100%" cellspacing="0" align="center" cellpadding="0">

<tr><td bgcolor="#000000">

<table width="100%" cellspacing="0" cellpadding="3">

<tr>

<td height="40">

&nbsp;&nbsp;<b><font size="2"><%=Server.HTMLEncode(strHead)%></font></b><br>

&nbsp;&nbsp;<b><%=RecSet("name")%></b> |

<%

Set Conn = Server.CreateObject("ADODB.Connection")

Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db/forum.mdb")&";pwd=wajn"

 

Set RecSet3 = Server.CreateObject("ADODB.Recordset")

 

Addera3 = "SELECT * FROM members WHERE id=" & cint(session("id"))

RecSet3.Open Addera3, Conn, 1, 3

 

RecSet3.Close

Set RecSet3 = Nothing

 

If status = "online" Then

Response.Write "Status: <font color='#005500'><b>online</b></font>"

Else

Response.Write "Status: <font color='#550000'><b>offline</b></font>"

End If

%> | <%=RecSet("date")%> | Antal svar: <%=svar%> |

<% IF Session("moderator") = "ja" OR RecSet("name") = Session("username") Then %>

<a href="forum_delete_post.asp?forum=<%=Request.Querystring("forum")%>&forumname=<%=Request.Querystring("forumname")%>&username=<%=Request.Querystring("username")%>&id=<%=RecSet("id")%>&answerto=0">Ta bort</a>

<% END IF %>

<% IF Session("moderator") = "ja" and RecSet("locked") = "0" Then %>

| <a href="forum_lock_post.asp?forum=<%=Request.Querystring("forum")%>&forumname=<%=Request.Querystring("forumname")%>&username=<%=Request.Querystring("username")%>&id=<%=RecSet("id")%>&answerto=0">Lås tråd</a>

<% Elseif Session("moderator") = "ja" and RecSet("locked") = "1" Then %>

| <a href="forum_unlock_post.asp?forum=<%=Request.Querystring("forum")%>&forumname=<%=Request.Querystring("forumname")%>&username=<%=Request.Querystring("username")%>&id=<%=RecSet("id")%>&answerto=0">Lås upp tråd</a>

<% End If %>

</td>

</tr>

<tr>

<td>

<table width="100%" cellspacing="3">

<tr>

<td width="100%" valign="top">

<table width="100%" cellspacing="3">

<tr><td>

<% strText = RecSet("text") %>

<%=Server.HTMLEncode(strText)%>

</td></tr>

</table>

</td>

</tr>

</table>

</td>

</tr>

</table>

</td></tr>

</table>

</td></tr>

</table>

 

<br>

<%

Set RecSet4 = Server.CreateObject("ADODB.Recordset")

Addera4 = "SELECT * FROM forum WHERE answerto='" & cint(request.querystring("post")) & " ORDER BY date" &"'"

RecSet4.Open Addera4, Conn, 1, 3

 

If RecSet.EOF Then

' inga poster

Else

RecSet.PageSize = 5

RecSet.AbsolutePage = nextPage

 

End If

%>

 

<table width="60%">

<tr><td bgcolor="#000000">

<%

While Not RecSet.EOF AND rowCount < RecSet.PageSize

rowCount = rowCount + 1

%>

 

<table width="100%" cellspacing="0" cellpadding="3">

<tr>

<td height="40">

&nbsp;&nbsp;<b><font size="2"><% strHead = RecSet("headline") %><%=Server.HTMLEncode(strHead)%></font></b><br>

&nbsp;&nbsp;<b><%=RecSet("name")%></b> |

<%

Set RecSet5 = Server.CreateObject("ADODB.Recordset")

Addera5 = "SELECT * FROM members WHERE username=" & RecSet("name") & ""

RecSet5.Open Addera5, Conn, 1, 3

 

Dim moderator2, status2

moderator2 = RecSet4("moderator")

status2 = RecSet4("status")

 

RecSet4.Close

Set RecSet4 = Nothing

 

If status2 = "online" Then

Response.Write "Status: <font color='#005500'><b>online</b></font>"

Else

Response.Write "Status: <font color='#550000'><b>offline</b></font>"

End If

%> | <%=RecSet("date")%> | <% IF Session("moderator") = "ja" Then %>

<a href="forum_delete_post.asp?forum=<%=Request.Querystring("forum")%>&forumname=<%=Request.Querystring("forumname")%>&username=<%=Request.Querystring("username")%>&id=<%=RecSet("id")%>">Ta bort</a>

<% END IF %>

</td>

</tr>

<tr>

<td>

<table width="100%" cellspacing="3">

<tr>

<td width="100%" valign="top">

<table width="100%" cellspacing="3">

<tr><td>

<% strText = RecSet("text") %>

<%=Server.HTMLEncode(strText)%>

</td></tr>

</table>

</td>

</tr>

</table>

</td>

</tr>

<tr><td><br></td></tr>

</table>

<%

RecSet.MoveNext

Wend

%>

</td></tr>

</table>

<table width="60%">

<tr>

<td align="left">

Sidor:

<%

IF RecSet.PageCount > 1 THEN

 

FOR a = 1 to RecSet.PageCount

IF a <> cINT( nextPage ) THEN

%>

<a href="forum_visa_post.asp?forum=<%=Request.Querystring("forum")%>&forumname=<%=Request.Querystring("forumname")%>&post=<%=Request.Querystring("post")%>&username=<%=Request.Querystring("username")%>&nextPage=<%=a%>"><%=a%></a>

<%

Else

 

Response.Write "<b>" & a & "</b>"

 

RecSet.Close

 

End If

 

%>

</td>

<td align="right">

<a href="#" onClick="forum_skapa_inlagg.asp?forum=<%=Request.Querystring("forum")%>&forumname=<%=Request.Querystring("forumname")%>&answerto=<%=Request.Querystring("post")%>&rubrik=<%=strHead%>">Skriv ett svar</a>

</td>

</tr>

</table>

</tr></td>

</table>

 

 

Mycket tacksam för all hjälp!

Mvh Pernilla

 

Länk till kommentar
Dela på andra webbplatser
Olle Nyrén

Olle Nyrén

Postad
Postad

Next förväntas eftersom du har en FOR-loop. Jag gissar att din kod bör se ut så här:

 

FOR a = 1 to RecSet.PageCount
IF a <> cINT( nextPage ) THEN 
%>
<a href="forum_visa_post.asp?forum=<%=Request.Querystring("forum")%>&forumname=<%=Request.Querystring("forumname")%>&post=<%=Request.Querystring("post")%>&username=<%=Request.Querystring("username")%>&nextPage=<%=a%>"><%=a%></a>
<%
Else
Response.Write "<b>" & a & "</b>"
End If
Next
RecSet.Close

 

mvh

Olle

 

Länk till kommentar
Dela på andra webbplatser
Siluett

Siluett

Postad
  • Trådskapare
Postad

Tack för hjälpen Olle!

 

 

Men nu förväntar den 'End' på följande rad (194)

 

 

<a href="#" onClick="forum_skapa_inlagg.asp?forum=<%=Request.Querystring("forum")%>&forumname=<%=Request.Querystring("forumname")%>&answerto=<%=Request.Querystring("post")%>&rubrik=<%=strHead%>">Skriv ett svar</a>

 

 

Var ska jag placera?

 

Mvh Pernilla

 

Länk till kommentar
Dela på andra webbplatser
Siluett

Siluett

Postad
  • Trådskapare
Postad

Hej

 

End problemet löste jag nog, men nu har jag fått ett felmeddelande som jag verkligen inte förstår!

 

Här är rad 125-127:

 

Set RecSet5 = Server.CreateObject "ADODB.Recordset")

Addera5 = "SELECT * FROM members WHERE username=" & RecSet("name") & ""

RecSet5.Open Addera5, Conn, 1, 3

 

Felmeddelande:

 

För få parametrar angavs. 1 förväntades.

/forum/forum2/forum_visa_post.asp, line 127

 

 

Hjälp?!

 

Mvh Pernilla

 

[inlägget ändrat 2003-09-22 22:28:26 av Siluett]

Länk till kommentar
Dela på andra webbplatser
Thomas Tydal

Thomas Tydal

Postad
Postad

> Set RecSet5 = Server.CreateObject "ADODB.Recordset")

 

Du har glömt parentesen där, före "ADODB.Recordset").

 

Länk till kommentar
Dela på andra webbplatser
Siluett

Siluett

Postad
  • Trådskapare
Postad

Hm... antigligen har jag lyckats radera den här i mitt inlägg för raden ser ok ut i filen.

 

Set RecSet5 = Server.CreateObject("ADODB.Recordset")

Addera5 = "SELECT * FROM members WHERE username=" & RecSet("name") & ""

RecSet5.Open Addera5, Conn, 1, 3

 

 

Har du ngt annat bra tips? :-)

 

Mvh Pernilla

 

Länk till kommentar
Dela på andra webbplatser

Arkiverat

Det här ämnet är nu arkiverat och är stängt för ytterligare svar.

Gå till ämneslista


×
×
  • Skapa nytt...