onpnt i have tried ie 5 and ie6 and mozilla and error occurs on each. I have also tried several machines including win98, 2000 and xp and it is always the same error. So i believe it is a scripting problem rather than a machine problem.
Most of the time the database connects properly and we can read and write to the database, the error only occurs on one page, when you try and bid on an item (it is an auction type site)
the code of the page that causes the problem is
<!--#include virtual="/Refs/opendb.asp"-->
<!--#include virtual="/Refs/ValidateUser.asp"-->
<%
Dim RS, errMsg
Set RS = conn.execute("SELECT * FROM tbdAuctionInfo WHERE fldAuctionID = " & Request("AuctionID") & "")
' #### If RS("fldAuctionDate") <> Date() OR (RS("fldAuctionTime") < Time() AND DateDiff("h", RS("fldAuctionTime"), Time()) > RS("fldAuctionDuration")) Then
If DateDiff("h", RS("fldAuctionDate") & " " & RS("fldAuctionTime"), Now()) >= 0 Then
' The auction start time should have passed
If DateDiff("n", RS("fldAuctionDate") & " " & RS("fldAuctionTime"), Now()) < RS("fldAuctionDuration")*60 Then
' We are below the end time of the auction
If Request.Form("Bid") <> "" Then
server.execute("/Auction/BidTrans.asp")
End If
Else
errMsg = "This auction has now finished"
End If
Else
errMsg = "This auction has not yet started. Try again later"
End If
If RS("fldAUctionType") = "N" Then
AuctionType="Normal"
If IsNull(RS("fldReservePrice")) Then
GuidePrice = "No Reserve Specified"
Else
GuidePrice = "Reserve Price: " & ExchangeUnits & FormatNumber(RS("fldReservePrice")*ExchangeRate, 2)
End If
Else
AuctionType="Reverse Tender"
If IsNull(RS("fldReservePrice")) Then
GuidePrice = "No Guide Specified"
Else
GuidePrice = "Guide Price: " & ExchangeUnits & FormatNumber(RS("fldReservePrice")*ExchangeRate, 2)
End If
End If
%>
<html>
<head>
<title>Bid</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="/main.css" type="text/css">
<script language="JavaScript">
<!--
function MM_swapImgRestore() { //v3.0
var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a
)&&x.oSrc;i++) x.src=x.oSrc;
}
function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
if (a.indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a;}}
}
function MM_findObj(n, d) { //v4.0
var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers.document);
if(!x && document.getElementById) x=document.getElementById
; return x;
}
function MM_swapImage() { //v3.0
var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
if ((x=MM_findObj(a))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//-->
</script>
</head>
<body bgcolor="#F7E4AA" text="#000000" topmargin="0" onLoad="MM_preloadImages('/new%20buttons/exit_auction/images/exit_auction_f2.gif')">
<table width="100%" border="0">
<tr>
<td width="36%"><font face="Arial, Helvetica, sans-serif" size="2"><% If Request("Buyer") = "" Then Response.Write("Please enter your bid in the box below. <BR> Please type only numbers, do NOT include £, $ etc") %></font></td>
<td width="38%" rowspan="2" align="center" valign="middle">
<div align="center">
<b>
<p><font face="Arial, Helvetica, sans-serif" size="2">Bidding as <%= UserName %><br>
Auction Type: <%= AuctionType %><br>
<%= GuidePrice %></font>
</p>
</b>
<p><a href="/Auction/Menu.asp?ID=<%= Request("ID") %>" target="_top" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Exit Auction','','/new%20buttons/exit_auction/images/exit_auction_f2.gif',1)"><img name="Exit Auction" border="0" src="/new%20buttons/exit_auction/images/exit_auction.gif" width="99" height="22"></a></p>
</div>
</td>
<td width="26%" rowspan="2" align="right"><img src="/Images/george_logo.gif" width="100" height="100"></td>
</tr>
<tr>
<td width="36%">
<%
If Request("Buyer") = "" Then
%>
<form action="Bid.asp?ID=<%= Request("ID") %>&AuctionID=<%= Request("AuctionID") %>&CustomerID=<%= Request("CustomerID") %>" method="POST" name="BidForm">
<input type="text" name="Bid" class="textboxes2">
<input type="Image" name="Action" value="Submit Bid" src="/new%20buttons/bid/images/bid.gif" width="50" height="21" align="middle">
<BR><%= errMsg %>
</form>
<%
End If
%>
</td>
</tr>
</table>
</body>
</html>
