<%
Set Upload = Server.CreateObject("Persits.Upload.1")
'-- Inga stora filer här inte ( MAX 1 MB ).
Upload.SetMaxSize 1048576
'-- Ladda upp skiten.
Response.Write(Upload.Form("txtImage")) '<-- detta funkar inte..
If ( Upload.Form("txtImage") = "prod" ) Then
Upload.Save "g:\home\cav.com\www\af\prodimg"
Else
Upload.Save "g:\home\cav.com\www\koll\images"
End If
For Each File in Upload.Files
strFileName = File.ExtractFileName
If ( Instr(strFileName, ".jpg") > 0 ) Then _
bolImageOk = "TRUE"
If ( Instr(strFileName, ".gif") > 0 ) Then _
bolImageOk = "TRUE"
If Not ( bolImageOK = "TRUE" ) Then _
File.Delete
Next
If ( bolImageOK = "TRUE" ) Then
Response.Write (strFileName & " är uppladdad, klicka <a href=default.asp>här</a> för att komma tillbaka.")
Else
Response.Write "Du kan bara ladda upp JPEG eller GIF filer."
End If
%>
det var upload.asp, nedan är formulär sidan.
<TABLE border=0 cellPadding=4 cellSpacing=0 width=600 valign="top">
<TBODY>
<TR>
<TD><B>LADDA UPP BILD</B>
<BR>
Välj "Bläddra" och klicka sen på "Ladda Upp!"
<HR noShade SIZE=1>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=600 valign="top">
<TBODY>
<TR vAlign=top>
<td>
<FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="upload.asp">
<INPUT TYPE=FILE NAME=txtFileName>
<INPUT TYPE=SUBMIT VALUE="Ladda Upp!">
<br>
<input type=radio name=txtImage checked>Kollektionsbild<input type=radio name=txtImage>Produktbild
</FORM>
</td>
</tr>
</table>
</BODY>
</HTML>
Alltså mina radiobuttons verkar inte ha någon effekt här.., hur kan jag posta texten tillsammans med bilden?
/t