Dundas Upload af 2 filer som får unikt navn der indsættes i db...

Dundas Upload af 2 filer som får unikt navn der indsættes i db sammen med andre info.

På bådlaugets hjemmeside vil jeg gerne have at man kan indtaste oplysninger om ens båd og uploade 2 billeder med kommentarer til.

Dvs. de 2 filer som uploades skal skrives ind i en db med de unikke navne de bliver tildelt. Lige nu bliver kun den første fil uploaded og skrevet ind i db, dog ikke med unikt navn.

DB:dbldb.mdb
Tabel:dinbaad
Kolonner:ID, navn_baadejer, navn_baad, type_baad, mail_baadejer, link_baad, link_typebaad, pic_1, pic_2, tekst_baad_1, tekst_baad_2

Billedenavnene skal sættes ind i pic_1 og pic_2

Pt. ser mine test script sådanne ud, det er kun for at kunne teste uploaden og indskrivning i DB'en:
Test DB:dbldb.mdb (samme som den originale)
Test Tabel: anmeldelser (var allerede i scriptet)
Kolonner: ID, billede (var allerede i scriptet)

Upload.asp
<form name="UploadForm" action="Process.asp" enctype="multipart/form-data" method="post">

<p>
UPLOAD INFORMATION
<table width="400" border="0" cellPadding="3" cellSpacing="3"  align="center">
  <tr>
    <td>File to upload #1: </td>
    <td><input NAME="File1" TYPE="file"></td></tr>
  <TR>
    <td>File to upload #2: </td>
    <td><input NAME="File2" TYPE="file"></td></TR>
  <TR>
    td></TR>
  </table>
<p>
<input type="submit" value="Upload File(s)" id="submit1" name="submit1">
<br></form>

Process.asp
<%
Set dbforb = Server.CreateObject("ADODB.Connection")
    dbforb.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("dbldb.mdb")

Set objUpload = Server.CreateObject("Dundas.Upload.2")
objUpload.UseUniqueNames = true
sti = Server.MapPath(".") & "\"

Set objNextFile = objUpload.GetNextFile()
objNextFile.Save sti
fileName = objUpload.GetFileName(objNextFile.OriginalPath)

billede = fileName

Set objUpload = Nothing

strSAV= "insert into dinbaad (billede) values ('" & billede &"')"
dbforb.Execute(strSAV)


%>

Håber nogle kan hjælpe med at strikke det sammen

/Stef