hmm fel igen...altså jag är newbie på detta ..skulle vara tacksam ifall nång kunde hjälpa: =)
hmm jag får felkod :
"Feltyp:
Request-objekt, ASP 0208 (0x80004005)
Det går inte att använda den allmänna Request-samlingen efter att BinaryRead har anropats.
/skoter/ny.asp, line 84"
nån som har nån lösning..??
tack på förhand. =)
<%@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") = Request("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>