/ Forside / Teknologi / Udvikling / ASP / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
ASP
#NavnPoint
smorch 9259
Harlekin 1866
molokyle 1040
Steffanst.. 758
gandalf 657
smilly 564
gibson 560
cumano 530
MouseKeep.. 480
10  Random 410
ASPupload somponent spørgsmål
Fra : Carsten Pinderup


Dato : 23-02-02 23:31

Hej NG

Jeg har forsøgt mig noget med aspupload, men er stødt på et problem. Jeg vil
gerne uploade filer til et dir OG indsætte diverse tekster i en database
samtidigt. Kan man det? At sætte filer ind binært i databasen samtidigt er
OK. At uploade filer til et dir er også OK, men at samle funktionerne er
bestemt ikke OK, jeg får en fejl 500!

Her er lidt af formen:

code example - form:

<FORM NAME="MyForm" METHOD="POST" ENCTYPE="multipart/form-data"
ACTION="upload.asp"
OnSubmit="return ShowProgress();">
<table border="0" width="103%">
<tr>
<td width="13%" valign="top">number.:</td>
<td width="90%" valign="top"><input type="text" name="nr"
size="20">
&nbsp;</td>
</tr>
<tr>
<td width="13%" valign="top">img:</td>
<td width="90%" valign="top"><input TYPE="FILE" NAME="img1">
&nbsp;</td>
</tr>
</table>
<p><BR>
<INPUT TYPE=SUBMIT VALUE="Upload!"></p>
</FORM>


upload.asp:

Set Upload = Server.CreateObject("Persits.Upload")

Upload.Save "\upload"

If Not File Is Nothing Then
' Build ADO connection string
' Connect = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" &
Server.MapPath("ejendomme.mdb")
' Reopen recordset to insert file
rs.Open "ejendomme"

rs.AddNew
rs("sagnr") = Upload.Form("sagnr")
rs.Update

End If


Count = Upload.Save("\upload")

Response.Write Count & " fil(er) uploaded til \upload"

%>

Håber der er nogle der kan kaste lys over det.
Mvh Carsten




 
 
Janus Klok Lauritsen (27-02-2002)
Kommentar
Fra : Janus Klok Lauritsen


Dato : 27-02-02 12:46

Mon ikke dit problem ligger i din connection til databasen (som du har
kommenteret ud) og ikke i upload komponenten.
Hvis du slår "Vis brugervenlig fejlmeddelser" (eller noget ligende) fra i
din browser, kan du se en fejl du kan bruge til noget istedet for 500, og så
tror jeg du vil få en database fejl.
Skriv evt. mere uddybende, så kan vi hjælpe mere uddybende
Mvh
Janus
"Carsten Pinderup" <carsten@pinderup.dk> wrote in message
news:a5957a$amt$1@sunsite.dk...
> If Not File Is Nothing Then
> ' Build ADO connection string
> ' Connect = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" &
> Server.MapPath("ejendomme.mdb")
> ' Reopen recordset to insert file
> rs.Open "ejendomme"



Søg
Reklame
Statistik
Spørgsmål : 177560
Tips : 31968
Nyheder : 719565
Indlæg : 6408941
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste