Köp & Sälj
Artiklar
Forum
Nya inlägg
Forumlista
Sök trådar
Medlemmar
Regler/Hjälp
Skidorter
Snödjup
Boende
Prylar
Video
Shop
Logga in
Bli medlem
Vad är nytt
Sök
Sök
Sök bara rubriker
Notera
Av:
Nya inlägg
Forumlista
Sök trådar
Medlemmar
Regler/Hjälp
Meny
Logga in
Bli medlem
Ladda ner Freeride som app
JavaScript är inaktiverat. För en bättre upplevelse, vänligen aktivera JavaScript i din webbläsare innan du fortsätter.
Du använder en gammal webbläsare. Den kanske inte visar den här eller andra webbplatser korrekt.
Du bör uppgradera eller använda en
alternativ webbläsare
.
Forum
Övrigt
OT-forumet
Vad döljer sig under ditt ctrl+v?
Svara på tråd
Meddelande
<blockquote data-quote="ST90" data-source="post: 356231" data-attributes="member: 49616"><p><% Case "lankar"</p><p>Set rs = Server.CreateObject("ADODB.RecordSet")</p><p>SQL = "SELECT * FROM pld WHERE typ=1 ORDER BY ID"</p><p>rs.Open SQL, Conn, 1, 2 %></p><p></p><p></p><p><%sida = Trim(Request.QueryString("sida"))</p><p>If sida = "" Then</p><p> sida = 1</p><p>End If</p><p>rs.PageSize = 10</p><p>rs.AbsolutePage = sida</p><p>rad = 0</p><p>Do while Not rs.EoF AND rad < rs.PageSize </p><p>rad = rad + 1%></p><p></p><p><b><%=rs("namn")%></b> - <b><a href="http://<%=rs("url")%>" target="blank"><%=rs("url")%></a></b></p><p><br /></p><p><%=rs("kommentar")%></p><p><br /><br /></p><p><%rs.MoveNext</p><p>Loop </p><p>If rs.PageCount > 1 Then</p><p> For i = 1 to rs.PageCount</p><p> If i = CLng(sida) Then</p><p> Response.Write "[" & i & "]&nbsp;"</p><p> Else</p><p> Response.Write "<a href=""default.asp?val=lankar&sida=" & i &""">" & i & "</a>&nbsp;"</p><p> End If</p><p> Next</p><p>End If%></p></blockquote><p></p>
[QUOTE="ST90, post: 356231, member: 49616"] <% Case "lankar" Set rs = Server.CreateObject("ADODB.RecordSet") SQL = "SELECT * FROM pld WHERE typ=1 ORDER BY ID" rs.Open SQL, Conn, 1, 2 %> <%sida = Trim(Request.QueryString("sida")) If sida = "" Then sida = 1 End If rs.PageSize = 10 rs.AbsolutePage = sida rad = 0 Do while Not rs.EoF AND rad < rs.PageSize rad = rad + 1%> <b><%=rs("namn")%></b> - <b><a href="http://<%=rs("url")%>" target="blank"><%=rs("url")%></a></b> <br /> <%=rs("kommentar")%> <br /><br /> <%rs.MoveNext Loop If rs.PageCount > 1 Then For i = 1 to rs.PageCount If i = CLng(sida) Then Response.Write "[" & i & "] " Else Response.Write "<a href=""default.asp?val=lankar&sida=" & i &""">" & i & "</a> " End If Next End If%> [/QUOTE]
Verifiering
Skicka svar
Forum
Övrigt
OT-forumet
Vad döljer sig under ditt ctrl+v?
Tillbaka
Topp
