SET.... If.... Then..... Else.... End

Du har glemt gåseøjne til slut på linien

Du skal bruge " og ikke '. En ' bruges til at udkommentere en tekst:

If Rsgalleri("url1s") = "x" Then

hov ja glem mit svar det står jo inde i en response.write :)

sorry - de gåse øjne var i en af mine "forsøg", men selv det hjælper ikke.

Fejlmeldingen melder:
Error Type:
Microsoft VBScript compilation (0x800A0409)
Unterminated string constant
/chili/billed1.asp, line 44, column 52
Response.Write " <% If Rsgalleri('url1s') = 'x' Then
---------------------------------------------------^

Som jespernaur skriver du mangler en " til at afslutte den response.write:

Response.Write "    <% If Rsgalleri('url1s') = 'x' Then %>"

Er det kode du vil udskrive som eks eller er det kode som skal køres og lave en tabel?

som den ser ud nu:
<%
    SET Rsgalleri = Conn.Execute("SELECT * FROM Galleri WHERE PID IN (SELECT UGrup FROM Side WHERE UGrup=" & Request("SIDE") & ";) ;")
Response.Write "<table border='0' width='400' cellspacing='0' cellpadding='8' class='tmain'>"
Response.Write "  <tr>"
Response.Write "    <td width='33%' valign='middle' align='center'>"
Response.Write "    <% If Rsgalleri('url1s') = 'x' Then %>"
Response.Write "Chr(32)"
Response.Write "  <% Else %>"
Response.Write " <a href=" & Chr(34) & "default.asp?side=" & Rsgalleri("url1") & Chr(34) & "target=" & Chr(34) & "_blank" & Chr(34) & "><img src=" & Chr(34) & Rsgalleri('url1s') & Chr(34) & " border='0'></a></td>"
Response.Write "     <% End If %>"
------------------------------------
og fejlen er
Error Type:
Microsoft VBScript compilation (0x800A0409)
Unterminated string constant
/chili/billed1.asp, line 44, column 52
Response.Write " <% If Rsgalleri('url1s') = 'x' Then
---------------------------------------------------^

udskrives som eks?? noper
den skal bare udføre det i tabellen....

Ok hvis det er kode som skal udføres så skal du ikke havde Response.write på de linier hvor du udføre ASP kode som if then else end if ... do loop.

Response.write skal kun bruges til at udskrive til browseren/siden:


SET Rsgalleri = Conn.Execute("SELECT * FROM Galleri WHERE PID IN (SELECT UGrup FROM Side WHERE UGrup=" & Request("SIDE") & ";) ;")
Response.Write "<table border='0' width='400' cellspacing='0' cellpadding='8' class='tmain'>"
Response.Write "  <tr>"
Response.Write "    <td width='33%' valign='middle' align='center'>"
If Rsgalleri("url1s") = "x" Then
  Response.Write "Chr(32)"
Else
Response.Write " <a href=" & Chr(34) & "default.asp?side=" & Rsgalleri("url1") & Chr(34) & "target=" & Chr(34) & "_blank" & Chr(34) & "><img src=" & Chr(34) & Rsgalleri('url1s') & Chr(34) & " border='0'></a></td>"
End If

Det går galt her: Rsgalleri('url1s')

Som det tidligere er sagt, bruges ' (ping) til at kommentere med i VBScript.

Erstat alle ' med "" i response.write og i selve scriptet som ovenstående, skal du anvende "

Det virker nu :)
ja, tror dengang jeg lavede forsøget uden response.write foran lige de sætninger, at jeg manglede at rette fra ' til " :)

Takker :)

damn... sad med denne kode i et andet dokument, og da jeg smækkede den ind der hvor den hører til opdagede jeg det jeg havde glemt :\

Det er en if-else-then i en if-else-then, så er der en "hurtig" løsning på det???

altså<% If Rs("TMenu") = "4" Then %>
    <%
    SET Rsgalleri = Conn.Execute("SELECT * FROM Galleri WHERE PID IN (SELECT UGrup FROM Side WHERE UGrup=" & Request("SIDE") & ";) ;")
Response.Write "<table border='0' width='400' cellspacing='0' cellpadding='3' class='tmain'>"
Response.Write "  <tr>"
Response.Write "    <td width='33%' valign='middle' align='center'>"
    If Rsgalleri("url1s") = "x" Then
Response.Write " "
        Else
Response.Write " <a href=" & Chr(34) & "default.asp?side=" & Rsgalleri("url1") & Chr(34) & "target=" & Chr(34) & "_blank" & Chr(34) & "><img src=" & Chr(34) & Rsgalleri("url1s") & Chr(34) & " border='0'></a></td>"
    End If


osv... med flere muligheder for begge 2 : \

du mangler en else eller end if på den første if:


<% If Rs("TMenu") = "4" Then %>
    <%
    SET Rsgalleri = Conn.Execute("SELECT * FROM Galleri WHERE PID IN (SELECT UGrup FROM Side WHERE UGrup=" & Request("SIDE") & ";) ;")
Response.Write "<table border='0' width='400' cellspacing='0' cellpadding='3' class='tmain'>"
Response.Write "  <tr>"
Response.Write "    <td width='33%' valign='middle' align='center'>"
    If Rsgalleri("url1s") = "x" Then
Response.Write " "
        Else  'Else til: If Rsgalleri("url1s") = "x"
Response.Write " <a href=" & Chr(34) & "default.asp?side=" & Rsgalleri("url1") & Chr(34) & "target=" & Chr(34) & "_blank" & Chr(34) & "><img src=" & Chr(34) & Rsgalleri("url1s") & Chr(34) & " border='0'></a></td>"
    End If 'End if til: If Rsgalleri("url1s") = "x"
else
  'Else delen til: if rs("TMenu") = "4"

end if 'End til: if rs("TMenu") = "4"

Det er der længere nede.
"kort sagt"

kode heroppe
<% If RS("TMenu") = "4" Then %>
<%
  SET Rsgalleri = Conn.Execute("SELECT * FROM Galleri WHERE PID IN (SELECT UGrup FROM Side WHERE UGrup=" & Request("SIDE") & ";) ;")
Response.Write "<table border='0' width='400' cellspacing='0' cellpadding='3' class='tmain'>"
If Rsgalleri("url1s") = "x" Then
Response.Write " "
      Else
Response.Write "Noget andet"
    End If
Else 'else til TMenu=4
<% If RS("TMenu") = "5" Then %>
      <%= Rs("Indhold") %>
<% End If %>

hvis du har mange hvor du skal tjekke på TMenu kan du lave elseif:

if .. then

elseif .. then

elseif .. then

end if

i denne mangler det umiddelbart en end if:

Else 'else til TMenu=4
<% If RS("TMenu") = "5" Then %>
      <%= Rs("Indhold") %>
  <% End If %>
<% End If %>

opretter lige et nyt spr. hvor jeg smækker koden i, for er selv vildt forvirret lige nu :\