Uploading

http://activedeveloper.dk/aspdigital/kapitel6/upload.asp
http://activedeveloper.dk/aspdigital/kapitel6/upload_write.asp

http://www.netcoders.dk/sources.asp?mode=view_source&cat_id=0&id=746&tech_id=1

nej sorry det fatter jeg ikke så meget af... men det først fra Activ. var godt - at den upload ike lige filen =(

http://www.planet-source-code.com/vb/scripts/ShowCode.asp?lngWId=4&txtCodeId=6569
http://www.planet-source-code.com/vb/scripts/ShowCode.asp?lngWId=4&txtCodeId=6447
http://www.sloppycode.net/sloppycode/ASP/cm12.html

evt. kan du også bruge en komponent hvis du har mulighed for at få den installeret på serveren ... f.eks. aspSmartUpload

Husk desuden at gi' retigheder til mappen du uploadder i !!!

ja men jeg kan ikke få noget af det til at virke "jeg skal også omskrive det" så =( har du ikke et scritp som ikke fylder ngoet det SKAL kun kunne upload og man skal kunne bruge respose i det...

Jo, det har jeg ... men lidt flere oplysninger ville være at foretrække ...

Men jeg bruger en fil 'pullimage.asp' til at trække billederne ud af en database:

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

<%
Response.Buffer = True

Const adOpenForwardOnly = 0, adOpenStatic = 3, adLockReadOnly = 1, adLockOptimistic = 3, adCmdText = 1, adCmdTable = 2

Dim objConn, objRS
Dim twID

Dim strPathToDB
strPathToDB = "D:\mappetildinhjemmeside\data\"

twID = Replace(Replace(Replace(Request.Querystring("ID"), "'", "''"), "%", ""), " ", "")

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strPathToDB & "Gallery.mdb"

Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open "SELECT * FROM [tblGallery] WHERE [fldID] = " & twID & ";", objConn, adOpenStatic, adLockOptimistic, adCmdText

If Not objRS.EOF Then
  If Request.Querystring("mode") = "thumbnail" Then
      Response.ContentType = objRS("fldContentTypeThumbnail")
      Response.BinaryWrite objRS("fldFileThumbnail")
  End If
End If

objConn.Close
Set objConn = Nothing
%>

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

For at uploade til en database skal jeg vide om du har adgang til nogle komponenter på din server til formålet (eller om du har mulighed for at få installeret aspSmartUpload som jo er gratis).

Hvis du vælger at bruge aspSmartUpload kan du lave en anden fil addnew.asp og indsætte følgende kode i den:

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

<%
Dim objSmartUpload, objSmartUploadFile
Dim twTextText, twTextLink, twSelectCategory
Dim strError, strCategory

Dim strPathToDB
strPathToDB = "D:\mappetildinhjemmeside\data\"

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strPathToDB & "Gallery.mdb"

If (Request.ServerVariables("REQUEST_METHOD") = "POST") Then
  Set objSmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
  objSmartUpload.Upload

  twTextText1 = Replace(Replace(objSmartUpload.Form("twTextText1"), "'", "''"), "%", "")
  twTextText2 = Replace(Replace(objSmartUpload.Form("twTextText2"), "'", "''"), "%", "")

  Set objRS = Server.CreateObject("ADODB.Recordset")
  objRS.Open "SELECT * FROM [tblGallery];", objConn, adOpenStatic, adLockOptimistic, adCmdText

  objRS.AddNew
  If Not objSmartUpload.Files.Item(1).IsMissing Then
    objSmartUpload.Files.Item(1).FileToField objRS.Fields("fldFile")
    objRS("fldFileName") = objSmartUpload.Files.Item(1).FileName
    objRS("fldFileSize") = objSmartUpload.Files.Item(1).Size
    objRS("fldContentType") = objSmartUpload.Files.Item(1).ContentType
  End If
  objRS("fldText1") = twTextText1
  objRS("fldText2") = twTextText2
  objRS.Update

End If
%>

<form action="addnew.asp" enctype="multipart/form-data" method="post">
Billede-fil:<br><input name="twFileFile" style="width:300px" type="file"><br><br>
Tekst1:<br><input maxlength="255" name="twTextText1" style="width:300px" type="text" value=""><br><br>
Tekst2:<br><input maxlength="255" name="twTextText2" style="width:300px" type="text" value=""><br><br>
<input type="submit" value="Opret"></form>

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

På den hjemmeside hvor du så skal udskrive alle billederne skal du så løbe denne tabel i gennem og udskrive teksterne ... Du skal så også udskrive billedet ved at skrive:

Response.Write "<img src=""pullimage.asp?id=" & objRS("fldID") & "">"

Håber du kan bruge det til noget ... ellers må du gi' nogle flere informationer om hvad du vil ha' lavet ...

Ups, så meget kode skal du slet ikke bruge (det kode jeg skrev herover var til et andet spg.) ...

Det er ret enkelt hvis du bruger aspSmartUpload (som jo er gratis):

Du klikker dig ind på www.aspsmart.com - vælger aspSmartUpload - Samples ... Her er al den kode du behøver :-)