Notifikationer

Markér alle som læst Log ud

tblaster Nybegynder

17. oktober 2002 - 18:26 Der er 11 kommentarer og
2 løsninger

asp problem

Hvad er der lige galt med denne kode?

'URL Convert
If rs("Link") >< "" Then
Bordopstilling = "<a style='text-decoration:none' href='/1/" & rs("Link") & "'>" & rs("Bordopstilling") & "</a>"
End If

If rs("Link") = "" Then
Bordopstilling1 = rs("Bordopstilling")
End If
'End URL Convert
%>
<tr>
<td width="32%">
<%
response.write Bordopstilling
end if
%>
</td>
<td width="68%">
<%
response.write"<input type=radio name=" & rs("Bordopstilling") & "onclick=submit();>  " & rs("Pris") & ",00kr"
%>
</td>
</tr>
<%
rs.MoveNext
Next

If Bordopstilling1 >< "" Then
response.write "<tr>"
response.write "<td width=""32%"">"
response.write Bordopstilling1
response.write "</td>"
response.write "<td width=""68%"">"
response.write"<input type=radio name=" & Bordopstilling1 & "onclick=submit();>  " & rs("Pris") & ",00kr"
response.write"</td>"
response.write"</tr>"
End If

Den melder igen fejl men jeg har i min databasen et felt hvor der ikke er nogen link defineret og som hedder Ingen. Men når jeg udskriver siden så skriver den Bordopstilling 5 (Hvilket er den sidste af dem med links) og derudover har den link på men den skriver den rigtige pris ...

Synes godt om

grunken Nybegynder

17. oktober 2002 - 18:39 #1

tog lige de første 10 linier, prøv at ændre den som følgende

'URL Convert
If len(rs("Link")) > 0 "" Then
Bordopstilling = "<a style='text-decoration:none' href='/1/" & rs("Link") & "'>" & rs("Bordopstilling") & "</a>"
End If

If len(rs("Link")) = 0 Then
Bordopstilling1 = rs("Bordopstilling")
End If
'End URL Convert

-grunken

Synes godt om

tblaster Nybegynder

17. oktober 2002 - 18:43 #2

Så får jeg:

Expected 'Then'

If len(rs("Link")) > 0 "" Then

Synes godt om

grunken Nybegynder

17. oktober 2002 - 18:44 #3

Upz :)

'URL Convert
If len(rs("Link")) > 0 Then
Bordopstilling = "<a style='text-decoration:none' href='/1/" & rs("Link") & "'>" & rs("Bordopstilling") & "</a>"
End If

If len(rs("Link")) = 0 Then
Bordopstilling1 = rs("Bordopstilling")
End If
'End URL Convert

&

''If Bordopstilling1 >< "" Then'' skal ændres til ''if len(Bordopstilling1) > 0 Then''

-grunken

Synes godt om

tblaster Nybegynder

17. oktober 2002 - 18:47 #4

Det giver nøjagtigt det samme som før ... den skriver det som:

Bordopstilling 1 100,00kr
Bordopstilling 2 150,00kr
Bordopstilling 3 300,00kr
Bordopstilling 4 100,00kr
Bordopstilling 5 200,00kr
Bordopstilling 5 0,00kr

Hvor der skulle have stået:

Bordopstilling 1 100,00kr
Bordopstilling 2 150,00kr
Bordopstilling 3 300,00kr
Bordopstilling 4 100,00kr
Bordopstilling 5 200,00kr
Ingen 0,00kr

Synes godt om

grunken Nybegynder

17. oktober 2002 - 18:58 #5

Det er lidt rodet uden at man kan se databasen !, men jeg laver det sq lige om :)

Synes godt om

grunken Nybegynder

17. oktober 2002 - 19:05 #6

Nu har jeg ikke hele koden, men prøv :

'URL Convert
If len(rs("Link")) > 0 Then
Bordopstilling = "<a style='text-decoration:none' href='/1/" & rs("Link") & "'>" & rs("Bordopstilling") & "</a>"
End If

If len(rs("Link")) = 0 Then
Bordopstilling1 = rs("Bordopstilling")
End If
'End URL Convert
%>
<tr>
<td width="32%">
<%
response.write Bordopstilling
end if
%>
</td>
<td width="68%">
<%
If len(Bordopstilling1) > 0 Then
response.write"<input type=radio name=" & Bordopstilling1 & "onclick=submit();>  " & rs("Pris") & ",00kr"
ElseIF len(Bordopstilling1) = 0
response.write"<input type=radio name=" & rs("Bordopstilling") & "onclick=submit();>  " & rs("Pris") & ",00kr"
End If
%>
</td>
</tr>
<%
rs.MoveNext
Next

-grunken

Synes godt om

tblaster Nybegynder

17. oktober 2002 - 19:09 #7

Med det du skrev og resten af koden ser det således ud:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
Conn.Open "DBQ=" & Server.Mappath("../../db/Booking.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};Password=1234;"

SQL = "SELECT Bordopstilling, Pris, Link from bordopstilling where Lokale = " & Session("Id")
rs.Open SQL, Conn

For x = 1 to 20
If rs.eof then
Exit For
Else

'URL Convert
If len(rs("Link")) > 0 Then
Bordopstilling = "<a style='text-decoration:none' href='/1/" & rs("Link") & "'>" & rs("Bordopstilling") & "</a>"
End If

If len(rs("Link")) = 0 Then
Bordopstilling1 = rs("Bordopstilling")
End If
'End URL Convert
%>
<tr>
<td width="32%">
<%
response.write Bordopstilling
end if
%>
</td>
<td width="68%">
<%
If len(Bordopstilling1) > 0 Then
response.write"<input type=radio name=" & Bordopstilling1 & "onclick=submit();>  " & rs("Pris") & ",00kr"
ElseIF len(Bordopstilling1) = 0 Then
response.write"<input type=radio name=" & rs("Bordopstilling") & "onclick=submit();>  " & rs("Pris") & ",00kr"
End If
%>
</td>
</tr>
<%
rs.MoveNext
Next

If len(Bordopstilling1) > 0 Then
response.write "<tr>"
response.write "<td width=""32%"">"
response.write Bordopstilling1
response.write "</td>"
response.write "<td width=""68%"">"
response.write"<input type=radio name=" & Bordopstilling1 & "onclick=submit();>  " & rs("Pris") & ",00kr"
response.write"</td>"
response.write"</tr>"
End If

%>

Og den gør stadig nøjagtig det samme som før :-(

Synes godt om

grunken Nybegynder

17. oktober 2002 - 19:33 #8

Godt, nu har jeg kogt den lidt ned..... stadig utestet

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
Conn.Open "DBQ=" & Server.Mappath("../../db/Booking.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};Password=1234;"

SQL = "SELECT Bordopstilling, Pris, Link from bordopstilling where Lokale = " & Session("Id")
rs.Open SQL, Conn

While not rs.EOF

response.write "<tr>"
response.write "<td width=""32%"">"

If len(rs("Link")) > 0 Then
response.write "<a style=""text-decoration:none"" href=""/1/" & rs("Link") & """>" & rs("Bordopstilling") & "</a>"
ElseIF len(rs("Link")) = 0
response.write rs("Bordopstilling")
End IF

response.write "</td>"
response.write "<td width=""68%"">"

response.write"<input type=radio name=" & rs("Bordopstilling") & "onclick=submit();>  " & rs("Pris") & ",00kr"

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

rs.MoveNext
wend

%>

-grunken

Synes godt om

tblaster Nybegynder

17. oktober 2002 - 19:57 #9

hvad er det sidste wend til?

Synes godt om

tblaster Nybegynder

17. oktober 2002 - 19:59 #10

Jeg har fået den til at virke med:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
Conn.Open "DBQ=" & Server.Mappath("../../db/Booking.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};Password=1234;"

SQL = "SELECT Bordopstilling, Pris, Link from bordopstilling where Lokale = " & Session("Id")
rs.Open SQL, Conn

For x = 1 to 20
If rs.eof then
Exit For
Else

'URL Convert
Bordopstilling = "<a style='text-decoration:none' href='/1" & rs("Link") & "'>" & rs("Bordopstilling") & "</a>"
'End URL Convert
%>
<tr>
<td width="32%">
<%
response.write Bordopstilling
end if
%>
</td>
<td width="68%">
<%
response.write"<input type=radio name=" & rs("Bordopstilling") & "onclick=submit();>  " & rs("Pris") & ",00kr"
%>
</td>
</tr>
<%
rs.MoveNext
Next
%>

Synes godt om

tblaster Nybegynder

17. oktober 2002 - 19:59 #11

Smid et svar og du skal få 15 point for din hjælp!

Synes godt om

grunken Nybegynder

17. oktober 2002 - 20:12 #12

Det sidste "wend" er bare fordi at loopet er lavet på en anden måde :)

din "for X = 1 TO 20" er ikke en særlig genial måde at lave loops på i en database, hvis nu der kommer over 20 kolonner !

Jeg syntes for din egen skyld at du skal bruge lidt mere tid på at optimere din kode....da du sætter mange begrænsninger for dig selv !

Men held og lykke med projektet :)

Synes godt om

tblaster Nybegynder

17. oktober 2002 - 20:15 #13

Jeg takker for dit råd men man kan jo bare sætte X = 1 T0 9999 !!!

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
Persits.Upload Af bsn i ASP	9	17/09/202611:37	21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
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

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