---
title: "en sista gång =)MysmartUpload"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/54072-en-sista-gång-mysmartupload"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Bucher"
published: "2002-09-23T15:10:16.000Z"
updated: "2002-09-23T15:41:30.000Z"
replies: 1
views: 176
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/54072-en-sista-gång-mysmartupload"
---

# en sista gång =)MysmartUpload

## #1 — Bucher, 2002-09-23T15:10Z

tack för hjälpen... 
nu är det så här =), se nedan 
Nu är det fel: 
"Feltyp: 
Körningsfel i Microsoft VBScript (0x800A01A8) 
Objekt krävs.: '' 
/skoter/ny.asp, line 99 
" 
vilket är : 

"file.FileToField rs.Fields("FileData") 
rs("FileName") = file.FileName 
" 

\<%@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" ENCTYPE="multipart/form-data"\> 
\<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 

%\> 
\<% 
Set Conn = Server.CreateObject("ADODB.Connection") 
conn.Open "driver={microsoft access driver (\*.mdb)}; DBQ="& \_ 
Server.MapPath("db/db1.mdb") 

Set rs = Server.CreateObject("ADODB.Recordset") 
%\> 

\<% tmp = Now() 

Addera = "SELECT \* FROM files" 
rs.Open Addera, conn, adOpenStatic, adLockOptimistic 
rs.AddNew 
rs("marke") = mySmartUpload.Form("Marke") 
rs("modell") = mySmartUpload.Form("Modell") 
rs("arsmodell") = mySmartUpload.Form("Arsmodell") 
rs("motor") = mySmartUpload.Form("Motor") 
rs("kylsystem") = mySmartUpload.Form("Kylsystem") 
rs("matta") = mySmartUpload.Form("Matta") 
rs("miltal") = mySmartUpload.Form("Miltal") 
rs("utrustning") = mySmartUpload.Form("Utrustning") 
rs("ovrigt") = mySmartUpload.Form("Ovrigt") 
rs("pris") = mySmartUpload.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("FileData") 
rs("FileName") = file.FileName 
'End If 
'Next 

rs.Update 

rs.Close 
Conn.Close 
Set rs = Nothing 
Response.Redirect "adm_menu.asp" 
%\> 
\<% End If %\> 
\<br\> 
\</body\> 
\</html\>

Permalänk: https://www.webforum.nu/p/54072

## #2 — Jesper T, 2002-09-23T15:41Z

1\.) Välkommen till WF
2\.) Använd kod-taggarna när du skriver kod.(Kod)(/Kod)\*
3\.) Posta dina inlägg i samma tråd när det rör samma ämne.

\*()=\[\]

Permalänk: https://www.webforum.nu/p/795144

---

Tråden på webben: https://www.webforum.nu/amne/asp/54072-en-sista-gång-mysmartupload