Varför fungerar inte det här i ns 4.8 när det funkar i ns6 ie6 mozilla 1 & opera? Sidan laddas inte i ns 4.8..inga felmess.sidan laddas inte..
Dim ObjCn, StrRs
Dim StrBgColor, IntCount
Dim StrTStr
StrBgColor = "#eeeeee"
IntCount = 1
'//bortkommenterad databashantering
set StrRs = ObjCn.execute("SELECT * FROM links ORDER BY datum desc")
response.write"<table>"
Do until StrRs.EOF
If (IntCount mod 2) = 0 Then
StrBgColor = "#555555"
Else
StrBgColor = "#777777"
End If
StrTStr = replace(StrRs("destination"),"&","&")
with response
.write "<tr>"
.write "<td width=""75"" bgcolor="""
.write StrBgColor
.write """ style=""font-family:verdana,arial,helvetica;color:#ffffff;font-weight:bold;font-size:10px;"
.write """>"
.write StrRs("datum")
.write "</td>"
.write "<td width=""5"" "
.write "class=""link_two"" "
.write "bgcolor="""
.write StrBgColor
.write """>"
.write "<img alt="""" height=""1"" src=""bilder/t.gif"">"
.write "</td>"
.write "<td "
.write "class=""link_two"" "
.write "bgcolor="""
.write StrBgColor
.write """>"
.write " .write StrTStr
.write """ title="""
.write StrTStr
.write """>"
.write StrRs("description")
.write "</td></tr>"
end with
IntCount = IntCount + 1
StrRs.Movenext
Loop
StrRs.close
Set StrRs=nothing
ObjCn.close
Set ObjCn=nothing
response.write"</table></td>"