Huhh vet inte hur jag ska beskriva detta men jag för ett förskök Typ nåt så här... får då Det skulle kunna ha å göra med den första delen där vid: oki provade detta OK.. lustigt... jag hade nog valt en for loop i det här fallet typ: <b>får då Ser att du använder dig av Dreamweaver, vilken version använder du. Jo jag använder Dreamweaver mx 2004.. Testa något som detta:Länkregister
Jag ska skapa ett länkregister och på första sidan så ska jag ha länkar till varje kattegori
typ ett linkindex
men hur gör jag det..
listar jag alla kattegorier så blir det antingen vertikalt eller diagonalt
men jag vill att han ska länka 4 st åt sidan och sen börja om med 4 st andra
säger att det är 16 st kattegorier
så ska det bli 4x4
men hur gör man det
ex på hur koden ser ut
<code>
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/intheawen.asp" -->
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_intheawen_STRING
Recordset1.Source = "SELECT * FROM Int_Link_register"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Untitled Document</title>
</head>
<body>
<%
While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF))
%>
<table width="200" border="1">
<tr>
<td><%=(Recordset1.Fields.Item("Link_kattegori").Value)%></td>
</tr>
<tr>
<td><%=(Recordset1.Fields.Item("Link_info").Value)%></td>
</tr>
</table>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Recordset1.MoveNext()
Wend
%>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
</code>Sv: Länkregister
<code>
<table>
<%
Repeat1__index=0
While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF))
if Repeat1__index = 4 then
Repeat1__index = 0
if Repeat1__index= 0 then
%>
<tr>
<%end if%>
<td>
<table width="200" border="1">
<tr>
<td><%=(Recordset1.Fields.Item("Link_kattegori").Value)%></td>
</tr>
<tr>
<td><%=(Recordset1.Fields.Item("Link_info").Value)%></td>
</tr>
</table>
</td>
<%if Repeat1__index= 3 then%>
</tr>
<%end if
Repeat1__index=Repeat1__index+1
Recordset1.MoveNext()
Wend
%>
</table>
</code>
Den kommer att skapa en tabell med 4 kolumner och sedan fylla på.Sv:Länkregister
<code>
Microsoft VBScript compilation error '800a0400'
Expected statement
/test.asp, line 64
Wend
^
</code>Sv: Länkregister
if Repeat1__index = 4 then
Repeat1__index = 0
den måste kanske avslutas på något sätt, testa lägga till End If. Man kan skriva utan end if, men tror att det måste vara samma rad då.Sv:Länkregister
<code>
<%
Repeat1__index=0
While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF))
if Repeat1__index = 4 then Repeat1__index = 0
if Repeat1__index= 0 then
%>
<tr>
<%end if%>
</code>
men detta gjorde inte förutom lade alla under varandra
1
2
3
4
5
6
7
8
vill ha
table
1 2 3 4
5 6 7 8Sv: Länkregister
<code>
<table>
<tr>
<%
for i = 0 to Recordset1.RecordCount-1
if i mod 4 = 0 then%>
</tr><tr>
<%end if%>
<td><%=Recordset1.Rows(i).Fields("Link_kattegori").Value%></td>
<%
next
%>
</tr>
</table>
</code>
Det kommer iofs alltid att ge en tabellrad, men det kommer du ifrån om du gör en koll innan på att Recordset:et innehåller rader. Just det, för att använda RecordCount måste du öppna dit RS med adOpenStatic om jag inte minns fel... Hoppas det här löser problemet.Sv:Länkregister
<code>
Microsoft VBScript compilation error '800a0400'
Expected statement
/test.asp, line 64
Wend
</code> </b>
Jag har inte kunnat köra det eftersom jag inte har tillgång till din utvecklingsmiljö. Tanken var snarare att du skulle läsa igenom koden och förstå vad den gör snarare än att hålla på med Cut n’ paste utveckling. Logicken i det du skall göra är ju inte svår:
Lopa igenom alla poster och för var fjärde så skall en ny rad skapas.
Både min & Henriks kod bygger på samma princip men jag har valt att behålla en stor del av din kod och logikmässigt så skall båda fungera. Att det sedan förekommer stavfel på variabler eller att man har glömt någon liten skitsak (tex en ”end if”) som gör att du inte kan klippa in koden direkt i ditt projekt är något du får räkna med när du ställer en fråga på ett forum, utan det är själva tankesättet hur det skall fungera som är viktigt att ta till sig. Sv: Länkregister
Det finns en *.mxp som heter horizontal loop till dreamweaver som gör det du vill.Sv:Länkregister
Detta med att försöka finna finna det själv gör jag i den grad jag lär migSv: Länkregister
<table>
<tr>
<%
for i = 0 to Recordset1.RecordCount-1
If i = 4 Then
Response.Write "</tr><tr>"
i = 0
Else
Response.Write "<td>Texten</td>"
i = i + 1
End If
Next
%>
</tr>
</table>