HJÄLP!
jag håller på med MysmartUpload och får inte till felet..Jag har skrivit så att filen ska laddas upp till en databas. men jag får ständigt samma felmeddelande:
"Feltyp:
aspSmartUpload (0x800A0009)
Subscript out of range
/skoter/ny.asp, line 66
Webbläsare:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)
Sida:
POST 202 bytes to /skoter/ny.asp
POST Data:
fel '80020009'
Undantag inträffade.
/iisHelp/common/500-100.asp, rad 224 "
Kan någon hjälpa mig jag håller på att bli tokig..Sample filerna laddar upp filen till databasen men ej mitt script...
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="adovbs.inc" -->
<html>
<head>
<meta http-equiv="content-type" content="text/html;charset=iso-8859-1">
<title>Skoter</title>
</head>
<body>
<p><font face="verdana, arial" size="4"><b><font face="Arial, Helvetica, sans-serif">Lägg
till skoter</font></b></font></p>
<p><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><b><a href="adm_menu.asp">Huvudmeny</a>
| <a href="javascript:window.close()">Logga ut</a></b></font></p>
<form method="POST" action="ny.asp?add=yes">
<p><font face="verdana,arial" size="1"><b> Märke:</b><br>
<input name="Marke" type="text" id="Marke" size="60" maxlength="250">
<br>
<b>Modell:</b><br>
<input name="Modell" type="text" id="Modell" size="60" maxlength="250">
</font><br>
<font face="verdana,arial" size="1"><b>Årsmodell:</b><br>
<input name="Arsmodell" type="text" id="Arsmodell" size="15" maxlength="10">
</font> <font face="verdana,arial" size="1"><br>
<b>Motor:</b><br>
<input name="Motor" type="text" id="Motor" size="50" maxlength="100">
<br>
<b>Kylsystem:</b><br>
<input name="Kylsystem" type="text" id="Kylsystem" size="50">
<br>
<b>Matta:</b><br>
<input name="Matta" type="text" id="Matta" size="50">
<br>
<b>Mätarställning:</b><br>
<input name="Miltal" type="text" id="Miltal" size="20">
<br>
<b>Utrustning:</b><br>
<input name="Utrustning" type="text" id="Utrustning" size="60">
<b><br>
Övrig info:</b><br>
<b> </b> </font><font face="verdana,arial" size="1">
<textarea name="Ovrigt" cols="50" rows="8" id="Ovrigt" style="font-family: verdana,arial;"></textarea>
</font><br>
<font face="verdana,arial" size="1"><b>Pris:</b><br>
<input name="Pris" type="text" id="Pris" size="20">
kr (inkl moms)</font></p>
<p><font face="verdana,arial" size="1"><b>Bild (ange sökväg):</b><br>
</font>
<input type="file" name="Fil" size="60">
</p>
<p><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong>TIPS!</strong><br>
För att bilden ska passa webbsidans storlek bör den vara ungefär
???x??? pixlar. </font></p>
<font face="verdana,arial" size="1"><p>
<p>
<input type="submit" value="Spara" style="font-size: 8pt; font-family: verdana, arial">
</font>
</form>
<% If Request.QueryString("add") = "yes" Then %>
<% Dim mySmartUpload
Dim File
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
mySmartUpload.Upload
'På raden ovan är felet....
%>
<!--#include file ="data.asp"-->
<% tmp = Now()
Addera = "SELECT \* FROM files"
rs.Open Addera, conn, adOpenStatic, adLockOptimistic
rs.AddNew
rs("marke") = Request.Form("Marke")
rs("modell") = Request.Form("Modell")
rs("arsmodell") = Request.Form("Arsmodell")
rs("motor") = Request.Form("Motor")
rs("kylsystem") = Request.Form("Kylsystem")
rs("matta") = Request.Form("Matta")
rs("miltal") = Request.Form("Miltal")
rs("utrustning") = Request.Form("Utrustning")
rs("ovrigt") = Request.Form("Ovrigt")
rs("pris") = Request.Form("Pris")
rs("datum") = FormatDateTime(tmp,vbShortdate)
rs("kl") = FormatDateTime(tmp,vbShorttime)
'For each file In mySmartUpload.Files
'If not file.IsMissing Then
file.FileToField rs.Fields("File Data")
rs("File Name") = file.FileName
'End If
'Next
rs.Update
rs.Close
Conn.Close
Set rs = Nothing
Response.Redirect "adm_menu.asp"
%>
<% End If %>
<br>
</body>
</html>