aspSmartUpload
Er der nogle der kan hjælpe mig med at tilpasse dette script fra aspSmart.com.Problemet med scriptet er at det tilføjer mine 2 billeder til hver sin post i databasen og jeg skal bruge dem i samme post.
Jeg går ud fra at det sker i linien \"For each file In mySmartUpload.Files\". Her er scriptet:
<%
\' Variables
\' *********
Dim mySmartUpload
Dim file
Dim oConn
Dim oRs
\' Object creation
\' ***************
Set mySmartUpload = Server.CreateObject(\"aspSmartUpload.SmartUpload\")
\' Upload
\' ******
mySmartUpload.Upload
\' Connect to the DB
\' *****************
Set oConn = Server.CreateObject(\"ADODB.Connection\")
oConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"database.mdb\")
\' Open a recordset
\' ****************
strSQL = \"SELECT * FROM tabel\"
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(\"pic1\")
oRs(\"picnavn1\") = file.FileName
file.FileToField oRs.Fields(\"pic2\")
oRs(\"picnavn2\") = file.FileName
oRs.Update
\'End If
Next
Response.Write \"<center>\"
response.write \"Data gemt!<BR><BR>\"
Response.Write \"<a href=\'default.asp\'>til forsiden...</a>\"
Response.Write \"</center>\"
\' Destruction
\' ***********
oRs.Close
oConn.Close
Set oRs = Nothing
Set oConn = Nothing
%>
