Netscape still wont work ARRRGGGHHH!

Results 1 to 2 of 2

Thread: Netscape still wont work ARRRGGGHHH!

  1. #1
    Join Date
    Dec 1969
    Posts
    272

    Default Netscape still wont work ARRRGGGHHH!

    Thanks for the help Scott, but I have tried putting in form Tags and it still wont work here is the code for the page basic_1.asp<BR>and basic_1alx.asp<BR>it works fine with Explorer but not with Netscape and I am completely stumped!<BR>====================================== ========<BR>basic_1.asp<BR>======================= =======================<BR><BR>&#060;HTML><BR><BR> &#060;TITLE>basic&#060;/TITLE><BR><BR>&#060;BODY leftmargin = 110 background = stones.jpg><BR><BR>&#060;%<BR>If IsObject(Session("trial_conn")) Then<BR> Set conn = Session("trial_conn")<BR>Else<BR> Set conn = Server.CreateObject("ADODB.Connection")<BR> conn.open "trial","",""<BR> Set Session("trial_conn") = conn<BR>End If<BR>&#037;&#062;<BR>&#060;%<BR>If IsObject(Session("Form_basic_rs")) Then<BR> Set rs = Session("Form_basic_rs")<BR>Else<BR> sql = "SELECT * FROM [table1]"<BR> Set rs = Server.CreateObject("ADODB.Recordset")<BR> rs.Open sql, conn, 3, 3<BR> If rs.eof Then<BR> rs.AddNew<BR> End If<BR> Set Session("Form_basic_rs") = rs<BR>End If<BR>&#037;&#062;<BR>&#060;%<BR><BR>If cstr(Request.QueryString("name")) &#060;> "" Then<BR> rs.Fields("name").Value = Request.QueryString("name")<BR>End If<BR><BR><BR>tempVar = Request.QueryString("nav_btn")<BR>On Error Resume Next<BR>If cstr(tempVar)="nav_btn_MoveFirstRecord" Then<BR> rs.MoveFirst<BR>End If<BR>If cstr(tempVar)="nav_btn_MovePrevRecord" Then<BR> rs.MovePrevious<BR> If rs.bof Then<BR> rs.MoveNext<BR> End If<BR>End If<BR>If cstr(tempVar)="nav_btn_MoveNextRecord" Then<BR> rs.MoveNext<BR> If rs.eof Then<BR> rs.MovePrevious<BR> End If<BR>End If<BR>If cstr(tempVar)="nav_btn_MoveLastRecord" Then<BR> rs.MoveLast<BR>End If<BR>If cstr(tempVar)="nav_btn_MoveAddRecord" Then<BR> rs.AddNew<BR>End If<BR>If cstr(tempVar)="nav_btn_MoveCommitRecord" Then<BR> rs.Update<BR> rs.Requery<BR>End If<BR>If cstr(tempVar)="nav_btn_MoveCancelUpdate" Then<BR> rs.CancelUpdate<BR> rs.Resync<BR>End If<BR>If cstr(tempVar)="nav_btn_MoveDeleteRecord" Then<BR> rs.Delete<BR> rs.MoveNext<BR> If rs.eof Then<BR> rs.MovePrevious<BR> If rs.bof Then<BR> rs.AddNew<BR> End If<BR> End If<BR>End If<BR>On Error Goto 0<BR>&#037;&#062;<BR>&#060;OBJECT ID="basic_1alx"<BR>CLASSID="CLSID:812AE312-8B8E-11CF-93C8-00AA00C08FDF"<BR>STYLE="TOP:0;LEFT:0;"><BR>&#060;P ARAM NAME="ALXPATH" VALUE="http://150.150.150.142/cgi-bin/basic_1alx.asp"><BR>&#060;/OBJECT><BR><BR><BR>&#060;/BODY><BR><BR><BR><BR><BR><BR>&#060;IMG SRC = "msaccess.jpg"><BR><BR>&#060;/HTML> <BR><BR>========================================== ======<BR>basic_1alx.asp<BR>====================== ==========================<BR>&#060;%<BR>If IsObject(Session("trial_conn")) Then<BR> Set conn = Session("trial_conn")<BR>Else<BR> Set conn = Server.CreateObject("ADODB.Connection")<BR> conn.open "trial","",""<BR> Set Session("trial_conn") = conn<BR>End If<BR>&#037;&#062;<BR>&#060;%<BR>If IsObject(Session("Form_basic_rs")) Then<BR> Set rs = Session("Form_basic_rs")<BR>Else<BR> sql = "SELECT * FROM [table1]"<BR> Set rs = Server.CreateObject("ADODB.Recordset")<BR> rs.Open sql, conn, 3, 3<BR> If rs.eof Then<BR> rs.AddNew<BR> End If<BR> Set Session("Form_basic_rs") = rs<BR>End If<BR>&#037;&#062;<BR>&#060;SCRIPT LANGUAGE=VBScript><BR>&#060;!--<BR>Dim rgszCtrls(9, 2)<BR>Dim cMaxCtrls<BR>cMaxCtrls = 9<BR>Sub AddCtrlToList(szCtrl, szCtrlSrc)<BR> Dim i<BR> for i = 1 to cMaxCtrls<BR> if rgszCtrls(i, 1) = szCtrl Then Exit Sub<BR> if rgszCtrls(i, 1) = "" Then<BR> rgszCtrls(i, 1) = szCtrl<BR> rgszCtrls(i, 2) = szCtrlSrc<BR> Exit Sub<BR> End If<BR> next<BR>End Sub<BR><BR>Sub UpdateRefreshBtn()<BR> nav_btn_MoveCancelUpdate.Caption = "Cancel"<BR>End Sub<BR><BR>Function MakeHTMLValue(szVal)<BR> Dim i<BR> Dim szRet<BR> for i = 1 to Len(szVal)<BR> ch = Mid(szVal, i, 1)<BR> if ch = " " Then<BR> szRet = szRet & "%20"<BR> elseif ch = "&" Then<BR> szRet = szRet & "%26"<BR> elseif ch = "#" Then<BR> szRet = szRet & "%23"<BR> elseif ch = """" Then<BR> szRet = szRet & "%22"<BR> elseif ch = ";" Then<BR> szRet = szRet & "%3B"<BR> elseif ch = ":" Then<BR> szRet = szRet & "%3A"<BR> elseif ch = "&#039" Then<BR> szRet = szRet & "%27"<BR> else<BR> szRet = szRet & Mid(szVal, i, 1)<BR> end if<BR> next<BR> MakeHTMLValue = szRet<BR>End Function<BR><BR>Function GetCtrlQueryString()<BR> Dim szRet<BR> Dim i<BR> for i = 1 to cMaxCtrls<BR> if rgszCtrls(i, 1) = "" Then Exit For<BR> szRet = szRet & rgszCtrls(i, 2) & "=" & MakeHTMLValue(basic_1alx.Controls(rgszCtrls(i, 1)).Value) & "&"<BR> next<BR> GetCtrlQueryString = szRet<BR>End Function<BR><BR>Sub basic_1alx_OnLoad()<BR>End Sub<BR><BR>Sub name_AfterUpdate()<BR> call AddCtrlToList("name", "name")<BR> call UpdateRefreshBtn()<BR>End Sub<BR><BR>Sub nav_btn_MoveFirstRecord_Click()<BR> Window.Location.Href = "http://150.150.150.142/cgi-bin/basic_1.asp?nav_btn=nav_btn_MoveFirstRecord&" & GetCtrlQueryString()<BR>End Sub<BR><BR>Sub nav_btn_MovePrevRecord_Click()<BR> Window.Location.Href = "http://150.150.150.142/cgi-bin/basic_1.asp?nav_btn=nav_btn_MovePrevRecord&" & GetCtrlQueryString()<BR>End Sub<BR><BR>Sub nav_btn_MoveNextRecord_Click()<BR> Window.Location.Href = "http://150.150.150.142/cgi-bin/basic_1.asp?nav_btn=nav_btn_MoveNextRecord&" & GetCtrlQueryString()<BR>End Sub<BR><BR>Sub nav_btn_MoveLastRecord_Click()<BR> Window.Location.Href = "http://150.150.150.142/cgi-bin/basic_1.asp?nav_btn=nav_btn_MoveLastRecord&" & GetCtrlQueryString()<BR>End Sub<BR><BR>Sub nav_btn_MoveAddRecord_Click()<BR> Window.Location.Href = "http://150.150.150.142/cgi-bin/basic_1.asp?nav_btn=nav_btn_MoveAddRecord&" & GetCtrlQueryString()<BR>End Sub<BR><BR>Sub nav_btn_MoveCommitRecord_Click()<BR> Window.Location.Href = "http://150.150.150.142/cgi-bin/basic_1.asp?nav_btn=nav_btn_MoveCommitRecord&" & GetCtrlQueryString()<BR>End Sub<BR><BR>Sub nav_btn_MoveCancelUpdate_Click()<BR> Window.Location.Href = "http://150.150.150.142/cgi-bin/basic_1.asp?nav_btn=nav_btn_MoveCancelUpdate&"<BR> End Sub<BR><BR>Sub nav_btn_MoveDeleteRecord_Click()<BR> If MsgBox("Press OK to delete current record", 1, "basic_1") =1 Then<BR> Window.Location.Href = "http://150.150.150.142/cgi-bin/basic_1.asp?nav_btn=nav_btn_MoveDeleteRecord&"<BR> End If<BR>End Sub<BR><BR>--><BR>&#060;/SCRIPT><BR>&#060;DIV ID="basic_1alx" STYLE="LAYOUT:FIXED;HEIGHT:79;WIDTH:422;"><BR>&#06 0;OBJECT ID="name"<BR>CLASSID="CLSID:8BD21D10-EC42-11CE-9E0D-00AA006002F3"<BR>STYLE="TOP:7;LEFT:137;WIDTH:231;H EIGHT:25;TABINDEX:0;ZINDEX:0;"><BR>&#060;%If Not IsNull(rs.Fields("name").Value) Then&#037;&#062;<BR>&#060;PARAM NAME="Value" VALUE="&#060;%=Server.HTMLEncode(rs.Fields("name") .Value)&#037;&#062;"><BR>&#060;%End If&#037;&#062;<BR>&#060;PARAM NAME="BackStyle" VALUE="1"><BR>&#060;PARAM NAME="BackColor" VALUE="2147483653"><BR>&#060;PARAM NAME="BorderStyle" VALUE="1"><BR>&#060;PARAM NAME="BorderColor" VALUE="0"><BR>&#060;PARAM NAME="ForeColor" VALUE="2147483656"><BR>&#060;PARAM NAME="FontHeight" VALUE="160"><BR>&#060;PARAM NAME="Font" VALUE="MS Sans Serif"><BR>&#060;PARAM NAME="FontName" VALUE="MS Sans Serif"><BR>&#060;PARAM NAME="Size" VALUE="6006;650"><BR>&#060;PARAM NAME="SpecialEffect" VALUE="2"><BR>&#060;PARAM NAME="VariousPropertyBits" VALUE="2894088219"><BR>&#060;/OBJECT><BR>&#060;OBJECT ID="name_Label"<BR>CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003F40D0"<BR>STYLE="TOP:7;LEFT:-24;WIDTH:156;HEIGHT:25;ZINDEX:1;"><BR>&#060;PARAM NAME="BackStyle" VALUE="0"><BR>&#060;PARAM NAME="Caption" VALUE="name"><BR>&#060;PARAM NAME="ForeColor" VALUE="2147483666"><BR>&#060;PARAM NAME="FontHeight" VALUE="160"><BR>&#060;PARAM NAME="Font" VALUE="MS Sans Serif"><BR>&#060;PARAM NAME="FontName" VALUE="MS Sans Serif"><BR>&#060;PARAM NAME="Size" VALUE="4056;650"><BR>&#060;PARAM NAME="SpecialEffect" VALUE="0"><BR>&#060;PARAM NAME="VariousPropertyBits" VALUE="8388627"><BR>&#060;/OBJECT><BR>&#060;OBJECT ID="nav_btn_MoveCancelUpdate"<BR>CLASSID="CLSID:D7 053240-CE69-11CD-A777-00DD01143C57"<BR>STYLE="TOP:51;LEFT:336;WIDTH:84;H EIGHT:28;ZINDEX:0;"><BR>&#060;PARAM NAME="BackStyle" VALUE="0"><BR>&#060;PARAM NAME="Caption" VALUE="Refresh"><BR>&#060;PARAM NAME="ParagraphAlign" VALUE="3"><BR>&#060;PARAM NAME="ForeColor" VALUE="0"><BR>&#060;PARAM NAME="Size" VALUE="2184;728"><BR>&#060;PARAM NAME="SpecialEffect" VALUE="0"><BR>&#060;PARAM NAME="VariousPropertyBits" VALUE="2"><BR>&#060;/OBJECT><BR>&#060;OBJECT ID="nav_btn_MoveDeleteRecord"<BR>CLASSID="CLSID:D7 053240-CE69-11CD-A777-00DD01143C57"<BR>STYLE="TOP:51;LEFT:252;WIDTH:84;H EIGHT:28;ZINDEX:1;"><BR>&#060;PARAM NAME="BackStyle" VALUE="0"><BR>&#060;PARAM NAME="Caption" VALUE="Delete"><BR>&#060;PARAM NAME="ParagraphAlign" VALUE="3"><BR>&#060;PARAM NAME="ForeColor" VALUE="0"><BR>&#060;PARAM NAME="Size" VALUE="2184;728"><BR>&#060;PARAM NAME="SpecialEffect" VALUE="0"><BR>&#060;PARAM NAME="VariousPropertyBits" VALUE="2"><BR>&#060;/OBJECT><BR>&#060;OBJECT ID="nav_btn_MoveCommitRecord"<BR>CLASSID="CLSID:D7 053240-CE69-11CD-A777-00DD01143C57"<BR>STYLE="TOP:51;LEFT:168;WIDTH:84;H EIGHT:28;ZINDEX:2;"><BR>&#060;PARAM NAME="BackStyle" VALUE="0"><BR>&#060;PARAM NAME="Caption" VALUE="Commit"><BR>&#060;PARAM NAME="ParagraphAlign" VALUE="3"><BR>&#060;PARAM NAME="ForeColor" VALUE="0"><BR>&#060;PARAM NAME="Size" VALUE="2184;728"><BR>&#060;PARAM NAME="SpecialEffect" VALUE="0"><BR>&#060;PARAM NAME="VariousPropertyBits" VALUE="2"><BR>&#060;/OBJECT><BR>&#060;OBJECT ID="nav_btn_MoveAddRecord"<BR>CLASSID="CLSID:D7053 240-CE69-11CD-A777-00DD01143C57"<BR>STYLE="TOP:51;LEFT:112;WIDTH:28;H EIGHT:28;ZINDEX:3;"><BR>&#060;PARAM NAME="BackStyle" VALUE="0"><BR>&#060;PARAM NAME="Caption" VALUE="&gt;*"><BR>&#060;PARAM NAME="ParagraphAlign" VALUE="3"><BR>&#060;PARAM NAME="ForeColor" VALUE="0"><BR>&#060;PARAM NAME="Size" VALUE="728;728"><BR>&#060;PARAM NAME="SpecialEffect" VALUE="0"><BR>&#060;PARAM NAME="VariousPropertyBits" VALUE="2"><BR>&#060;/OBJECT><BR>&#060;OBJECT ID="nav_btn_MoveLastRecord"<BR>CLASSID="CLSID:D705 3240-CE69-11CD-A777-00DD01143C57"<BR>STYLE="TOP:51;LEFT:84;WIDTH:28;HE IGHT:28;ZINDEX:4;"><BR>&#060;PARAM NAME="BackStyle" VALUE="0"><BR>&#060;PARAM NAME="Caption" VALUE="&gt;&#124"><BR>&#060;PARAM NAME="ParagraphAlign" VALUE="3"><BR>&#060;PARAM NAME="ForeColor" VALUE="0"><BR>&#060;PARAM NAME="Size" VALUE="728;728"><BR>&#060;PARAM NAME="SpecialEffect" VALUE="0"><BR>&#060;PARAM NAME="VariousPropertyBits" VALUE="2"><BR>&#060;/OBJECT><BR>&#060;OBJECT ID="nav_btn_MoveNextRecord"<BR>CLASSID="CLSID:D705 3240-CE69-11CD-A777-00DD01143C57"<BR>STYLE="TOP:51;LEFT:56;WIDTH:28;HE IGHT:28;ZINDEX:5;"><BR>&#060;PARAM NAME="BackStyle" VALUE="0"><BR>&#060;PARAM NAME="Caption" VALUE="&gt;"><BR>&#060;PARAM NAME="ParagraphAlign" VALUE="3"><BR>&#060;PARAM NAME="ForeColor" VALUE="0"><BR>&#060;PARAM NAME="Size" VALUE="728;728"><BR>&#060;PARAM NAME="SpecialEffect" VALUE="0"><BR>&#060;PARAM NAME="VariousPropertyBits" VALUE="2"><BR>&#060;/OBJECT><BR>&#060;OBJECT ID="nav_btn_MovePrevRecord"<BR>CLASSID="CLSID:D705 3240-CE69-11CD-A777-00DD01143C57"<BR>STYLE="TOP:51;LEFT:28;WIDTH:28;HE IGHT:28;ZINDEX:6;"><BR>&#060;PARAM NAME="BackStyle" VALUE="0"><BR>&#060;PARAM NAME="Caption" VALUE="&lt;"><BR>&#060;PARAM NAME="ParagraphAlign" VALUE="3"><BR>&#060;PARAM NAME="ForeColor" VALUE="0"><BR>&#060;PARAM NAME="Size" VALUE="728;728"><BR>&#060;PARAM NAME="SpecialEffect" VALUE="0"><BR>&#060;PARAM NAME="VariousPropertyBits" VALUE="2"><BR>&#060;/OBJECT><BR>&#060;OBJECT ID="nav_btn_MoveFirstRecord"<BR>CLASSID="CLSID:D70 53240-CE69-11CD-A777-00DD01143C57"<BR>STYLE="TOP:51;LEFT:0;WIDTH:28;HEI GHT:28;ZINDEX:7;"><BR>&#060;PARAM NAME="BackStyle" VALUE="0"><BR>&#060;PARAM NAME="Caption" VALUE="&#124&lt;"><BR>&#060;PARAM NAME="ParagraphAlign" VALUE="3"><BR>&#060;PARAM NAME="ForeColor" VALUE="0"><BR>&#060;PARAM NAME="Size" VALUE="728;728"><BR>&#060;PARAM NAME="SpecialEffect" VALUE="0"><BR>&#060;PARAM NAME="VariousPropertyBits" VALUE="2"><BR>&#060;/OBJECT><BR>&#060;/DIV><BR><BR>====================================== =================<BR>This is all connected to a System DSN, I have taken care to make sure IUSER_server has the correct permissions and pretty much got rid of all security to a basic level giving everyone permissions.<BR>

  2. #2
    John Harvey Guest

    Default Netscape doesn't support <OBJECT>

    Hi Toby,<BR>You are using &#060;object> tags which load ActiveX components. Netscape doesn&#039t support these tags, so you should consider trying to use standard &#060;input> tags. You can then re-write (in JavaScript) your handlers for the onClick method.<BR>I.E.<BR>&#060;input type=button name="MoveNext" value=">" onClick="MoveNext()"><BR>...<BR>&#060;script language=JavaScript><BR>function MoveNext()<BR>{<BR>window.location.href = "http://150.150.150.142/cgi-bin/basic_1.asp?nav_btn=nav_btn_MovePrevRecord&" & GetCtrlQueryString()<BR>}<BR>&#060;/script>

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •