Avatar billede mrs Nybegynder
17. november 2002 - 15:22 Der er 1 kommentar og
1 løsning

SaFileup - gem sti i database

Nedenstående kode uploader et billed til en mappe samt tekst til en database med sti fra billed.
Billedet bliver uploadet, men den melder intern serverfejl så der må være noget galt i den del af scriptet der sender tekst til databasen.
Scriptet ligger i sin egen fil, som der så bliver henvist til. Hvad er der galt??

<%
Set upl = Server.CreateObject("SoftArtisans.FileUp")
upl.Path = Server.Mappath ("../elevraad")
%>
<%
upl.Form("FILE1").Save

if Err <> 0 Then %>
<H1><font color="#ff0000" size="3">Der er opstået en fejl</font></H1>
Mulige grunde til problemet
<UL>
  <LI>Der er angivet et forkert filnavn
  <LI>Den valgte fil er af en forkert type
</UL>
Hvis fejlen opstår igen, kontakt da webmasteren på følgende e-mail adresse: <a href="mailto: martin@sornsen.dk">martin@sornsen.dk</a>
<% End If %>
<%

'Tilføjer brugeren til databasen
    set rsBlob = Server.CreateObject("ADODB.Recordset")
    rsBlob.Open "konkurrence", "AccessUpload", 2, 3

   
'Tilføjer brugeren til databasen og sender ham/hende til login siden
    rsBlob.AddNew
    rsBlob.Fields("Overskrift") = upl.form("Overskrift")
    rsBlob.Fields("Teaser") = upl.form("Teaser")
    upl.SaveAsBlob rsBlob.Fields("Url")
    rsBlob("Dato") = Now()
    rsBlob.update
   
    rsBlob.Close
    set rsBlob = nothing
%>
Avatar billede mrs Nybegynder
18. november 2002 - 12:57 #1
Er der virkelig ikke nogen der kan svare på dette spørgsmål???
Avatar billede mrs Nybegynder
20. november 2002 - 17:04 #2
Hvis andre skulle få brug for det, skriver jeg det min løsning her:

<%
Set upl = Server.CreateObject("SoftArtisans.FileUp")
upl.Path = Server.Mappath ("../konkurrence")
%>
<%
upl.Form("FILE1").Save

if Err <> 0 Then %>
<font color="#ff0000" size="3">Der er opstået en fejl</font>
Mulige grunde til problemet
<UL>
  <LI>Der er angivet et forkert filnavn
  <LI>Den valgte fil er af en forkert type
</UL>
Hvis fejlen opstår igen, kontakt da webmasteren på følgende e-mail adresse: <a href="mailto: martin@sornsen.dk">martin@sornsen.dk</a>
<% End If %>
<%
'Tilføjer brugeren til databasen
    Set rs = Server.CreateObject("ADODB.Recordset")
    strSQL = "select * from konkurrence"
    rs.Open strsql, Conn, 1, 3
   
'Tilføjer brugeren til databasen og sender ham/hende til login siden
    rs.AddNew
    rs("Overskrift") = upl.form("Overskrift")
    rs("Teaser") = upl.form("Teaser")
    rs("Url")= upl.Form("FILE1").ShortFilename
    rs("Dato") = Now()
    rs.update
   
    rs.Close
    set rs = nothing
%>
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester