Var öppnar du objrs?
Frågan#1
Hej,
jag får följande felmeddelande:
Körningsfel i Microsoft VBScript fel '800a01a8'
Objekt krävs.: ''
resultat.asp, rad 160
rad 160 = objrs.close
kan någon se vad jag gör för fel??
Tacksam för all hjälp jag kan få
/S
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title></title>
<script language="JavaScript" type="text/javascript" src="/templates/menu.js"></script>
<link href="stylesheets/stylesheet1.css" rel="stylesheet" type="text/css" >
<link href="stylesheets/links.css" rel="stylesheet" type="text/css" >
<link rel="stylesheet" type="text/css" href="stylesheets/table.css">
</head>
<body>
<table width="760" height="2" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="760" height="97">
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#FFFFFF"><div align="center"><img src="images/header.jpg" alt="Stefan Borg - Bangolfresultat & Statistik" name="" width="750" height="73" border="0" align="middle" id="" ></div></td>
</tr>
<tr>
<td bgcolor="#FFFFFF">
<div align="center">
<table width="0" border="0" align="left" cellpadding="0" cellspacing="0">
<tr>
<td align="center" width="5"><img src="images/pixel_trans.gif" width="5" height="8"></td>
<td align="center" width="61"><a href="index.html"> <img onMouseOver="this.src='images/bt_hem_over.gif'" onMouseOut="this.src='images/bt_hem.gif'" src="images/bt_hem.gif" alt="Hem" border="0"></a></td>
<td align="center" width="61"><a href="nyheter.html"> <img onMouseOver="this.src='images/bt_nyheter_over.gif'" onMouseOut="this.src='images/bt_nyheter.gif'" src="images/bt_nyheter.gif" alt="Nyheter" border="0"></a></td>
<td align="center" width="61"><a href="resultat_eb.asp"> <img src="images/bt_resultat_down.gif" alt="Resultat" border="0"></a></td>
<td align="center" width="61"><a href="blog.html"> <img onMouseOver="this.src='images/bt_blog_over.gif'" onMouseOut="this.src='images/bt_blog.gif'" src="images/bt_blog.gif" alt="Blog" border="0"></a></td>
<td align="center" width="61"><a href="kontakt.html"> <img onMouseOver="this.src='images/bt_kontakt_over.gif'" onMouseOut="this.src='images/bt_kontakt.gif'" src="images/bt_kontakt.gif" alt="Kontakta" border="0"></a></div></td>
<td width="80"><img src="images/end_bar.gif" alt="Bar" width="440" height="24"></td>
</tr>
</table>
</div>
</td>
</tr>
<tr>
<td height="38" background="images/header2a.gif" bgcolor="#FFFFFF">
<div align="center"><span class="style1"><a href="#"><font color="#000000">Underlänk 1</font></a> | <a href="#"><font color="#000000">Underlänk 2</font></a> | <a href="#"><font color="#000000">Underlänk 3</font></a><!-- InstanceBeginEditable name="Submenu2" --><a href="tutorials_02.shtml"></a><!-- InstanceEndEditable --></span></div>
</td>
</tr>
<tr>
<td width="760" height="71" background="images/header2b.gif" bgcolor="#FFFFFF"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="760"><table width="760" height="1" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="17" align="center" valign="top" background="images/border_l.gif" bgcolor="#FFFFFF"> </td>
<td width="726" align="center" valign="top" bgcolor="#FFFFFF">
<table width="700" border="0" align="center">
<tr>
<td valign="top" align="center">
<table width="695" height="0" border="0" cellspacing="5">
<tr>
<td align="center">
<%
Sub createNewTableStart(endPrevTable)
if endPrevTable then response.write vbCrLf & "</table>" & vbCrLf & "<br />" & vbCrLf
%>
<span class="rubrik"><b><%=objrs("Comp_Name") %> (<%= objrs("Comp_Date") %>)</b></span>
<br>
<table border="1" style="border-collapse: collapse" bordercolor="1px solid #000000">
<tr bgcolor="#CDD5E4" style="font-weight: bold">
<% For I = 1 to 18 %>
<td width="30" align="center"><a href="top10.asp?Show=Top10&Lane=<%=I%>" target="top10"><%=I%></a></td>
<% Next %>
<td width="30" align="center">Tot</td>
</tr>
<%
dim Conn, objrs, i, y, prevDate, currDate, strTot
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/xlr13x3sm.mdb")
Set objrs = Conn.Execute("SELECT tbl_player.Namn, tbl_player.Efternamn, tbl_res.AMT1, tbl_res.AMT2, tbl_res.AMT3, tbl_res.AMT4, tbl_res.AMT5, tbl_res.AMT6, tbl_res.AMT7, tbl_res.AMT8, tbl_res.AMT9, tbl_res.AMT10, tbl_res.AMT11, tbl_res.AMT12, tbl_res.AMT13, tbl_res.AMT14, tbl_res.AMT15, tbl_res.AMT16, tbl_res.AMT17, tbl_res.AMT18, tbl_res.TOTAL, tbl_res.Comp_Date, tbl_res.Comp_Name FROM tbl_player INNER JOIN tbl_res ON tbl_player.PlayerId=tbl_res.PlayerId WHERE tbl_res.Surface ='Filt' ORDER BY tbl_res.Comp_Date, tbl_res.Varv")
y=0
while not objrs.BOF and not objrs.EOF
currDate = objrs("Comp_Date")
if IsEmpty(prevDate) then 'first iteration
createNewTableStart(false)
elseif prevDate <> currDate then
createNewTableStart(true)
end if
y = y + 1
If y Mod 2 = 0 Then
%>
<tr bgcolor="#EEEEEE">
<% Else %>
<tr bgcolor="#FFFFFF">
<% End If %>
<% For I = 1 to 18 %>
<td align="center"><%=objrs("AMT" & i)%></td>
<% Next %>
<td align="center">
<%
strTot = objrs("TOTAL")
if strTot < 30 then
response.write "<span class=""blueText"">"&strTot&"</span>"
elseif strTot < 36 then
response.write "<span class=""greenText"">"&strTot&"</span>"
elseif strTot < 40 then
response.write "<span class=""redText"">"&strTot&"</span>"
elseif strTot > 39 then
response.write "<span class=""blackText"">"&strTot&"</span>"
End if %>
</td>
</tr>
<tr>
<td colspan="19"> Snitt
<% set antalV = Conn.Execute("SELECT tbl_res.Comp_Name, Count(tbl_res.TOTAL) AS Ant FROM tbl_res GROUP BY tbl_res.Comp_Name HAVING tbl_res.Comp_Name='"&objrs("Comp_Name")&"'")%>
<% Set snitt = Conn.Execute("SELECT tbl_res.Comp_Name, Sum(tbl_res.TOTAL) AS Summa FROM tbl_res GROUP BY tbl_res.Comp_Name HAVING tbl_res.Comp_Name='"&objrs("Comp_Name")&"'")%>
<% inSvar1 = snitt("Summa")
inSvar2 = AntalV("Ant")
inSvar = Insvar1 / Insvar2
Response.Write formatnumber(Insvar,1) %>
</td>
</tr>
<%
prevDate = currDate
objrs.movenext %>
<% wend %>
</table>
<% End Sub %>
<%
'close and kill recordset/connection objects
objrs.close
set objrs = nothing
Conn.close
set Conn = nothing
%>
</td>
</tr>
</table>
<div align="center">
<table width="700" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="images/pixel_gray.gif" width="700" height="1"></td>
</tr>
</table>
</div>
<hr><br>
<div align="center"><a href="http://www.microsoft.com/windows/ie/default.mspx"><img src="images/InternetExplorer.gif" alt="Internet Explorer" width="88" height="31" border="0" /></a><a href="http://www.mozilla.org/products/firefox/"><img src="images/firefox.gif" alt="Firefox" width="88" height="31" border="0" /></a><a href="http://www.opera.com"><img src="images/opera8.gif" alt="Opera" width="88" height="31" border="0" /></a><br></div>
</td>
</tr>
</table></td><td width="17" align="center" valign="top" background="images/border_r.gif" bgcolor="#FFFFFF"> </td>
</tr>
</table></td>
</tr>
<tr>
<td height="109" background="images/footer2.gif" bgcolor="#FFFFFF">
<div align="center"></div>
<br>
<br>
</div>
</td>
</tr>
</table>
</body>
</html>
