Page work's on IE but doasn't on Netscape ??? [Archive]

gardijan

Nov 15th, 2000, 10:39 AM

My ASP page work's perfectly on IE but doasn't work on Netscape. Why?

http://www.ferforum.com

My ASP source is:

<% @LANGUAGE = VBScript %>
<%
Option Explicit
Response.Expires = 0
%>

<html>
<head>
<title>FER Forum</title>
</head>
<body bgcolor="#FFFFFF" text="#000000" link="#000000" vlink="#333333" alink="#CC0000">
<%
Dim objConn, objRS, strConn
Dim strRubrika, strBrojac, strTema
Dim Database, objPS, dtmDatum
Dim strID, strBoja, bSem

strID = Trim(Request.QueryString("id"))
Set objConn = Server.CreateObject("ADODB.Connection")

strConn = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("database/forum.mdb") & ";"
objConn.Open strConn

Set objRS = Server.CreateObject("ADODB.Recordset")
Set objRS.ActiveConnection = objConn
Set objPS = Server.CreateObject("ADODB.Recordset")
Set objPS.ActiveConnection = objConn

Set objRS = objConn.Execute("SELECT * FROM odgovor WHERE rubrika = '"&strID&"' ORDER BY datum DESC")

%>
<p align="Center"><font color="White"><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000" size="5">Ponudjene
teme za raspravu su:</font></font></p>
<p align="Center"><font color="White"><font face="Verdana, Arial, Helvetica, sans-serif" color="#6666FF" size="4">
<br>
</font></font></p>
<table align="center" border="1" bordercolor="#000000" bgcolor="" cellpadding="8" cellspacing="0" width="90%" height="53">
<tr bgcolor="#CC0000">
<td align="left" width="55%" height="45"><font color="#FFFFFF" face="Verdana, Arial, Helvetica, sans-serif" size="4">Tema</font></td>
<td align="left" width="15%" height="45"><font color="#FFFFFF" face="Verdana, Arial, Helvetica, sans-serif" size="4">Autor</font></td>
<td align="left" width="15%" height="45"><font color="#FFFFFF" face="Verdana, Arial, Helvetica, sans-serif" size="4">Datum
pokretanja</font></td>
<td align="left" width="15%" height="45"><font color="#FFFFFF" face="Verdana, Arial, Helvetica, sans-serif" size="4">Broj
odgovora</font></td>
</tr>

<%
bSem= False
While Not objRS.EOF

If (bSem = True) Then
strBoja = "#CCCCCC"
bSem = False
Else
strBoja = "#FFFFFF"
bSem = True
End If

strTema ="Re:" + objRS("tema")
Response.Write"<tr bgcolor="&strBoja&"><td><font face=""Verdana, Arial, Helvetica, sans-serif""><a href=""rasprave.asp?rubrika=" & strID &"&id=" & objRS("tema") &""">"
Response.Write Server.HtmlEncode(objRS("tema")) & "</a></font></td>"
Response.Write "<td><font face=""Verdana, Arial, Helvetica, sans-serif"" size=2>" & objRS("ime") & "</font></td>"
Response.Write "<td align=""centar""><font face=""Verdana, Arial, Helvetica, sans-serif"" size=2>" & objRS("datum") & "</font></td>"
Set objPS = objConn.Execute("SELECT brojac FROM broj WHERE tema = '"&strTema&"' and rubrika = '"&strID&"'")
Response.Write "<td align=""center""><font face=""Verdana, Arial, Helvetica, sans-serif"">" & objPS("brojac") & "</font></td>"
Response.Write "</tr>" & vbCrLf
objRS.MoveNext
Wend
objRS.Close
objConn.Close
Set objRS = Nothing
Set objConn = Nothing
%>
</table>
<br>
<table width="90%" border="0" cellspacing="0" align="center">
<tr>
<td width="55%">

<div align="left"><a href="nova_tema.asp?id=<%= strID %>"><font color="#000000" size="4" face="Verdana, Arial, Helvetica, sans-serif">Nova
tema</font></a> </div>
</td>
<td width="15%"></td>
<td width="15%"></td>
<td width="15%">
<div align="right"><a href="index.htm" ><font color="#000000" size="4" face="Verdana, Arial, Helvetica, sans-serif">Natrag</font></a></div>
</td>
</tr>
</table>

<br>
<div align="center">
<p><br>
</p>
<font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">Copyright
2000 DiB. All rights reserved.</font>
<p><font size="2" face="Verdana, Arial, Helvetica, sans-serif" color="#6666FF"></font></p>
</div>
</body>
</html>