102
i would like to ask if i already have my connection
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connectstr
here is the script
<%
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.OverwriteFiles = False
On Error Resume Next
Upload.SetMaxSize 1048576 ' Limit files to 1MB
Count = Upload.Save("c:\upload")
%>
<HTML>
<BODY BGCOLOR="#FFFFFF">
<CENTER>
<TABLE BORDER=1 CELLPADDING=3 CELLSPACING=0>
<TD><B>Image:</B></TD>
<% If Count > 0 Then %>
<%
Set File = Upload.Files(1)
If File.ImageType = "GIF" or File.ImageType = "JPG" or File.ImageType = "PNG" Then %>
<TD ALIGN=CENTER><IMG SRC="/uploaddir/<% = File.FileName%>"><BR><% = File.OriginalPath%><BR>
(<% = File.ImageWidth %> x <% = File.ImageHeight %> pixels)
</TD>
<% Else %>
<TD><% = File.OriginalPath %></TD>
<% End If %>
<% Else %>
<TD>File not selected.</TD>
<% End If %>
</TABLE>
</CENTER>
</BODY>
</HTML>
-----------------------------------------------------------------------------------------------
do i have to change the Upload to conn???/ i have changed that .. but still cannot upload... what is wrong?? pls help thanks
