Hej Tina
Jens Gyldenkærne Clausen skrev:
>Denne linje tyder på at du kan tilgå normale formfelter på samme
>måde som det foregår i aspSmartUpload (som er den komponent jeg
>kender). Det vil sige <objektvariabel>.Form(<webformularfelt>) - fx
>objUploadForm.Form("kommentar"). Værdien du får ud her kan du sende
>til en database, udskrive på en webside eller bruge på andre måder
>i en asp-fil.
og det kan ikke lade sig gøre, da Dundas ikke understøtter tekst. Du kan kun
oploade billeder.
Du kan finde dokumentation til kontrollen her:
http://www.dundas.com/products/onlineDocs/FreeProds/Dunsam.htm
Her er min måde at gemme billedet på:
<%
Set objUpload = Server.CreateObject("Dundas.Upload.2")
objUpload.SaveToMemory
strSti = Server.MapPath("./")
For Each File in objUpload.Files
If File.Size > 25000 Then
Response.Write "<H1 align=center>Billedet er for stort!</H1>"
Response.Write "<P align=center>Må kun være 25 kb<b> og dit er:</B><BR>"
Response.Write "Størrelse: " & File.Size & " kb</B><br>"
Response.Write "<H2 align=center><B><A
HREF=Register.asp>Tilbage</A></B></P></H2><BR>"
Response.End
End If
Next
'Billede af en vare, hvor VareID bruges i filnavnet f.eks IMG10.jpg for vare
nr. 10
ID = Request.QueryString("VareID")
'Opretter forbindelse til databasen
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open objConn '*****Kun Access
For Each File in objUpload.Files
If InStr(1,File.ContentType,"image") <> 0 Then
strBilledSti = "imgVarer/" & "IMG" & ID & "." &
objUpload.GetFileExt(File.OriginalPath)
File.SaveAs strSti & "/" & strBilledsti
'Opretter Billede i Databasen
StrSql = "UPDATE T_Varer SET Billede = '" & strBilledsti & "' WHERE
VareID= " & ID
myConn.Execute(strSQL)
Else
Response.Write "<H1 align=center>Det er ikke et billede du forsøger at
lægge op, prøv igen!</H1>"
Response.Write "<H2 align=center><B><A
HREF=Register.asp>Tilbage</A></B></P></H2><BR>"
Response.End
End If
Next
%>
--
Med Venlig Hilsen
Jørgen Müller