---

Hej,

Jeg prøvede lige at lave en tagwall i asp oO
Selve tagwallen virker fint, problemet er at jeg gerne vil have
at "en side" kun må indholde 10 tags (posts).. så der kommer
flere sider på du ve'.. Vil egentlig bare have "next" og
"previous" links lige pt., men hvis der er forslag for evt. alle
side tal, sådan at man kan gå ind på en hvilket som helst side =
velkommen =))

Så jeg prøvede med en while/if løkke:
-----------------------------------------------
dim side
side=request.querystring("side")
...
<%
i = 0
While not resultat.eof(i<(SIDE*10))
i = i + 1
If i > (side-1)*10 then
%>
<tr>
<td width="325" class="navn style1"><em>af</em>
<%=resultat("navn")%></td>
<td width="241" class="dato style1"><em>Dato:</em>
<%=resultat("oprettet")%></td>
</tr>
<tr>
<td width="576" colspan="2" align="left"
class="indlaeg"><%=resultat("indlaeg")%></td>
</tr>
<tr>
<td height="16" colspan="2"></td>
</tr>
<%
end if
resultat.movenext
wends
response.write "<table>"
end if
cn.close
set cn=nothing
set resultat=nothing
%>
------------------------------------------------
Fejl meddelelsen var:
Microsoft VBScript compilation error '800a0400'
Expected statement
/elev/04-mfk/Nyborg/visalle.asp, line 98
end if



--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

Er det ikke fordi du har "end end" if for meget...?


--
Venlig hilsen - Jakob Lund Krarup (MCSD.Net)

mail: KR snabela RUP punktum DK
http://www.dotnetteacher.dk - .net programmering
http://www.jake.dk - en personlig hjemmeside

"Farooq Khan" <fk_vipz@hotmail.com> skrev i en meddelelse
news:452f9d6a$0$49208$14726298@news.sunsite.dk...
> Hej,
>
> Jeg prøvede lige at lave en tagwall i asp oO
> Selve tagwallen virker fint, problemet er at jeg gerne vil have
> at "en side" kun må indholde 10 tags (posts).. så der kommer
> flere sider på du ve'.. Vil egentlig bare have "next" og
> "previous" links lige pt., men hvis der er forslag for evt. alle
> side tal, sådan at man kan gå ind på en hvilket som helst side =
> velkommen =))
>
> Så jeg prøvede med en while/if løkke:
> -----------------------------------------------
> dim side
> side=request.querystring("side")
> ..
> <%
> i = 0
> While not resultat.eof(i<(SIDE*10))
> i = i + 1
> If i > (side-1)*10 then
> %>
> <tr>
> <td width="325" class="navn style1"><em>af</em>
> <%=resultat("navn")%></td>
> <td width="241" class="dato style1"><em>Dato:</em>
> <%=resultat("oprettet")%></td>
> </tr>
> <tr>
> <td width="576" colspan="2" align="left"
> class="indlaeg"><%=resultat("indlaeg")%></td>
> </tr>
> <tr>
> <td height="16" colspan="2"></td>
> </tr>
> <%
> end if
> resultat.movenext
> wends
> response.write "<table>"
> end if
> cn.close
> set cn=nothing
> set resultat=nothing
> %>
> ------------------------------------------------
> Fejl meddelelsen var:
> Microsoft VBScript compilation error '800a0400'
> Expected statement
> /elev/04-mfk/Nyborg/visalle.asp, line 98
> end if
>
>
>
> --
> Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
> - Pædagogiske tutorials på dansk
> - Kom godt i gang med koderne
> KLIK HER! => http://www.html.dk/tutorials

---

Jakob Lund Krarup wrote in dk.edb.internet.webdesign.serverside.asp:
> Er det ikke fordi du har "end end" if for meget...?
>
>
> --
> Venlig hilsen - Jakob Lund Krarup (MCSD.Net)
>
> mail: KR snabela RUP punktum DK
> http://www.dotnetteacher.dk - .net programmering
> http://www.jake.dk - en personlig hjemmeside
>

Hmm måske, men jeg når jeg fjerner den sidste "end if" viser den en
anden fejl osv osv... jeg kan bare ikke få det til at passe oO

--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

Prøv lige at smide den komplette kode ind i en post her i gruppen, eller
mail den. Så skal jeg se om vi ikke kan få fanget den bug : )

--
Venligste hilsener - Jakob Lund Krarup (MCSD.Net)

mail: KR snabela RUP punktum DK
http://www.dotnetteacher.dk - .net programmering
http://www.jake.dk - en personlig hjemmeside
"Farooq Khan" <fk_vipz@hotmail.com> skrev i en meddelelse
news:452fa5c3$0$49205$14726298@news.sunsite.dk...
> Jakob Lund Krarup wrote in dk.edb.internet.webdesign.serverside.asp:
>> Er det ikke fordi du har "end end" if for meget...?
>>
>>
>> --
>> Venlig hilsen - Jakob Lund Krarup (MCSD.Net)
>>
>> mail: KR snabela RUP punktum DK
>> http://www.dotnetteacher.dk - .net programmering
>> http://www.jake.dk - en personlig hjemmeside
>>
>
> Hmm måske, men jeg når jeg fjerner den sidste "end if" viser den en
> anden fejl osv osv... jeg kan bare ikke få det til at passe oO
>
> --
> Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
> - Pædagogiske tutorials på dansk
> - Kom godt i gang med koderne
> KLIK HER! => http://www.html.dk/tutorials

---

Oo værsgo' :)
Husk nu, tagwallen virker fint. Bare løkken.. :S
Tror også jeg har lavet fejl ved
"sqlstring="Select * from tagwall where side=" & side"
Men nu kan du lige se:

<%
dim dbname
dim cn
dim constr
dim sqlstring
dim resultat
dim side

side=request.querystring("side")

dbname=Server.MapPath("NyborgTW.mdb")
set cn = server.createobject("ADODB.Connection")
constr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & dbname
cn.connectionstring = constr
cn.open

sqlstring="Select * from tagwall where side=" & side
sqlstring = sqlstring & request("oprettet") & " ORDER BY oprettet desc "

set resultat=cn.execute(sqlstring)
if resultat.eof then
response.write"Der er ingen meddelelser"
else

%>
<p>Sp&oslash;rgsm&aring;l & Svar til Nyborg Kommune</p>

<table cellpadding="2" cellspacing="0" bordercolor="#FFFFFF">
<tr>
<td bordercolor="#FFFFFF"><span class="style2"><a href=visalle.asp?side="&
side-1 &">forrige side</a></span></td>
<td align="right" bordercolor="#FFFFFF"><span class="style2"><a
href=visalle.asp?side="& side+1 &">n&aelig;ste side</a></span></td>
</tr>
<%
II=0
While not resultat.eof(II<(SIDE*10))
II = II + 1
If II > (side-1)*10 then
%>
<tr><td width="325" class="navn style1"><em>af</em>
<%=resultat("navn")%></td>
<td width="241" class="dato style1"><em>Dato:</em>
<%=resultat("oprettet")%></td></tr>
<tr><td width="576" colspan="2" align="left"
class="indlaeg"><%=resultat("indlaeg")%></td></tr>
<tr><td height="16" colspan="2"></td></tr>
<%
resultat.movenext
wend
response.write "<table>"
end if
cn.close
set cn=nothing
set resultat=nothing
%>
</table>

--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

On 13 Oct 2006 15:09:54 GMT, Farooq Khan <fk_vipz@hotmail.com> wrote:

>Oo værsgo' :)
>Husk nu, tagwallen virker fint. Bare løkken.. :S
>Tror også jeg har lavet fejl ved
>"sqlstring="Select * from tagwall where side=" & side"

Prøv med
sqlstring="Select TOP 10 * from tagwall" & _
" where side=" & side & _
" ORDER BY oprettet DESC;"
hvis du kun vil have vist 10.

Ellers skal du kigge på paging - søg "asp paging recordset" på Google.

<snip>

>if resultat.eof then
Denne If bliver afsluttet til slut.
<snip>

>If II > (side-1)*10 then
Denne If bliver ikke afsluttet.
Skal afsluttes inde i While-loopen

>cn.close
>set cn=nothing
>set resultat=nothing

Logisk set skal de lukkes omvendt:
resultat.Close
Set resultat = Nothing
cn.Close
Set cn = Nothing


Good luck!

--
Jørn Andersen,
Brønshøj