---

Hej NG

Jeg har en Access DB der uploades pdf og billeder til vha. ASPupload
komponent. Der skal være mulighed for at uploade op til tre billeder efter
eget valg.

Der er en formular hvor filer vælges og videresendes til en upload-side. Jeg
vil gerne om et tomt formularfelt ikke giver upload fejl som nedenstående:

****Fejlmedd:
Microsoft VBScript runtime error '800a01a8'
Object required: 'thump1'
/artikler/ado_upload1.asp, line 66

****eksempel på formular kode:
<td width="372"><b>Upload lille Billede 1: </b><INPUT TYPE=FILE
NAME="thump1"><font size="1"><br>


****uploadkode:
<%
Set Upload = Server.CreateObject("Persits.Upload")
' we use memory uploads, so we must limit file size
Upload.SetMaxSize 10000, True

' Save to memory. Path parameter is omitted
Count = Upload.Save

' Obtain file object
Set pdf = Upload.Files("pdf")
Set thump1 = Upload.Files("thump1")

If Not pdf Is Nothing Then
' Build ADO connection string
Connect = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" &
Server.MapPath("ewebeditpro.mdb")

' Use ADO Recordset object
Set rs = Server.CreateObject("adodb.recordset")

' Open recordset to insert file
rs.Open "WYSIWYG_tbl", Connect, 2, 3

rs.AddNew
rs("edit_title") = Upload.Form("edit_title")
rs("edit_short") = Upload.Form("edit_short")
rs("datostart") = Upload.Form("datostart")
rs("datoslut") = Upload.Form("datoslut")
rs("artikeltype") = Upload.Form("artikeltype")
rs("serienr") = Upload.Form("serienr")

IF upload.form("billedtekst1")="" THEN rs("billedtekst1")="" ELSE
rs("billedtekst1") = Upload.Form("billedtekst1")

rs("thump1") = thump1.binary
rs("pdf") = pdf.binary

' og mere kode

rs.Update

Response.write "data er tilføjet til databasen"
Else
Response.Write "Der er ikke valgt noget filnavn!!"
End If
%>
'og mere kode

Hvad gør man ??

Hilsen Carsten

---

> Jeg vil gerne om et tomt formularfelt ikke giver upload fejl som
nedenstående:
>
> ****Fejlmedd:
> Microsoft VBScript runtime error '800a01a8'
> Object required: 'thump1'
> /artikler/ado_upload1.asp, line 66
>
> ****eksempel på formular kode:
> <td width="372"><b>Upload lille Billede 1: </b><INPUT TYPE=FILE
> NAME="thump1"><font size="1"><br>
>
>
> ****uploadkode:
> <%
> Set Upload = Server.CreateObject("Persits.Upload")
> ' we use memory uploads, so we must limit file size
> Upload.SetMaxSize 10000, True
>
> ' Save to memory. Path parameter is omitted
> Count = Upload.Save
>
> ' Obtain file object
> Set pdf = Upload.Files("pdf")
> Set thump1 = Upload.Files("thump1")
>
> If Not pdf Is Nothing Then
> ' Build ADO connection string
> Connect = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" &
> Server.MapPath("ewebeditpro.mdb")
>
> ' Use ADO Recordset object
> Set rs = Server.CreateObject("adodb.recordset")
>
> ' Open recordset to insert file
> rs.Open "WYSIWYG_tbl", Connect, 2, 3
>
> rs.AddNew
> rs("edit_title") = Upload.Form("edit_title")
> rs("edit_short") = Upload.Form("edit_short")
> rs("datostart") = Upload.Form("datostart")
> rs("datoslut") = Upload.Form("datoslut")
> rs("artikeltype") = Upload.Form("artikeltype")
> rs("serienr") = Upload.Form("serienr")
>
> IF upload.form("billedtekst1")="" THEN rs("billedtekst1")="" ELSE
> rs("billedtekst1") = Upload.Form("billedtekst1")
>
> rs("thump1") = thump1.binary
> rs("pdf") = pdf.binary
>
> ' og mere kode

Jeg har jo selv brugt svaret en gang i ovenstående :

> rs("thump1") = thump1.binary

IF Not thump Is Nothing Then
rs("thump1") = thump1.binary
END IF

Beklager forstyrrelsen.

/Carsten