Avatar billede larsen45 Juniormester
02. marts 2004 - 20:08 Der er 28 kommentarer og
1 løsning

oploade billeder med link til databasen og lagt i en mappe.

Ja som overskriften siger så har jeg brug for hjælp
til at lave en form som kan tilføje billeder til databasen med text felter.

nu lister jeg lige begge sider op her + sådan som meningen er at formen skal se ud:

Upload2.htm
-------------
<html>
<body>

<form method="POST" enctype="multipart/form-data" action="Upload3.asp">


<table border="0" width="500" cellspacing="0" cellpadding="2" id="table1">
<tr>
<td width="100%" style="border: 1 solid #000000" bgcolor="#808080">
<font face="verdana" size="1" color="#0000FF"><b>Opret indlæg</b></font></td>
</tr>
<tr>
<td width="100%" style="border-left: 1 solid #000000; border-right: 1 solid
#000000; border-bottom: 1 solid #000000">
<table border="0" width="100%" cellspacing="0" cellpadding="3"
id="table2">
<tr>
<td width="16%" valign="top"><b><font face="verdana"
size="1">Navn</font></b></td>
<td width="78%" valign="top"><font face="verdana" size="1">
<input type="text" name="navn" size="62" style="font-size: 8pt; font-family:
Verdana; border: 1 solid #000000"></font></td>
</tr>
<tr>
<td width="16%" valign="top"><b><font face="verdana"
size="1">Email</font></b></td>
<td width="78%" valign="top"><font face="verdana" size="1">
<input type="text" name="email" size="62" style="font-size: 8pt;
font-family: Verdana; border: 1 solid #000000"></font></td>
</tr>
<tr>
<td width="16%" valign="top"><font face="verdana"
size="1"><b>Overskrift</b></font></td>
<td width="78%" valign="top"><font face="verdana" size="1">
<input type="text" name="overskrift" size="62" style="font-size: 8pt;
font-family: Verdana; border: 1 solid #000000">
</font>
</td>
</tr>
<tr>
<td width="16%" valign="top"><b><font face="verdana" size="1">
Indledning</font></b></td>
<td width="78%" valign="top"><font face="verdana" size="1">
<input type="text" name="indledning" size="62" style="font-size: 8pt;
font-family: Verdana; border: 1 solid #000000"></font></td>
</tr>
<tr>
<td width="16%" valign="top"><font face="verdana"
size="1"><b>Tekst</b></font></td>
<td width="78%" valign="top">
<textarea rows="16" name="text" cols="61" style="font-size: 8pt; font-family:
Verdana; border: 1 solid #000000"></textarea></td>
</tr>
<tr>
<td width="16%" valign="top"><b><font face="verdana"
size="1">Link</font></b></td>
<td width="78%" valign="top"><font face="verdana" size="1">
<input type="text" name="link" size="62" style="font-size: 8pt; font-family:
Verdana; border: 1 solid #000000" value="HTTP://"></font></td>
</tr>
<tr>
<td width="16%" valign="top"><b><font face="verdana" size="1">Indsæt
billede</font></b></td>
<td width="78%" valign="top">
<table id="table3">
<tr>
<td width="25">File:&nbsp;&nbsp; </td>
<td><input type="file" size="40" name="FILE2"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="16%" valign="top"></td>
<td width="78%" valign="top"><font face="verdana" size="1">
<input type="submit" value="Opret indlæg" name="indsot"
style="background-color: #DCE2E4; font-size: 8pt; font-family: Verdana">
</font>
</td>
</tr>
</table>
</form>

</td>
</tr>
</table>
-----------------------------------------------------
Den sender oplysninger her til Upload3.asp

Upload3.asp
---------------
<html>
<body>

<%
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.SetMaxSize 50000, True
Upload.SaveVirtual("/log/")

For Each Item in Upload.Form
FileID = Item.Value
Next

For Each File in Upload.Files
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " &_
"DBQ=" & Server.Mappath("log/db.mdb") & ";"
File.ToDatabase strDSN, "insert into UploadData(ID, Path, Data) " &_
"values('"&FileID&"', '"&File.Path&"', ?)"
if Err <> 0 Then
Response.Write "Error saving the file: " & Err.Description
Else
File.Delete
Response.Write "File "&FileID&", uploaded!<br>"
End If
Next
%>

</body>
</html>

------------------------

Jeg vil gerne have det sådan at jeg kan sætte følgende felter ind i databasen:
navn, email, overskrift, indledning, text, link, FILE1
hvis man kan medtage ID og dato automatisk i dette også vile det værer godt.

Den skulle meget gerne kunne gemme den i acces databasen men ved ikke lige hvad der går galt på serven med denne fejl.
-----------------------------------------------------
Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/Upload3.asp, line 5

Invalid ProgID. For additional information specific to this message please visit
the Microsoft Online Support site located at:
http://www.microsoft.com/contentredirect.asp.


Jeg er newbie og er meget dårligt til det her jeg håber meget på at der er nogle som kan hjælpe mig, og som har forstand på billed opload.
Avatar billede keysersoze Ekspert
02. marts 2004 - 20:18 #1
Fejlen betyder at du ikke har adgang på serveren til det upload-komponent du forsøger at benytte.

Tester du det localhost (altså på din egen maskine) skal du ud og købe komponenten og installere - og tester du online på et webhotel understøtter webhotellet simpelthen ikke komponenten og du skal så hen og finde ud af hvad du så kan benytte i stedet for ASPupload (måske ASPsmartupload eller lignende)
Avatar billede larsen45 Juniormester
02. marts 2004 - 20:23 #2
Hej keysersoze

Du har nok ret i at det ikke virker med ASPupload så.
Nu har jeg cliche.dk og der har jeg fået oplyst idag at jeg kan bruge  ASPsmartupload det burde virke siger deres support ihvertfald.

Men så kommer problemmet så nu hvordan for jeg lavet den koden om til  ASPsmartupload så jeg kan få den til at virke.

Jeg håber meget på at du kan hjælpe mig eller andre.
Avatar billede keysersoze Ekspert
02. marts 2004 - 20:29 #3
www.aspsmart.com - deres dokumentation er ganske fortrinlig så det burde være forholdsvis lige til at skifte over
Avatar billede larsen45 Juniormester
02. marts 2004 - 21:40 #4
jeg har lige hentet en fil fra www.aspsmart.com hvor der ligger 8 eksempler:
http://www.aspsmart.com/lib/download/en/aspSmartUpload.zip
Jeg kan bare ikke finde ud af hvad for en der skulle kunne virke sådan at jeg kan
man både kan tilføje text og billed link til databasen og så lægge selve billedet ind i en mappe op serveren.

Jeg har brug for hjælp tak
Avatar billede keysersoze Ekspert
02. marts 2004 - 22:25 #5
Jeg har aldrig rigtig kigget på deres eksempler så præcis hvad de gør ved jeg ikke - jeg har altid kigget i deres dokumentation.

Hvis du i første omgang bare kan uploade filen kan indlæggelsen i databasen altid komme bagefter - så forsøger du dig med det først kan vi altid se på hvordan du så kommer videre... det er et hjælpeforum det her - ikke et "lav lige mine ting" forum.

Man kan selvfølgelig være heldig at der kommer nogle forbi der gerne vil - men jeg kan og vil kun henvise samt fejlrette eksisterende kode da jeg normalt tjener mine penge ved at lave kode fra bunden og det vil jeg ikke gøre gratis her på E
Avatar billede larsen45 Juniormester
02. marts 2004 - 22:25 #6
Jeg har nu fundet en kode som virker med oploade billeder, men hvordan for jeg så text delen medtaget også så der kan komme overskift indledning email text link og så videre???????

<HTML>
<BODY BGCOLOR="white">

<H1>aspSmartUpload : Sample 4</H1>
<HR>

<%
'  Variables
'  *********
  Dim mySmartUpload
  Dim file
  Dim oConn
  Dim oRs
  Dim intCount
  intCount=0
       
'  Object creation
'  ***************
  Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

'  Upload
'  ******
  mySmartUpload.Upload

'  Connect to the DB
'  *****************
  Set oConn = Server.CreateObject("ADODB.Connection")
  curDir = Server.MapPath("Sample.mdb")
  oConn.Open "DBQ="& curDir &";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"

'  Open a recordset
'  ****************
  strSQL = "SELECT FILENAME,FILE FROM TFILES"

  Set oRs = Server.CreateObject("ADODB.recordset")
  Set oRs.ActiveConnection = oConn
  oRs.Source = strSQL
  oRs.LockType = 3
  oRs.Open

'  Select each file
'  ****************
  For each file In mySmartUpload.Files
  '  Only if the file exist
  '  **********************
      If not file.IsMissing Then

      '  Add the current file in a DB field
      '  **********************************
        oRs.AddNew
        file.FileToField oRs.Fields("FILE")
        oRs("FILENAME") = file.FileName
        oRs.Update
        intCount = intCount + 1
      End If
  Next

'  Display the number of files uploaded
'  ************************************
  Response.Write(intCount & " file(s) uploaded.<BR>")

'  Destruction
'  ***********
  oRs.Close
  oConn.Close
  Set oRs = Nothing
  Set oConn = Nothing
%>
</BODY>
</HTML>
Avatar billede larsen45 Juniormester
02. marts 2004 - 22:38 #7
kan jeg få hjælp til det??
Avatar billede ellebaek Nybegynder
04. marts 2004 - 14:27 #8
Hvis du skal requeste felter med mySmartUpload skal du i stedet for request.form skrive:

mySmartUpload.form("form navn")
Hvor du tilpasser navnet på formen selv..

Når du har fundet felterne på den måde, kan du ligge informationerne ind i databasen med.

oRs("feltnavn") = mySmartUpload.form("form navn")

Håber det hjælper dig.
Avatar billede larsen45 Juniormester
04. marts 2004 - 15:46 #9
Hej ellebaek

Tak for dit svar
Jeg må indrømme at jeg stadig ikke helt forstår hvordan jeg griber det an.
Vil du ikke værer sød at skive hele koden med den ændring du mener der skal til
for at jeg kan få det til at virke.
Med f.eks. overskift, indledning, text så jeg kan få forståelse af hvad der helt præcis skal gøres.

Du kan ellers kontakte mig på ICQ:259566168 eller på MSN: dsl52640@vip.cybercity.dk
Avatar billede ellebaek Nybegynder
04. marts 2004 - 20:19 #10
<HTML>
<BODY BGCOLOR="white">

<H1>aspSmartUpload : Sample 4</H1>
<HR>

<%
'  Variables
'  *********
  Dim mySmartUpload
  Dim file
  Dim oConn
  Dim oRs
  Dim intCount
  intCount=0
       
'  Object creation
'  ***************
  Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

'  Upload
'  ******
  mySmartUpload.Upload

'  Connect to the DB
'  *****************
  Set oConn = Server.CreateObject("ADODB.Connection")
  curDir = Server.MapPath("Sample.mdb")
  oConn.Open "DBQ="& curDir &";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"

'  Open a recordset
'  ****************
  strSQL = "SELECT FILENAME,FILE FROM TFILES"

  Set oRs = Server.CreateObject("ADODB.recordset")
  Set oRs.ActiveConnection = oConn
  oRs.Source = strSQL
  oRs.LockType = 3
  oRs.Open

'  Select each file
'  ****************
  For each file In mySmartUpload.Files
  '  Only if the file exist
  '  **********************
      If not file.IsMissing Then

      '  Add the current file in a DB field
      '  **********************************
        oRs.AddNew
        file.FileToField oRs.Fields("FILE")
        oRs("FILENAME") = file.FileName
        oRs("link") = mySmartUpload.form("link")
        oRs("tekst") = mySmartUpload.form("text")
        oRs("overskrift") = mySmartUpload.form("overskrift")
        oRs("indledning") = mySmartUpload.form("indledning")
        oRs("navn") = mySmartUpload.form("navn")
        oRs("email") = mySmartUpload.form("email")
        oRs.Update
        intCount = intCount + 1
      End If
  Next

'  Display the number of files uploaded
'  ************************************
  Response.Write(intCount & " file(s) uploaded.<BR>")

'  Destruction
'  ***********
  oRs.Close
  oConn.Close
  Set oRs = Nothing
  Set oConn = Nothing
%>
</BODY>
</HTML>

Husk at text er et reserveret navn i access, så i stedet for, hvis feltet i forvejen hedder text, så kald det for fx. tekst. Så burde ovenstående script fungere...
Avatar billede larsen45 Juniormester
04. marts 2004 - 20:40 #11
Hej igen ellebaek

Jeg for følgende fejlmeddelse på serveren:

ADODB.Recordset error '800a0cc1'

Item cannot be found in the collection corresponding to the requested name or ordinal.

Sample4.asp, line 53

Nu lister jeg lige min database op som den står:

Felter:
-----------------------
ID (Autonummerering)
FILE (OLE-objekt)
FILENAME (Tekst)
dato (Tekst)
navn (Tekst)
email (Tekst)
overskrift (Tekst)
indledning (Tekst)
tekst (notat)
images (Tekst)
link (Hyperlink)

Sådan står det ellebaek ved ikke om det er derfor det ikke vil virke nu??
Håber du stadig kan hjælpe mig.
Avatar billede ellebaek Nybegynder
04. marts 2004 - 20:52 #12
ret denne linie: strSQL = "SELECT FILENAME,FILE FROM TFILES"

til strSQL = "SELECT * FROM TFILES"
og så prøv igen.
Avatar billede larsen45 Juniormester
04. marts 2004 - 20:58 #13
Jeg har lige ændret det ellebaek
Men er nu støt på en mere alvorligt problem da jeg skulle til at teste det.
Min udbyder har problemer med adgang til serveren nu. Jeg kan ikke få lov til at logge på iøjeblikket med FTP. Jeg bliver snart tosset på min udbyder for præcis det samme opstod i går også ved 21:00 tiden.
Avatar billede ellebaek Nybegynder
04. marts 2004 - 20:59 #14
Det er temmelig træls hvis udbyderen ikke kan få tingene til at virke. Hvem er din udbyder ?
Avatar billede larsen45 Juniormester
04. marts 2004 - 21:05 #15
Min udbyder er cliche.dk jeg har ellers ikke haft de store problemer med dem i en lang periode men på det sidste har det været nået problem fyldt.
Jeg håber at det snart kommer op at kører igen og at jeg ikke skal sidde og vente helt til imorgen. For så vil jeg ringe og klage meget voldsomt da jeg ikke synes
at man skal finde sig i at det er så ustabilt.
Jeg ville ellers meget gerne have det op at kører dette script idag nu jeg kan få nået hjælp.
Avatar billede ellebaek Nybegynder
04. marts 2004 - 21:08 #16
c",)

Jeg overvejede at købe domæne hos cliche, men det har jeg droppet igen.
Har hørt for mange kedelige ting om deres oppetider for nyligt.

Håber du får det til at virke..
Avatar billede larsen45 Juniormester
04. marts 2004 - 21:33 #17
Jeg kan bare sige at jeg ihvertfald ikke vil finde mig i at man ikke kan logge på
fra klokken 21:00 til 09:00 og morgen bare fordi de ikke har nogle folk til at få det lavet hurtigt igen. eller i det mindste melde ud når der er fejl på deres hjemmeside så man kan se hvad der er galt og hvornår de regner med at få løst problemet igen.

Hos cybercity.dk som er min internet udbyder har jeg altid fået information på en eller anden måde så man hele tiden er informeret om fejl.
Avatar billede ellebaek Nybegynder
04. marts 2004 - 21:37 #18
Ja, det er for dårlig service at man ikke kan få information om at serveren er nede og at de arbejder på at rette fejlen.
Avatar billede keysersoze Ekspert
04. marts 2004 - 21:41 #19
jah - hvad kan man sige.. man får hvad man betaler for ;)
Avatar billede ellebaek Nybegynder
04. marts 2004 - 21:42 #20
Ja, det har du ret i...

Jo billigere jo dårligere suport.
Avatar billede larsen45 Juniormester
04. marts 2004 - 21:50 #21
ja enig men de fejl som er fremstået er jo så også nogle ting som de normalt hurtigt
kan rette op på hvis de ellers bare fattede at der var nået som hed kunne service i denn verden hos cliche.dk. Men har ikke fået den opfattelse her på det sidste at de
gider at bruge mere tid på deres kunder end mellem: 09:00 og 16:00 efter dette tidspunkt er der så godt som lukket af til næste morgen, jeg har aldrig selv fået
svar fra dem efter 16. De har ellers lovet mig at de ville begynde at give bedre support tider til kunder men intet er sket endnu.

MSN: dsl52640@vip.cybercity.dk ICQ:259566168
Avatar billede ellebaek Nybegynder
04. marts 2004 - 21:51 #22
c",)
Avatar billede larsen45 Juniormester
04. marts 2004 - 22:01 #23
Nå men ellebaek har du muligheder for selv lige at teste det så vi kan finde ud af om det virker korrekt??

Her er form koden Sample4.htm
------------------------------
<HTML>
<BODY BGCOLOR="white">

<H1 style="margin-top: 0; margin-bottom: 0">aspSmartUpload : Sample 4</H1>


  <p style="margin-top: 0; margin-bottom: 0">&nbsp;</p>


<FORM METHOD="POST" ACTION="Sample4.asp" ENCTYPE="multipart/form-data">


<table border="0" width="500" cellspacing="0" cellpadding="2" id="table1">
  <tr>
    <td width="100%" style="border: 1 solid #000000" bgcolor="#808080">
    <p style="margin-top: 0; margin-bottom: 0">
    <font face="verdana" size="1" color="#0000FF"><b>Opret indlæg</b></font></td>
  </tr>
  <tr>
    <td width="100%" style="border-left: 1 solid #000000; border-right: 1 solid #000000; border-bottom: 1 solid #000000">
      <table border="0" width="100%" cellspacing="0" cellpadding="3" id="table2">
        <tr>
          <td width="16%" valign="top">
            <p style="margin-top: 0; margin-bottom: 0"><b><font face="verdana" size="1">Navn</font></b></td>
          <td width="78%" valign="top">
            <p style="margin-top: 0; margin-bottom: 0"><font face="verdana" size="1">
    <input type="text" name="navn" size="62" style="font-size: 8pt; font-family: Verdana; border: 1 solid #000000"></font></td>
        </tr>
        <tr>
          <td width="16%" valign="top">
            <p style="margin-top: 0; margin-bottom: 0"><b><font face="verdana" size="1">Email</font></b></td>
          <td width="78%" valign="top">
            <p style="margin-top: 0; margin-bottom: 0"><font face="verdana" size="1">
    <input type="text" name="email" size="62" style="font-size: 8pt; font-family: Verdana; border: 1 solid #000000"></font></td>
        </tr>
        <tr>
          <td width="16%" valign="top">
            <p style="margin-top: 0; margin-bottom: 0"><font face="verdana" size="1"><b>Overskrift</b></font></td>
          <td width="78%" valign="top">
            <p style="margin-top: 0; margin-bottom: 0"><font face="verdana" size="1">
    <input type="text" name="overskrift" size="62" style="font-size: 8pt; font-family: Verdana; border: 1 solid #000000">
    </font>
          </td>
        </tr>
        <tr>
          <td width="16%" valign="top">
            <p style="margin-top: 0; margin-bottom: 0"><b><font face="verdana" size="1">
            Indledning</font></b></td>
          <td width="78%" valign="top">
            <p style="margin-top: 0; margin-bottom: 0"><font face="verdana" size="1">
    <input type="text" name="indledning" size="62" style="font-size: 8pt; font-family: Verdana; border: 1 solid #000000"></font></td>
        </tr>
        <tr>
          <td width="16%" valign="top">
            <p style="margin-top: 0; margin-bottom: 0"><font face="verdana" size="1"><b>Tekst</b></font></td>
          <td width="78%" valign="top">
            <p style="margin-top: 0; margin-bottom: 0">
            <textarea rows="16" name="tekst" cols="61" style="font-size: 8pt; font-family: Verdana; border: 1 solid #000000"></textarea></td>
        </tr>
        <tr>
          <td width="16%" valign="top">
            <p style="margin-top: 0; margin-bottom: 0"><b><font face="verdana" size="1">Link</font></b></td>
          <td width="78%" valign="top">
            <p style="margin-top: 0; margin-bottom: 0"><font face="verdana" size="1">
    <input type="text" name="link" size="62" style="font-size: 8pt; font-family: Verdana; border: 1 solid #000000" value="HTTP://"></font></td>
        </tr>
        <tr>
          <td width="16%" valign="top">
            <p style="margin-top: 0; margin-bottom: 0"><b><font face="verdana" size="1">Indsæt
            billede</font></b></td>
          <td width="78%" valign="top">
  <table id="table3">
    <tr>
      <td width="25">
        <p style="margin-top: 0; margin-bottom: 0">File:&nbsp;&nbsp; </td>
      <td>
        <p style="margin-top: 0; margin-bottom: 0">


  <INPUT TYPE="FILE" NAME="FILE1" SIZE="50"></td>
    </tr>
    </table>
            </td>
        </tr>
        <tr>
          <td width="16%" valign="top" height="32">
            <p style="margin-top: 0; margin-bottom: 0"></td>
          <td width="78%" valign="top" height="32">
            <p style="margin-top: 0; margin-bottom: 0"><font face="verdana" size="1">
   
    <INPUT TYPE="SUBMIT" VALUE="Opret indlæg">
    </font>
          </td>
        </tr>
      </table>
    </FORM>
    </td>
  </tr>
</table>
Avatar billede ellebaek Nybegynder
04. marts 2004 - 22:03 #24
Nej, desværre...

Jeg har ikke installeret mySmartUpload på min computer for tiden...
Men jeg tror det virker..

Du kan bare teste det når Cliche kommer op igen..
Avatar billede larsen45 Juniormester
04. marts 2004 - 22:08 #25
okay ellebaek
Det må jeg så gører.
ellebaek hvorfor er du aldrig på ICQ mere og hvorfor virker din MSN konto ikke heller??
Avatar billede ellebaek Nybegynder
04. marts 2004 - 22:14 #26
Min msn skulle meget gerne virke: jens_ellebaek [@] hotmail.com

Grunden til jeg ikke rigtig er på ICQ er at jeg glemmer at starte den når jeg tænder computeren ;-)

Mine forældre bruger også min comp hvis de skal på nettet, derfor har jeg den ikke til at starte op som standard..
Avatar billede larsen45 Juniormester
05. marts 2004 - 13:00 #27
OK ellebaek
Min FTP virker igen og jeg har fået det til at virke super godt men er støt ind
i det problem at jeg ikke ved hvordan jeg for billederne ind i den rigtige mappe
når de bliver gemt. Billederne bliver nemlig lagt i den samme mappe som Databasen
kan man ændres det så jeg kan vælge den rigtige mappe???
Avatar billede larsen45 Juniormester
05. marts 2004 - 13:05 #28
Glemte lige at sige at dato heller ikke bliver taget automatisk med
sådan her: 24-02-2004 evt. med tidspunkt bagefter hvis det kan lade sig gører?
Avatar billede ellebaek Nybegynder
05. marts 2004 - 23:35 #29
<HTML>
<BODY BGCOLOR="white">

<H1>aspSmartUpload : Sample 4</H1>
<HR>

<%
'  Variables
'  *********
  Dim mySmartUpload
  Dim file
  Dim oConn
  Dim oRs
  Dim intCount
  intCount=0
  Session.LCID = 1030     
'  Object creation
'  ***************
  Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

'  Upload
'  ******
  mySmartUpload.Upload

'  Connect to the DB
'  *****************
  Set oConn = Server.CreateObject("ADODB.Connection")
  curDir = Server.MapPath("Sample.mdb")
  oConn.Open "DBQ="& curDir &";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"

'  Open a recordset
'  ****************
  strSQL = "SELECT * FROM TFILES"

  Set oRs = Server.CreateObject("ADODB.recordset")
  Set oRs.ActiveConnection = oConn
  oRs.Source = strSQL
  oRs.LockType = 3
  oRs.Open

'  Select each file
'  ****************
  For each file In mySmartUpload.Files
  '  Only if the file exist
  '  **********************
      If not file.IsMissing Then

      '  Add the current file in a DB field
      '  **********************************
        oRs.AddNew
        file.FileToField oRs.Fields("FILE")
        oRs("FILENAME") = file.FileName
        oRs("link") = mySmartUpload.form("link")
        oRs("tekst") = mySmartUpload.form("text")
        oRs("overskrift") = mySmartUpload.form("overskrift")
        oRs("indledning") = mySmartUpload.form("indledning")
        oRs("navn") = mySmartUpload.form("navn")
        oRs("email") = mySmartUpload.form("email")
        oRs("dato") = now()
        oRs.Update
        intCount = intCount + 1
      End If
  Next

'  Display the number of files uploaded
'  ************************************
  Response.Write(intCount & " file(s) uploaded.<BR>")

'  Destruction
'  ***********
  oRs.Close
  oConn.Close
  Set oRs = Nothing
  Set oConn = Nothing
%>
</BODY>
</HTML>

Dette burde løse dit problem med datoen, men det med mappen kan jeg ikke forstå...
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
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

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