Kan nogen se fejlen?
når jeg køre nedenstående kode får jeg følgende fejlerror '80020009'
/uploadpic.asp, line 325
linie 325 ser ud som følgende
if RS("sti") <> "" then
her er den fulde kode
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#E0E7E9" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" class="buttom" onLoad="MM_preloadImages('grafik/overskrifter/forsb.gif','grafik/overskrifter/tilfojretb.gif')" link="#000000" vlink="#000000" alink="#000000">
<!--#INCLUDE FILE="inc_body.asp"-->
<table border="0" width="766">
<tr>
<td rowspan="13" width="150">
<table width="150" border="0" cellspacing="0" cellpadding="0" vspace="0" hspace="0">
<tr>
<td height="18"> </td>
</tr>
</table>
<p> </p>
<p> </p>
</td>
<td rowspan="13" width="436" valign="top">
<div align="center"> <br>
<table width="415" border="0" background="grafik/overskrifter/osback.gif" cellpadding="0" cellspacing="0" vspace="0" hspace="0" height="32" align="center">
<tr>
<td width="15"><img src="grafik/overskrifter/osl.gif" width="15" height="32"></td>
<td width="401">
<div align="center"><a href="forside.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('forside1','','grafik/overskrifter/forsb.gif',1)" target="_self"><img src="grafik/overskrifter/fors.gif" width="50" height="32" name="forside1" border="0"></a><img src="grafik/overskrifter/osbin.gif" width="11" height="32"><img src="grafik/overskrifter/tilfojret.gif" width="78" height="32" name="tilfoj" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('tilfoj','','grafik/overskrifter/tilfojretb.gif',1)"><img src="grafik/overskrifter/osbin.gif" width="11" height="32"><img src="grafik/overskrifter/banup.gif" width="91" height="32"></div>
</td>
<td width="17">
<div align="right"><img src="grafik/overskrifter/osr.gif" width="15" height="32"></div>
</td>
</tr>
</table>
<br>
<table border="0" vspace="0" hspace="0" cellpadding="0" cellspacing="0" height="1" align="center" bgcolor="#A2B7BF" width="415">
<tr>
<td width="15"><img src="grafik/administration/topl.gif" width="15" height="12"></td>
<td><img src="grafik/administration/topm.gif" width="100%" height="12"></td>
<td width="15"><img src="grafik/administration/topr.gif" width="15" height="12"></td>
</tr>
<tr>
<td width="15"><img src="grafik/administration/midtl.gif" width="15" height="100%"></td>
<td bgcolor="#A2B7BF">
<div align="center">
<table width="95%" border="0" align="center">
<tr>
<td>
<p><font face="Arial, Helvetica, sans-serif" size="2"><b>Tryk
på Gennemse/Browse og find banneret på din
computer. <br>
<br>
</b></font><b><font size="2" face="Arial, Helvetica, sans-serif">
Bemærk! <b>Banneret må max være </b></font><font face="Arial, Helvetica, sans-serif" size="2"><b>100kb
og være</b></font><font size="2" face="Arial, Helvetica, sans-serif">
400 * 100 pixels. B</font><font size="2" face="Arial, Helvetica, sans-serif">annere
i andre størrelser vil automatisk blive tilpasset.</font></b></p>
</td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" align="center" bgcolor="#A2B7BF" bordercolor="#A2B7BF" vspace="0" hspace="0" width="85%">
<tr>
<td height="133" valign="top">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="4"></td>
<td width="365"></td>
<td width="46"></td>
<td width="138"></td>
</tr>
<tr>
<td colspan="4"><font face="Arial, Helvetica, sans-serif" size="2"><b>
</b></font>
<form name="MyForm" method="POST" enctype="multipart/form-data" action="uploadscript.asp?">
<table width="100%" border="0">
<tr>
<td height="35" valign="top">
<div align="center"> <br>
<input type='file' size='35' name='blob2'>
</div>
</td>
</tr>
<tr>
<td height="35" valign="top">
<div align="center"> <br>
<input type='submit' name='Enter2' value='Upload!'>
</div>
</td>
</tr>
</table>
</form>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="top" width="0">
<div align="center"> <span class="center"></span>
<%
set conn = server.createobject("ADODB.Connection")
conn.Open = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source= d:\www\mb\db\lz.mdb"
SQLSTR = "SELECT * from PersonTabel WHERE PersonID LIKE '" & Session("ID") & "'"
Set RS = conn.Execute(SQLSTR)
if RS("sti") <> "" then
Response.Write"<br>"
Response.Write"<b>Du har uploaded følgende banner<b><br>"
Response.Write"<br>"
Response.Write"<img src=""../log/" & RS("sti") & """ width=""300""" & """ height=""75""" & """ border="" 0 """ & """ align=""center"" alt=""" & rs("kommentar") & """ title=""" & rs("kommentar") & """>"
end if
%> </div>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td valign="top">
<div align="center"><font color="#000000" size="2"><font face="Arial, Helvetica, sans-serif"><b><br>
</b></font></font>
<form name="form2" method="post" action="mode.ASP">
<font color="#000000" size="2"><font face="Arial, Helvetica, sans-serif"><b>Mangler
du et banner? </b></font></font>
<input type="submit" name="Submit2" value="Tryk her ">
</form>
</div>
</td>
</tr>
<tr>
<td valign="top">
' <%
' if RS("sti") <> "" then
' Response.Write" <form name=""form1"" method=""post"" action=""opdaterbilledesti.asp"">"
' Response.Write" <br>"
' Response.Write" <br>"
' Response.Write" <div align=""right""> "
' Response.Write" <input type=""submit"" name=""Submit"" value=""Fortsæt"">"
' Response.Write" </div> "
' Response.Write" </form>"
' End If %>
</td>
</tr>
</table>
</div>
</td>
<td width="15"><img src="grafik/administration/midtr.gif" width="15" height="100%"></td>
</tr>
<tr>
<td width="15"><img src="grafik/administration/bundl.gif" width="15" height="18"></td>
<td><img src="grafik/administration/bundm.gif" width="100%" height="18"></td>
<td width="15"><img src="grafik/administration/bundr.gif" width="15" height="18"></td>
</tr>
</table>
<br>
<div align="center"><!--#INCLUDE FILE="inc_startside.asp"--> </div>
</div>
</td>
<td rowspan="13" height="55" valign="top" width="170">
<div align="center"></div>
<!--#INCLUDE FILE="inc_sponsor.asp"--></td>
</tr>
<tr> </tr>
<tr> </tr>
<tr> </tr>
<tr> </tr>
<tr> </tr>
<tr> </tr>
<tr> </tr>
<tr> </tr>
<tr> </tr>
<tr> </tr>
<tr> </tr>
<tr> </tr>
</table>
<p><br>
<p>
</body>
</html>
koden omkring linie 325
<%
set conn = server.createobject("ADODB.Connection")
conn.Open = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source= d:\www\mb\db\lz.mdb"
SQLSTR = "SELECT * from PersonTabel WHERE PersonID LIKE '" & Session("ID") & "'"
Set RS = conn.Execute(SQLSTR)
if RS("sti") <> "" then - (Linie 325) -
Response.Write"<br>"
Response.Write"<b>Du har uploaded følgende banner<b><br>"
Response.Write"<br>"
Response.Write"<img src=""../log/" & RS("sti") & """ width=""300""" & """ height=""75""" & """ border="" 0 """ & """ align=""center"" alt=""" & rs("kommentar") & """ title=""" & rs("kommentar") & """>"
end if
%>
jeg håber der er en som lige vil kigge...
har talt med min udbyder.. de køre 2003 server, og han mente at det kunne være derfor (den skulle være meget striks med koden) men hvad har jeg gjort galt???
