Notifikationer

Markér alle som læst Log ud

jmc Nybegynder

15. oktober 2006 - 20:37 Der er 14 kommentarer og
2 løsninger

hvordan udskriver jeg dette her i to spalter?

sql = "SELECT * FROM galleri_grupper WHERE parent = " & parent & " ORDER BY Sortering"
rs.source = SQL
rs.CursorType = 2
rs.CursorLocation = 2
rs.LockType = 1

rs.Open

produktmenu = "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0""> <tr> <td bgcolor=""#CCCCCC"">"
Rcount = 1

if not rs.eof then
do until rs.eof
style="font-family: Arial, Helvetica, sans-serif;text-decoration:none;color:#FFFFFF;font-weight:bold;font-size:11px;line-height:120%;"

produktmenu = produktmenu & "<a style="""&style&""" href=""/produkter/show_" & rs("isapi_id") & ".htm"" onmouseover='imgon(" & rs("billede") & ")' onmouseout='imgon()'>" & rs("navn") & "</a>"

rs.movenext
if not rs.eof then produktmenu = produktmenu & "<span style='font-size:11px;line-height:140%'><br><br></span>"

loop
end if
' er ikke sikker på denne her
if Rcount = 6 then
produktmenu = produktmenu & "</td> </tr></table>"
end if
' den skal skrive <td></td> igen efter 6 gennemløb!

rs.Close
Set rs = Nothing

Synes godt om

wilweb Nybegynder

15. oktober 2006 - 21:00 #1

prøv og se http://www.eksperten.dk/spm/738695

Synes godt om

jmc Nybegynder

16. oktober 2006 - 00:36 #2

takker, men den vil stadigt ikke dele i to spalter....
kan du hjælpe?

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

<%

const WIDTH=3
for i=0 to antal
if (i mod WIDTH)=0 then response.write "<tr>"
DO WHILE NOT rs.EOF
%>
<TD> <%
style="font-family: Arial, Helvetica, sans-serif;text-decoration:none;color:#FFFFFF;font-weight:bold;font-size:11px;line-height:180%;"

produktmenu = produktmenu & "<a style="""&style&""" href=""/" & rs("isapi_id") & ".htm"">" & rs("tekst") & "</a><br>"
%></TD>

<%
if (i mod WIDTH)=WIDTH-1 then response.write "</tr><tr>"
i=i+1
rs.MoveNext
LOOP
if (i-1 mod WIDTH)<>WIDTH-1 then response.write "</tr>"
next
%>
</table>

Synes godt om

lund_dk Praktikant

16. oktober 2006 - 10:36 #3

Jeg bruger selv et system der ser sådan her ud:

Set rsBlog= Conn.Execute("select * from tabel")'
Do until rsBlog.eof

'OPDELER
dim streng, del_1, del_2

streng = rsBlog("indhold")

midt = len(streng)/2
counter = 0
if midt > 10 then
while counter < midt
mellemrum = Instr(right(streng,len(streng)-counter)," ")
counter = counter + mellemrum
wend
end if
del_1 = left(streng, counter)
del_2 = mid(streng, counter + 1,len(streng)-counter)
response.write del_1 'spalte 1
response.write del_2 'spalte 2
rsBlog.movenext
loop
rsBlog. close
set rsBlog= Nothing

Kan ses på www.lund.dk

Synes godt om

wilweb Nybegynder

16. oktober 2006 - 15:57 #4

Jeg er ikke helt klar over hvad jeg svarer på, men hvis det er tekst i 2 spalter så er lund_dk rigtigt, er der derimod indholdet fra en database der skal udskrives i 2 rækker, så kan du bruge denne (du må lige rette den til så den passe til dig):

<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<table width="85%" border="0">
<tr>
<td colspan="2">Velkommen til 2 rækker</td>
</tr>
<%
strSQL = "select * from tabel order by id"
Set rs = Conn.Execute(strSQL)
maxAntalRows=50
maxPrRow=2
antal=0
do while not rs.EOF and antal < (maxAntalRows*maxPrRow)
if antal mod maxPrRow = 0 then response.write "<tr>"
response.write "<td>"
response.write "<table border='0'>"
response.write " <tr> "
response.write "<td class='td_txt' width='150' valign='top'>" & rs("indhold") & "</td>"
response.write "</tr>"
response.write "</table>"
antal = antal+1
if antal mod maxPrRow = 0 then response.write "</td></tr>"
rs.Movenext
loop
if antal mod maxPrRow > 0 then response.write "<td> </td></tr>"
response.write "</table>"
%>
</body>
</html>

Synes godt om

jmc Nybegynder

16. oktober 2006 - 17:37 #5

Følgende kan jeg altså ikke få til at virke, kan du se hvad er galt?

sql = "SELECT * FROM sider WHERE parent = 385"
'response.write (sql)
rs.source = SQL
rs.CursorType = 2
rs.CursorLocation = 2
rs.LockType = 1

rs.Open

maxAntalRows=1
maxPrRow=16
antal=2
do while not rs.EOF and antal < (maxAntalRows*maxPrRow)
if antal mod maxPrRow = 0 then response.write "<tr>"
response.write "<td>"
response.write "<table border='0'>"
response.write " <tr> "

response.write "<td class='td_txt' width='150' valign='top'>"
style="font-family: Arial, Helvetica, sans-serif;text-decoration:none;color:#FFFFFF;font-weight:bold;font-size:11px;line-height:180%;"
produktmenu = produktmenu & "<a style="""&style&""" href=""/" & rs("isapi_id") & ".htm"" onmouseover='imgon(" & rs("billede") & ")' onmouseout='imgon()'>" & rs("tekst") & "</a><br>"

response.write "</td></td></table>"

antal = antal+1
if antal mod maxPrRow = 0 then response.write "</td></tr>"
rs.Movenext
loop
if antal mod maxPrRow > 0 then response.write "<td> </td></tr>"
response.write "</table>"

Synes godt om

jmc Nybegynder

16. oktober 2006 - 17:38 #6

Jeg har en rækker med 16 links som altså skal blive til 2 rækker med hvad 8 links!

Synes godt om

wilweb Nybegynder

16. oktober 2006 - 18:07 #7

Prøv og starte lidt mere enkelt!
Hvilken fejl får du?
Prøv denne:
response.write "<td class='td_txt' width='150' valign='top'>" & rs("billede") & rs("tekst") & "<br>"

frem for denne her, bare i første omgang
response.write "<td class='td_txt' width='150' valign='top'>"
style="font-family: Arial, Helvetica, sans-serif;text-decoration:none;color:#FFFFFF;font-weight:bold;font-size:11px;line-height:180%;"
produktmenu = produktmenu & "<a style="""&style&""" href=""/" & rs("isapi_id") & ".htm"" onmouseover='imgon(" & rs("billede") & ")' onmouseout='imgon()'>" & rs("tekst") & "</a><br>"

Synes godt om

wilweb Nybegynder

16. oktober 2006 - 18:12 #8

hvorfor laver du ikke en CSS class til din <td>

Synes godt om

wilweb Nybegynder

17. oktober 2006 - 17:23 #9

går det?

Synes godt om

jmc Nybegynder

17. oktober 2006 - 21:48 #10

Den skriver stadigt kun en spalte?

er følgende rigtigt?
maxAntalRows=50
maxPrRow=2
antal=0

Synes godt om

jmc Nybegynder

17. oktober 2006 - 21:51 #11

Hvis jeg skriver maxPrRow=8
så har jeg kun 6 linier og resten 10 vises ikke?

Synes godt om

jmc Nybegynder

17. oktober 2006 - 22:05 #12

Jeg gir op og prøver at finde en programmør ude i byen til at komme ind at hjælpe, jeg har forsøgt at skrive 100 forskellige kombbinationer ind som tal ind i maxAntalRows, maxPrRowosv. men det nærmeste jeg er kommet er følgende, blot er der 8 rækker med to links i hver.

maxAntalRows=1
maxPrRow=8
antal=2
do while not rs.EOF and antal < (maxAntalRows*maxPrRow)
if antal mod maxPrRow = 0 then produktmenu = produktmenu & "<tr>"
produktmenu = produktmenu & "<td>"
produktmenu = produktmenu & "<table border='1'>"
produktmenu = produktmenu & " <tr> "

produktmenu = produktmenu & "<td class='td_txt' width='150' valign='top'>"
style="font-family: Arial, Helvetica, sans-serif;text-decoration:none;color:#FFFFFF;font-weight:bold;font-size:11px;line-height:180%;"
style2="font-family: Verdana, Arial, Helvetica, sans-serif;text-decoration:none;font-weight:bold;color:#000000;font-size:10px;line-height:100%;"
produktmenu = produktmenu & "<a style="""&style&""" href=""/" & rs("isapi_id") & ".htm"" onmouseover='imgon(" & rs("billede") & ")' onmouseout='imgon()'>" & rs("tekst") & "</a><br>"

produktmenu = produktmenu & "</td></td></table>"

antal = antal+1
if antal mod maxPrRow = 0 then produktmenu = produktmenu & "</td></tr>"
rs.Movenext
loop
if antal mod maxPrRow > 0 then produktmenu = produktmenu & "<td> </td></tr>"
produktmenu = produktmenu & "</table>"

som udskriver følgende:
<td width="424">
<a onMouseOver="window.status='Prislister';return true" onMouseOut="window.status='';return true" href="/prislister.htm" style="font-family: Arial, Helvetica, sans-serif;text-decoration:none;font-weight:bold;color:#FFFFFF;font-size:11px;line-height:120%;">Prislister</a><span style='font-family: Arial, Helvetica, sans-serif;font-size:11px;font-weight:bold;line-height:120%'><br><br></span><a onMouseOver="window.status='Referenceliste';return true" onMouseOut="window.status='';return true" href="/referenceliste.htm" style="font-family: Arial, Helvetica, sans-serif;text-decoration:none;font-weight:bold;color:#FFFFFF;font-size:11px;line-height:120%;">Referenceliste</a><span style='font-family: Arial, Helvetica, sans-serif;font-size:11px;font-weight:bold;line-height:120%'><br><br></span><a onMouseOver="window.status='Firmaprofil';return true" onMouseOut="window.status='';return true" href="/firmaprofil.htm" style="font-family: Arial, Helvetica, sans-serif;text-decoration:none;font-weight:bold;color:#FFFFFF;font-size:11px;line-height:120%;">Firmaprofil</a><span style='font-family: Arial, Helvetica, sans-serif;font-size:11px;font-weight:bold;line-height:120%'><br><br></span><a onMouseOver="window.status='Kirkeårets liturgiske farver';return true" onMouseOut="window.status='';return true" href="/kirkeaarets_liturgiske_farver.htm" style="font-family: Arial, Helvetica, sans-serif;text-decoration:none;font-weight:bold;color:#FFFFFF;font-size:11px;line-height:120%;">Kirkeårets liturgiske farver</a><span style='font-family: Arial, Helvetica, sans-serif;font-size:11px;font-weight:bold;line-height:120%'><br><br></span><a onMouseOver="window.status='Messeskjorte - Målskema';return true" onMouseOut="window.status='';return true" href="/messeskjorte_-_maalskema.htm" style="font-family: Arial, Helvetica, sans-serif;text-decoration:none;font-weight:bold;color:#FFFFFF;font-size:11px;line-height:120%;">Messeskjorte - Målskema</a><span style='font-family: Arial, Helvetica, sans-serif;font-size:11px;font-weight:bold;line-height:120%'><br><br></span>
</td>

Synes godt om

wilweb Nybegynder

17. oktober 2006 - 22:37 #13

Du har sat maxAntalRows=1 den skal være maxAntalRows=2
maxAntalRows=6 'antal af rækker ned
maxPrRow=2 ' anytal af rækker -->

Synes godt om

wilweb Nybegynder

17. oktober 2006 - 22:38 #14

De 2 her skal være
maxAntalRows=4 'antal af rækker ned
maxPrRow=2 ' antal af rækker -->

Synes godt om

wilweb Nybegynder

17. oktober 2006 - 22:48 #15

Hvad er det du vil?
udskrive udtræk fra database i 2 rækker, men for mig ser det ud som om at du vil samle en masse data til en variable "produktmenu"
Hvorfor det?

Synes godt om

jmc Nybegynder

18. oktober 2006 - 00:08 #16

det er pga. at det hele parses igennem en skabelon, jeg kan ikke lige gøre noget om på dette...

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
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
Optimer MySql table med ASP Af poulmadsen i ASP	4	26/04/202417:16	26/04/202418:37
JSON Af ingeman i ASP	3	07/04/202417:53	08/04/202412:09

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