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.
*()=[]
Frågan#1
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>