Mangler link og target fra db kald
På gruvsjo.com har jeg hentet dette:<%Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("meny.mdb")
Set RS = Conn.Execute("Select * From meny Where uid ='' Order By namn")
If RS.EOF Then
Response.Write "<tr><td>Inget i menyn</td></tr>"
Else
Do Until RS.EOF
Id = RS("id")
Uid = RS("uid")
Link = RS("link")
Namn = RS("namn")
AU = RS("AU")
If AU > 0 Then
If Request.QueryString("visa") = "all" And Request.QueryString("uid") = Id Then
Response.Write "<tr><td><a href=meny.asp class=fet>" & Namn & "</td></tr>"
Else
Response.Write "<tr><td><a href=meny.asp?visa=all&uid=" & Id & ">" & Namn & "</a></td></tr>"
End If
Else
Response.Write "<tr><td><a href='" & Link & "' target='RAMNAMNET'>" & Namn & "</a></td></tr>"
End If
If Request.QueryString("visa") = "all" Then
If Request.QueryString("uid") = Id Then
Set RS2 = Conn.Execute("SELECT * From meny WHERE uid='" & Request.QueryString("uid") & "' Order By namn")
Do Until RS2.EOF
I =RS2("id")
L =RS2("link")
N = RS2("namn")
RS2.MoveNext
If Not RS2.EOF Then
Response.Write "<tr><td> <b>»</b> <a href='" & L & "' target='RAMNAMNET'>" & N & "</a></td></tr>"
Else
Response.Write "<tr><td> <b>»</b> <a href='" & L & "' target='RAMNAMNET'>" & N & "</a></td></tr>"
End If
Loop
RS2.Close
Set RS2 = Nothing
End If
End If
RS.MoveNext
Loop
End If%>
</table>
En menu men som ikke i overskrifterne ("id") henter link og target. Noget som kan hjælpe?
