Persits.Upload.1

Måske er der noget her du kan bruge http://www.aspencrypt.com/task_upload.html

linket du nævner er det jeg benytter. Den uploader filen med filens navn og ikke med det filnavn jeg sætter!

Jeg skriver:

Mit form dokument:
<FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="Upload.asp?produkt_id=<%=request("produkt_id")%>&producent_id=<%=request("producent_id")%>&location=<%=request("location")%>">
  <p>
    <INPUT TYPE=FILE NAME="<%=request("produkt_id")&"_"&request("producent_id")&"_"&request("location")&".jpeg"%>">

udskriver:
<FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="Upload.asp?produkt_id=1&producent_id=1&location=v">
  <p>
    <INPUT TYPE=FILE NAME="1_1_v.jpeg">


men det er stadigt filens navn som bliver skrevet til serveren?

OK, jeg gemmer billederne som det de hedder men hvordan danner jeg sql så den gemmer begge filnavne? Jeg hæver points til 100

Jeg har to billeder på en side:

mit formscript:
<FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="Upload.asp?produkt_id=<%=request("produkt_id")%>&producent_id=<%=request("producent_id")%>&location=<%=request("location")%>">
  <p>
<INPUT TYPE=FILE NAME="FILE1"><br>
<INPUT TYPE=FILE NAME="FILE2"><br>
<INPUT TYPE=SUBMIT VALUE="Upload!">
  </p>
</FORM>

mit upload:
<%
DIM filnavn
filnavn = ""

Set Upload = Server.CreateObject("Persits.Upload.1")
'Upload.IgnoreNoPost = True

' Upload files
'Upload.OverwriteFiles = False ' Generate unique names
Upload.SetMaxSize 1048576 ' Truncate files above 1MB
Upload.save "c:\www\grabit.dk\www\kunder\bst_katalog\billeder\"
'Upload.SaveVirtual "../billeder/" & request("user") ' Save to data directory

For Each File in Upload.Files
    filnavn = File.ExtractFileName
Next

%>

<%
' Databaseforbindelse - husk at angive sti til din database

    Set Conn = Server.CreateObject("ADODB.connection")
    Conn.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};" & _
    "DBQ=c:\www\grabit.dk\www\kunder\bst_katalog\db\bst_katalog.mdb"
    Conn.Open
   
' SQL sætning opbygges
strSQL = "UPDATE produkt SET " & Request.QueryString("location") & " = '" & filnavn & "' WHERE produkt_id=" & Request.QueryString("produkt_id")


' SQL sætning eksekveres
'Response.Write("sql er:" & strSQL)
Conn.Execute(strSQL)

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>

Skal du i samme record???? hvilekn kolonne skal filnavn 2 i?

du kan udvide dit loop til dette:

For Each File in Upload.Files
  if filnavn1 = "" then
    filnavn1 = File.ExtractFileName
  else
    filnavn2 = File.ExtractFileName
  end if
Next

Så har du to variable filnavn1 og filnavn2 med filnavne i, det kan måske giver problemmer hvis man ikke angiver det første billede så kommer filnavn2 ind i filnavn1....

Jeg forstår ikke at filnavn1 skal være tom?
if filnavn1 = "" ?

begge skal skrives i samme record, så det ville nok være nemmere at skrive noget i retningen af:

strSQL = "UPDATE produkt SET " & [v,h]& " = '" & [filnavn_v,filnavn_h] & "' WHERE produkt_id=" & Request.QueryString("produkt_id")

jeg kan bare ikke finde ud af det der SQL, sorry.

tak for hjælpen
http://www.eksperten.dk/spm/267572

jeg fortsætter med næste spørgsmål på siden.

fortsættes: http://www.eksperten.dk/spm/267779