Notifikationer

Markér alle som læst Log ud

jessbonde Nybegynder

05. september 2005 - 00:19 Der er 7 kommentarer og
1 løsning

recordset i 2 kolonner

Jeg har et recordset med links som jeg gerne vil have skrevet ud i 2 kolonner.
Linksene er opdelt i kategorier, og kategorien bliver udskrevet hver gang den skifter.
Det ser sådan her ud:
http://localhost/DEFECTORS/defectors/surf.asp?content=surf
Jeg vil gerne have linksene skrevet ud i 2 kolonner i stedet for éen, men stadig med overskrift hver gang kategorien skifter.

Min kildekode ser således ud:


<table cellpadding="0" cellspacing="0" width="610" border="0">
<tr>
<td valign="top">
<%
call openDB
call categoriesGet
call gui
call closeDB

function gui
dim strCategory, i, strText
strCategory = ""
i = 1
%>
<table cellpadding="3" cellspacing="0" border="0" width="440">
<tr>
<td><img src="img/surf.gif" width="31" height="14" border="0" alt=""></td>
</tr>
<%
do while not RS.eof
strText = parseBR(RS("t_Text"))
if strCategory <> RS("c_Category") then
if i <> 1 then
%>
<tr>
<td><img src="img/trans.gif" width="1" height="4" border="0" alt=""></td>
</tr>
<%
end if
i = i + 1
%>
<tr>
<td><strong><%=RS("c_Category")%></strong></td>
</tr>
<%
end if
%>
<tr>
<td><%=RS("c_LinkTitle")%> [<a href="<%=RS("c_LinkAddress")%>" target="_blank">www</a>]</td>
</tr>
<%
strCategory = RS("c_Category")
RS.movenext
loop
%>
</table>
<%
end function

function categoriesGet
strSQL = "SELECT c_Category, c_LinkTitle, c_LinkAddress, t_Text, tbl_Links.u_UID FROM tbl_LinkCategories INNER JOIN tbl_Links ON tbl_LinkCategories.u_UID = tbl_Links.u_LinkCategoryUID ORDER BY tbl_LinkCategories.i_Sort, tbl_Links.i_Sort"
set RS = exec(strSQL)
end function
%>
</td>
<td valign="top" align="right"></td>
</tr>
</table>


Er der nogen der kan hjælpe med det? Jeg er kørt lidt fast.

Synes godt om

jessbonde Nybegynder

05. september 2005 - 00:20 #1

Sorry, her er linket:
http://www.1234rock.dk/defsite/surf.asp?content=surf

Synes godt om

musicchart.dk Nybegynder

05. september 2005 - 00:30 #2

Jeg har ikke lige tid nu...
Men prøv at tage et kig på denne kode, og bliv inspireret :o)

if rs.EOF then
Response.write "Ingen billeder i databasen."
else
colPrRow = 2
colInRow = 0
response.write "<table width=""200"" border=""1"">"
do while NOT RS.EOF
if colInRow = 0 then response.write "<tr>"
response.write "<td>" & "<img src=""grafik/" & rs("billed") & """>" & "<br>" & rs("beskriv") & "</td>"
colInRow = colInRow + 1
if colInRow >= colPrRow then
colInRow = 0
response.write "</tr>"
end if
RS.MoveNext
loop
if colInRow > 0 then
Response.Write "</tr>"
end if
response.write "</table>"
end if

Synes godt om

jessbonde Nybegynder

05. september 2005 - 00:41 #3

Ja, det er den jeg plejer at bruge når jeg skal have noget skrevet ud i flere kolonner, problemet er det med kategoriskiftet.
Jeg looper jo over recordsettet længere oppe, så det skal jo flettes ind lidt anderledes.
Er nok for træt til at kunne regne det ud ;o)

Synes godt om

fennec Nybegynder

05. september 2005 - 11:32 #4

Jeg har brugt denne kode til det:

<table>
<%
oldCat = ""
counter = 0
counter1 = 0
set oRs = oConn.execute("select * from TIME_EXPENSES order by udlaegstype, name")
while not oRs.eof
if oldCat <> oRs("udlaegstype") then
if counter <> 0 then Response.write "</tr>"
Response.write "<tr><td>"& oRs("udlaegstype") &"</td></tr><tr>"& vbcrlf
Response.write "<td>"& oRs("name") &"</td>"& vbcrlf
counter1 = 1
else
if counter1 mod 2 = 1 then
Response.write "</tr><tr><td>"& oRs("name") &"</td>"& vbcrlf
else
Response.write "<td>"& oRs("name") &"</td>"& vbcrlf
end if
end if
counter = counter + 1
counter1 = counter1 + 1
oldCat = oRs("udlaegstype")
oRs.MoveNext
wend
%>
</tr>
</table>

Hvis du ikke selv kan få den tilpasset din kode, skal du bare sige til, så skal jeg nok hjælpe dig med det :o)

Synes godt om

jessbonde Nybegynder

05. september 2005 - 15:57 #5

Ok, jeg fandt frem til en løsning som jeg selv kunne forstå:

function gui
dim strCategory, i, strText, intTD
strCategory = ""
i = 1
intTD = 1
%>
<table cellpadding="3" cellspacing="0" border="0" width="440">
<tr>
<td colspan="2"><img src="img/surf.gif" width="31" height="14" border="0" alt=""></td>
</tr>
<%
do while not RS.eof
strText = parseBR(RS("t_Text"))
if strCategory <> RS("c_Category") then
intTD = 1
if i <> 1 then
response.write("<td> </td>")
%>
<tr>
<td colspan="2"><img src="img/trans.gif" width="1" height="4" border="0" alt=""></td>
</tr>
<%
end if
i = i + 1

%>
<tr>
<td colspan="2"><strong><%=RS("c_Category")%></strong></td>
</tr>
<%

%>
<%
end if

if intTD = 3 then
intTD = 1
end if
if intTD = 1 then
response.write("<tr>")
end if
%>
<td width="250">[<a href="<%=RS("c_LinkAddress")%>" target="_blank">www</a>] <%=RS("c_LinkTitle")%></td>
<%
if intTD = 2 then
response.write("</tr>")
end if
strCategory = RS("c_Category")
RS.movenext
intTD = intTD + 1
loop
%>
</table>
<%
end function

Men I må gerne lave svar for indsatsen.

Synes godt om

musicchart.dk Nybegynder

05. september 2005 - 19:40 #6

Så længe du har fået det til at virke :o)
Jeg behøver ikke point

Synes godt om

fennec Nybegynder

06. september 2005 - 08:05 #7

Jeg behøver heller ikke
.o) <-- One Eyed Jack

Synes godt om

jessbonde Nybegynder

06. september 2005 - 12:16 #8

Tak for indsatsen

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	9	25/06/202622:20	29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS