Hej. Jag undrar om någon vet varför följande kod inte fungerar.
Den fungerar visserligen bra tills att IF-Sattsen (rad 31).
Tack på förhand.

==KOD=====================================

<% Typ = Request.QueryString("xm")
if Request.QueryString("xm") = "" then
Typ = "0"
end if

SubM = "SELECT * FROM Meny WHERE TitelID = " & Typ & " And Main = false Order By Titel"
RecSet.Open SubM , Connect, adOpenStatic, adLockOptimistic

Do While Z < 100

If RecSet.EOF Then
Exit Do
End If
SubMen = SubMen & "<tr><td>" & RecSet("Titel") & "</td></tr>"
RecSet.MoveNext
Z = Z + 1
Loop
RecSet.close

lDoc = "SELECT * FROM Meny WHERE Main = true Order By hr"
RecSet.Open lDoc , Connect, adOpenStatic, adLockOptimistic

Do While X < 100
If RecSet.EOF Then
Exit Do
End If
%>
<tr>
<td><b><a style="text-decoration: none" href="http://<% =Request.ServerVariables("HTTP_HOST") & "/" & RecSet("URL") %>.asp?xm=<% =RecSet("ID") %>"><% =RecSet("Titel") %></a></b></td>
</tr>
<% If RecSet("ID") = Typ Then
Response.Write SubMen
End if
RecSet.MoveNext
X = X + 1
Loop
RecSet.close %>

Nu vet jag inte om det är rätt if-sats men prova att göra dess värden likställiga genom kommandot cInt:

<code>
If cInt(RecSet("ID")) = cInt(Typ) Then
Response.Write SubMen
End if
</code>

/Pelle

Det fungerade precis som jag ville. Tack!