/ Forside / Teknologi / Udvikling / ASP / Nyhedsindlæg
Login
Glemt dit kodeord? 		Brugernavn

Kodeord


Reklame
Top 10 brugere
ASP
#NavnPoint
1  smorch 9259
2  Harlekin 1866
3  molokyle 1040
4  Steffanst.. 758
5  gandalf 657
6  smilly 564
7  gibson 560
8  cumano 530
9  MouseKeep.. 480
10  Random 410
Hjælp !!!!!
Fra : trEx

Dato : 18-04-01 18:59
Hej

Jeg har et ASP Script der ser sådan her ud, det blive udført mere end 1 gang
og det er ikke individuelle farver den henter, jeg tænkte om man ikke kunne
skrive

Response.Write "<td bgcolor='" & rs("bgcolor") where bord='1'">1</td>"

Mit ASP Script ser sådan ud :

<html>
<head>
<title>The Complex</title>
<link rel="stylesheet" type="text/css"
href="../style/undersider/bordreservation.css">
<script language="JavaScript">
<!-- // Begin hiding from old browsers

// (Rightclick:) This section disables right click in MSIE and Netscape
function right(evnt) {
if (navigator.appName.toUpperCase().match(/NETSCAPE/) != null) {
if (evnt.which >= 2){
alert("Denne funktion er slået fra af The Complex Crew");
return false;
}
}
else
if (event.button>=2)
alert("Denne funktion er slået fra af The Complex Crew");
}
document.onmousedown=right;
if (document.layers) window.captureEvents(Event.MOUSEDOWN);
window.onmousedown=right;
// (Resize:) End rightclick disable section

// End hiding -->
</script>
</head>
<body>
<%

' Opret Database forbindelse
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "Driver={Microsoft Access Driver (*.mdb)};"
DSN = DSN & "DBQ=" & Server.MapPath("borde.mdb")
Conn.Open DSN

'Læs Bruger
strSQL1 = "Select * from borde "
Set rs = Conn.Execute(strSQL1)

Do

Response.Write "<center><h2>Her kan du betille pladser til det næste party
som vi holder.</h3>"
Response.Write "<table border='0' cellpadding='0' cellspacing='0'>"
Response.Write "<tr>"
Response.Write "<TD BGCOLOR='" & rs("bgcolor") & "' width='30px'
align='center'><A HREF='reserver.asp?bord=1' target='indhold'>1</A>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='" & rs("bgcolor") & "' width='30px'
align='center'><A HREF='reserver.asp?bord=13' target='indhold'>13</A>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='#FFFFFF' width='50px' align='center'>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='" & rs("bgcolor") & "' width='30px'
align='center'><A HREF='reserver.asp?bord=1' target='indhold'>1</A>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='" & rs("bgcolor") & "' width='30px'
align='center'><A HREF='reserver.asp?bord=1' target='indhold'>1</A>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='#FFFFFF' width='50px' align='center'>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='" & rs("bgcolor") & "' width='30px'
align='center'><A HREF='reserver.asp?bord=1' target='indhold'>1</A>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='" & rs("bgcolor") & "' width='30px'
align='center'><A HREF='reserver.asp?bord=1' target='indhold'>1</A>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='#FFFFFF' width='50px' align='center'>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='" & rs("bgcolor") & "' width='30px'
align='center'><A HREF='reserver.asp?bord=1' target='indhold'>1</A>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='" & rs("bgcolor") & "' width='30px'
align='center'><A HREF='reserver.asp?bord=1' target='indhold'>1</A>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='#FFFFFF' width='50px' align='center'>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='" & rs("bgcolor") & "' width='30px'
align='center'><A HREF='reserver.asp?bord=1' target='indhold'>1</A>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='" & rs("bgcolor") & "' width='30px'
align='center'><A HREF='reserver.asp?bord=1' target='indhold'>1</A>"
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<TD BGCOLOR='" & rs("bgcolor") & "' width='30px'
align='center'><A HREF='reserver.asp?bord=1' target='indhold'>1</A>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='" & rs("bgcolor") & "' width='30px'
align='center'><A HREF='reserver.asp?bord=1' target='indhold'>1</A>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='#FFFFFF' width='50px' align='center'>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='" & rs("bgcolor") & "' width='30px'
align='center'><A HREF='reserver.asp?bord=1' target='indhold'>1</A>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='" & rs("bgcolor") & "' width='30px'
align='center'><A HREF='reserver.asp?bord=1' target='indhold'>1</A>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='#FFFFFF' width='50px' align='center'>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='" & rs("bgcolor") & "' width='30px'
align='center'><A HREF='reserver.asp?bord=1' target='indhold'>1</A>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='" & rs("bgcolor") & "' width='30px'
align='center'><A HREF='reserver.asp?bord=1' target='indhold'>1</A>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='#FFFFFF' width='50px' align='center'>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='" & rs("bgcolor") & "' width='30px'
align='center'><A HREF='reserver.asp?bord=1' target='indhold'>1</A>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='" & rs("bgcolor") & "' width='30px'
align='center'><A HREF='reserver.asp?bord=1' target='indhold'>1</A>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='#FFFFFF' width='50px' align='center'>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='" & rs("bgcolor") & "' width='30px'
align='center'><A HREF='reserver.asp?bord=1' target='indhold'>1</A>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='" & rs("bgcolor") & "' width='30px'
align='center'><A HREF='reserver.asp?bord=1' target='indhold'>1</A>"
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<TD BGCOLOR='" & rs("bgcolor") & "' width='30px'
align='center'><A HREF='reserver.asp?bord=1' target='indhold'>1</A>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='" & rs("bgcolor") & "' width='30px'
align='center'><A HREF='reserver.asp?bord=1' target='indhold'>1</A>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='#FFFFFF' width='50px' align='center'>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='" & rs("bgcolor") & "' width='30px'
align='center'><A HREF='reserver.asp?bord=1' target='indhold'>1</A>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='" & rs("bgcolor") & "' width='30px'
align='center'><A HREF='reserver.asp?bord=1' target='indhold'>1</A>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='#FFFFFF' width='50px' align='center'>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='" & rs("bgcolor") & "' width='30px'
align='center'><A HREF='reserver.asp?bord=1' target='indhold'>1</A>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='" & rs("bgcolor") & "' width='30px'
align='center'><A HREF='reserver.asp?bord=1' target='indhold'>1</A>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='#FFFFFF' width='50px' align='center'>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='" & rs("bgcolor") & "' width='30px'
align='center'><A HREF='reserver.asp?bord=1' target='indhold'>1</A>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='" & rs("bgcolor") & "' width='30px'
align='center'><A HREF='reserver.asp?bord=1' target='indhold'>1</A>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='#FFFFFF' width='50px' align='center'>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='" & rs("bgcolor") & "' width='30px'
align='center'><A HREF='reserver.asp?bord=1' target='indhold'>1</A>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='" & rs("bgcolor") & "' width='30px'
align='center'><A HREF='reserver.asp?bord=1' target='indhold'>1</A>"
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<TD BGCOLOR='" & rs("bgcolor") & "' width='30px'
align='center'><A HREF='reserver.asp?bord=1' target='indhold'>1</A>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='" & rs("bgcolor") & "' width='30px'
align='center'><A HREF='reserver.asp?bord=1' target='indhold'>1</A>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='#FFFFFF' width='50px' align='center'>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='" & rs("bgcolor") & "' width='30px'
align='center'><A HREF='reserver.asp?bord=1' target='indhold'>1</A>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='" & rs("bgcolor") & "' width='30px'
align='center'><A HREF='reserver.asp?bord=1' target='indhold'>1</A>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='#FFFFFF' width='50px' align='center'>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='" & rs("bgcolor") & "' width='30px'
align='center'><A HREF='reserver.asp?bord=1' target='indhold'>1</A>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='" & rs("bgcolor") & "' width='30px'
align='center'><A HREF='reserver.asp?bord=1' target='indhold'>1</A>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='#FFFFFF' width='50px' align='center'>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='" & rs("bgcolor") & "' width='30px'
align='center'><A HREF='reserver.asp?bord=1' target='indhold'>1</A>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='" & rs("bgcolor") & "' width='30px'
align='center'><A HREF='reserver.asp?bord=1' target='indhold'>1</A>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='#FFFFFF' width='50px' align='center'>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='" & rs("bgcolor") & "' width='30px'
align='center'><A HREF='reserver.asp?bord=1' target='indhold'>1</A>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='" & rs("bgcolor") & "' width='30px'
align='center'><A HREF='reserver.asp?bord=1' target='indhold'>1</A>"
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<TD BGCOLOR='" & rs("bgcolor") & "' width='30px'
align='center'><A HREF='reserver.asp?bord=1' target='indhold'>1</A>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='" & rs("bgcolor") & "' width='30px'
align='center'><A HREF='reserver.asp?bord=1' target='indhold'>1</A>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='#FFFFFF' width='50px' align='center'>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='" & rs("bgcolor") & "' width='30px'
align='center'><A HREF='reserver.asp?bord=1' target='indhold'>1</A>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='" & rs("bgcolor") & "' width='30px'
align='center'><A HREF='reserver.asp?bord=1' target='indhold'>1</A>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='#FFFFFF' width='50px' align='center'>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='" & rs("bgcolor") & "' width='30px'
align='center'><A HREF='reserver.asp?bord=1' target='indhold'>1</A>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='" & rs("bgcolor") & "' width='30px'
align='center'><A HREF='reserver.asp?bord=1' target='indhold'>1</A>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='#FFFFFF' width='50px' align='center'>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='" & rs("bgcolor") & "' width='30px'
align='center'><A HREF='reserver.asp?bord=1' target='indhold'>1</A>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='" & rs("bgcolor") & "' width='30px'
align='center'><A HREF='reserver.asp?bord=1' target='indhold'>1</A>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='#FFFFFF' width='50px' align='center'>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='" & rs("bgcolor") & "' width='30px'
align='center'><A HREF='reserver.asp?bord=1' target='indhold'>1</A>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='" & rs("bgcolor") & "' width='30px'
align='center'><A HREF='reserver.asp?bord=1' target='indhold'>1</A>"
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<TD BGCOLOR='" & rs("bgcolor") & "' width='30px'
align='center'><A HREF='reserver.asp?bord=1' target='indhold'>1</A>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='" & rs("bgcolor") & "' width='30px'
align='center'><A HREF='reserver.asp?bord=1' target='indhold'>1</A>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='#FFFFFF' width='50px' align='center'>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='" & rs("bgcolor") & "' width='30px'
align='center'><A HREF='reserver.asp?bord=1' target='indhold'>1</A>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='" & rs("bgcolor") & "' width='30px'
align='center'><A HREF='reserver.asp?bord=1' target='indhold'>1</A>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='#FFFFFF' width='50px' align='center'>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='" & rs("bgcolor") & "' width='30px'
align='center'><A HREF='reserver.asp?bord=1' target='indhold'>1</A>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='" & rs("bgcolor") & "' width='30px'
align='center'><A HREF='reserver.asp?bord=1' target='indhold'>1</A>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='#FFFFFF' width='50px' align='center'>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='" & rs("bgcolor") & "' width='30px'
align='center'><A HREF='reserver.asp?bord=1' target='indhold'>1</A>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='" & rs("bgcolor") & "' width='30px'
align='center'><A HREF='reserver.asp?bord=1' target='indhold'>1</A>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='#FFFFFF' width='50px' align='center'>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='" & rs("bgcolor") & "' width='30px'
align='center'><A HREF='reserver.asp?bord=1' target='indhold'>1</A>"
Response.Write "</td>"
Response.Write "<TD BGCOLOR='" & rs("bgcolor") & "' width='30px'
align='center'><A HREF='reserver.asp?bord=1' target='indhold'>1</A>"
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "</table>"
rs.MoveNext

Loop While Not rs.EOF

'Luk Database forbindelse
Conn.Close
Set Conn = Nothing
%>

<ul>
<center><li>Grøn viser at pladsen er ledig.</li>
<center><li>Rød viser at pladsen er reserveret.</li>
</ul>
</body>
</html>

Mvh
Kenneth
kenneth_fuglsang@hotmail.com



 
 
Thygesen (19-04-2001)
Kommentar
Fra : Thygesen

Dato : 19-04-01 20:19

"trEx" <amd900athlon@hotmail.com> skrev i en meddelelse
news:9bn8vf$8l5$1@news.inet.tele.dk...
> Hej
>
> Jeg har et ASP Script der ser sådan her ud, det blive udført mere end 1
gang
> og det er ikke individuelle farver den henter, jeg tænkte om man ikke
kunne
> skrive
>
> Response.Write "<td bgcolor='" & rs("bgcolor") where bord='1'">1</td>"
>
> Mit ASP Script ser sådan ud :
>

>
> <kode>

Nej du kan ike gøre det du skriver men til gælgeld kan du bruge følgende:

strSQL1 = "Select * from borde WHERE bord = 1"



Mvh. Christoffer Thygesen

homepage: http://cht.dk
e-mail: cht@cht.dk




trEx (19-04-2001)
Kommentar
Fra : trEx

Dato : 19-04-01 11:25
Hej
Men hvordan får jeg den så til ikke at vise tabellen 121 gange og stadig
bruge samme design på tabellen.

Mvh
Kenneth Fuglsang
kenneth-fuglsang@pc.dk


"Thygesen" <thyge@get2net.dk> skrev i en meddelelse
news:3adf3020$1@news.carlbro.dk...
>
> "trEx" <amd900athlon@hotmail.com> skrev i en meddelelse
> news:9bn8vf$8l5$1@news.inet.tele.dk...
> > Hej
> >
> > Jeg har et ASP Script der ser sådan her ud, det blive udført mere end 1
> gang
> > og det er ikke individuelle farver den henter, jeg tænkte om man ikke
> kunne
> > skrive
> >
> > Response.Write "<td bgcolor='" & rs("bgcolor") where bord='1'">1</td>"
> >
> > Mit ASP Script ser sådan ud :
> >
>
> >
> > <kode>
>
> Nej du kan ike gøre det du skriver men til gælgeld kan du bruge følgende:
>
> strSQL1 = "Select * from borde WHERE bord = 1"
>
>
>
> Mvh. Christoffer Thygesen
>
> homepage: http://cht.dk
> e-mail: cht@cht.dk
>
>
>



Thygesen (20-04-2001)
Kommentar
Fra : Thygesen

Dato : 20-04-01 17:08
"trEx" <amd900athlon@hotmail.com> skrev i en meddelelse
news:9bp2o2$2ed$1@news.inet.tele.dk...
> Hej
> Men hvordan får jeg den så til ikke at vise tabellen 121 gange og stadig
> bruge samme design på tabellen.
>

Det kan du gøre på følgende måde:


<%
response.write "<table>"

While not RS.EOF

Response.Write "<tr><TD BGCOLOR='" & rs("bgcolor") & "' width='30px'
align='center'><A HREF='reserver.asp?bord=1'
target='indhold'>1</A></td></tr>"

RS.MoveNext

Wend

response.write "</table>"
%>


Mvh. Christoffer Thygesen

homepage: http://cht.dk
e-mail: cht@cht.dk



Jørn Andersen (20-04-2001)
Kommentar
Fra : Jørn Andersen

Dato : 20-04-01 17:38
On Fri, 20 Apr 2001 17:08:13 +0100, "Thygesen" <thyge@get2net.dk>
wrote:

>> Men hvordan får jeg den så til ikke at vise tabellen 121 gange og stadig
>> bruge samme design på tabellen.
>>
>
>Det kan du gøre på følgende måde:
<SNIP>

Hej Kenneth,
Er problemet ikke, at du vil have både kolonner og rækker? Så er du
nok nødt til at lave en loop i en loop.

Jeg har prøvet med et eksempel på:
<URL: http://www.marxisme.dk/test/borde/borde.asp>

Hvis det er noget i den retning, du tænker på, så kommer borde.asp
nederst.

Eksemplet går ud fra en tabel med to felter:
[plads] indeholder numre fra 1-48
[reserveret] indeholder et reserveringsnummer, hvis det er reserveret
og ellers 0 (tallet nul)

Efter min mening er det lidt bagvendt at hente en baggrundsfarveværdi
fra en database, når man i virkeligheden blot skal bruge et tal til at
vise om en farve skal være rød eller grøn.

Du kan evt. selv hente basen på:
<URL: http://www.marxisme.dk/test/borde/borde.mdb>
(Jeg skal nok vente et par dage med at slette den, hvis du skulle få
brug for den.)

Good luck,
Jørn



* borde.asp, hvor det øverste er skåret af
------------------------------------------
' Der lidt rigeligt med Response.Write her, men det var for ikke
' at få alt for meget ged i linieskiftene
' bordrækkerne kalder vi "r" og pladserne på hver bordrække "p".
' Der er 6 bordrækker med hver 8 pladser - i alt 48 pladser
' Efter to rækker skal der komme et mellemrum.


Response.Write "<h2 ALIGN='center'>Her kan du betille pladser til"
Response.Write " det næste party som vi holder.</h2>" & vbcrlf
Response.Write "<P>&nbsp;</P>" & vbcrlf
Response.Write "<DIV ALIGN='center'>" & vbcrlf
Response.Write "<table width='70%' border='0' cellpadding='0'"
Response.Write " cellspacing='0'>" & vbcrlf

If rs.EOF Then
Response.Write "Der er sket en fejl"
Else
r = 0
p = 0
Do While Not rs.EOF
r = r + 1
m = r Mod 2
If m = 1 AND r > 1 Then
Response.Write "<TR><TD COLSPAN='9'> &nbsp; </TD></TR>"
End If
Response.Write "<tr>"
Response.Write "<TD BGCOLOR='#FFFFFF' width='20%'>Række " & r
Response.Write "</TD>" & vbcrlf
For p = 1 to 8
If (rs("reserveret") = 0) Then
bgcolor = "green"
Else
bgcolor = "red"
End If
Response.Write "<TD BGCOLOR='" & bgcolor
Response.Write "' width='10%' align='center'>"
Response.Write "<A HREF='reserver.asp?bord="
Response.Write rs("plads")
Response.Write "' target='indhold'><STRONG>"
Response.Write rs("plads")
Response.Write "</STRONG></A>" & vbcrlf
Response.Write "</td>"
rs.MoveNext
Next
Response.Write "<tr>"
Loop
Response.Write "</table>"
Response.Write "</DIV>" & vbcrlf
End If

' Luk RecordSet
rs.Close
Set rs = Nothing

' Luk Database forbindelse
Conn.Close
Set Conn = Nothing




Thygesen (21-04-2001)
Kommentar
Fra : Thygesen

Dato : 21-04-01 09:47

"Jørn Andersen" <jorn.a@email.dk> skrev i en meddelelse
news:k2XgOq59JIVwsH=XIqn0+5+aX7uf@4ax.com...
> On Fri, 20 Apr 2001 17:08:13 +0100, "Thygesen" <thyge@get2net.dk>
> wrote:
>
> Hej Kenneth,
> Er problemet ikke, at du vil have både kolonner og rækker? Så er du
> nok nødt til at lave en loop i en loop.
>

Det kan løses på følgende måde, uden brug af loop i en loop. Du kan selv
vælge hvor mange kolonner du vil have i hver række, (lige nu er den sat til
at lave 8 kolonner i hver række).

Her er koden:

<%
response.write "<table>" & VbCrLf

i = 0

While not RS.EOF

if i = 0 then
response.write "<tr>"
end if

i = i+1

response.write "<TD BGCOLOR='" & rs("bgcolor") & "' width='30px'
align='center'><A HREF='reserver.asp?bord=1' target='indhold'>1</A></td>"

if i = 8 then
response.write "</tr>" & VbCrLf
i = 0
end if

RS.MoveNext
Wend

if i > 0 then
response.write "</tr>" & VbCrLf
end if

response.write "</table>"
%>

Mvh. Christoffer Thygesen

homepage: http://cht.dk
e-mail: cht@cht.dk




Jørn Andersen (21-04-2001)
Kommentar
Fra : Jørn Andersen

Dato : 21-04-01 14:34
On Sat, 21 Apr 2001 09:47:24 +0100, "Thygesen" <thyge@get2net.dk>
wrote:

<SNIP>

>Det kan løses på følgende måde, uden brug af loop i en loop. Du kan selv
>vælge hvor mange kolonner du vil have i hver række, (lige nu er den sat til
>at lave 8 kolonner i hver række).

Ja, men hvordan får du så linket til og navngivet den rigtige
bordplads?

<SNIP>

><A HREF='reserver.asp?bord=1' target='indhold'>1</A></td>"

Mvh. Jørn


--
Jørn Andersen
Brønshøj

Thygesen (22-04-2001)
Kommentar
Fra : Thygesen

Dato : 22-04-01 12:10
"Jørn Andersen" <jorn.a@email.dk> skrev i en meddelelse
news:YYzhOtDjWw3vqh9dAOEKCUfCOiAV@4ax.com...
> On Sat, 21 Apr 2001 09:47:24 +0100, "Thygesen" <thyge@get2net.dk>
> wrote:
>
> Ja, men hvordan får du så linket til og navngivet den rigtige
> bordplads?
>
> <SNIP>
>
> ><A HREF='reserver.asp?bord=1' target='indhold'>1</A></td>"


Så skal du ikke bruge den linie jeg skrev i det første svar, som var:
strSQL1 = "Select * from borde WHERE bord = 1"
men du skal bare bruge følgende:
strSQL1 = "Select * from borde"

I linien med dit link til det enkelte bord, der kan du bruge følgende:
response.write "<TD BGCOLOR='" & rs("bgcolor") & "' width='30px'
align='center'><A HREF='reserver.asp?bord=" & rs("bordnr") & "'
target='indhold'>1</A></td>"

Du skal selvfølgelig lige rette rs("bordnr") til det din kolonne hedder, du
kan også bruge rs("id") til at identificere det enkelte bord.


Mvh. Christoffer Thygesen

homepage: http://cht.dk
e-mail: cht@cht.dk



Søg
Reklame
Statistik
Spørgsmål : 177557
Tips : 31968
Nyheder : 719565
Indlæg : 6408866
Brugere : 218888
Månedens bedste
Årets bedste
Sidste års bedste
Copyright © 2000-2024 kandu.dk. Alle rettigheder forbeholdes.