Nån som kan ASPupload?

7 svar · 222 visningar · startad av Jymdis 6 aug. 2001

JymdisMedlem sedan mars 20016 260 inlägg

Frågan6 aug. 2001 15:13#1

för att jag får ett litet fel..
ska nämligen köra in filnamnet i en databas samtidigt..

<% 
recordset1.addnew
filnamn = File.ExtractFileName
recordset1("filnamn") = filnamn
recordset1("typ") = Upload.Form("CATEGORY")
recordset1("kommentar") = Upload.Form("Description")
recordset1.update
%>

Den här koden ligger på sidan som fångar upp uppladdningen. Jag kan skriva ut File.ExtractFileName med response.write .

Nån som ser mitt fel?

------------------
-------------------
Andreas Lännerberg
Jag hör till dom som betalar mina räkningar med glädje, men dom vill hellre ha betalt i pengar.

LarsGMedlem sedan dec. 200012 464 inlägg

6 aug. 2001 15:19#2

Nej, inte jag i alla fall. Får du något felmeddelande från databasen eller så?

------------------
essentitia preter non sans multiplicandum

JymdisMedlem sedan mars 20016 260 inlägg

6 aug. 2001 15:21#3

Microsoft VBScript runtime error '800a01a8' 

Object required: '' 

/admin/Upload.asp, line 49

Är felmeddelandet. 49 motsvarar "filnamn = File.ExtractFileName"

------------------
-------------------
Andreas Lännerberg
Jag hör till dom som betalar mina räkningar med glädje, men dom vill hellre ha betalt i pengar.

PaceMedlem sedan juni 20019 024 inlägg

6 aug. 2001 15:23#4

Du har inte stängt "file" innan då?

------------------
Peter D

emissionMedlem sedan dec. 19996 721 inlägg

6 aug. 2001 15:27#5

Visa mer kod, tack.

JymdisMedlem sedan mars 20016 260 inlägg

6 aug. 2001 15:28#6

<%@LANGUAGE="VBSCRIPT"%> 
<!--#include file="../Connections/industri.asp" -->
<%
set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_industri_STRING
Recordset1.Source = "SELECT * FROM arkiv"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 3
Recordset1.Open()
Recordset1_numRows = 0
%>
<% Server.ScriptTimeOut = 100000 %>
<body bgcolor="E6E6E6">
<table width="400" border="0" cellpadding="0" cellspacing="0">
  <tr> 
    <td colspan="2"><font face="Verdana, Arial, Helvetica, sans-serif"><b> 
      <!--#include file="version.inc" -->
      </b></font></td>
  </tr>
  <tr> 
    <td width="300"> <font face="Verdana, Arial, Helvetica, sans-serif"> <font size="-2"> 
      <%
Set Upload = Server.CreateObject("Persits.Upload.1")

' Upload files
Upload.OverwriteFiles = True ' Generate unique names
Upload.SetMaxSize 10048576 ' Truncate files above 10MB
Count = Upload.SaveVirtual("../upload")

' Display description field

if Upload.Form("CATEGORY") = "Bild" then 
Response.Write "Du har laddat upp en bild med filnamn: " 
Else
Response.Write "Du har laddat upp ett prospekt med filnamn: " 
End if
For Each File in Upload.Files
response.write "<b>" & File.ExtractFileName & "</b>"
Next
%>
      </font></font> </td>
    <td width="100"> </td>
  </tr>
</table>
<% 
recordset1.addnew
filnamn = File.ExtractFileName
recordset1("filnamn") = filnamn
recordset1("typ") = Upload.Form("CATEGORY")
recordset1("kommentar") = Upload.Form("Description")
recordset1.update
%>
<%
Recordset1.Close()
%>

------------------
-------------------
Andreas Lännerberg
Jag hör till dom som betalar mina räkningar med glädje, men dom vill hellre ha betalt i pengar.

[Redigerat av Jymdis den 06 aug 2001]

emissionMedlem sedan dec. 19996 721 inlägg

6 aug. 2001 15:45#7

filnamn = File.ExtractFileName

måste ligga inom for each-loopen, annars finns inte file-objektet.

Sannolikt bör du väl lägga hela databas-insert-biten där.

JymdisMedlem sedan mars 20016 260 inlägg

6 aug. 2001 15:46#8

tackar så enormt mycket =)
*känna sig som ett klantarsel*

------------------
-------------------
Andreas Lännerberg
Jag hör till dom som betalar mina räkningar med glädje, men dom vill hellre ha betalt i pengar.