hmm det hjælper ikke
hele websidens kode ser sådan ud:
---------------
<body>
<%
SQL = "SELECT * from galleri where galleriID="& request.QueryString("galleriID")
Set RS = MyConn.Execute(SQL)
%>
<form name="form1" id="form1" method="post" action="">
Overskrift:
<input name="textfield" type="text" value="<%=rs("galleriNavn")%>" size="30" />
Dato for oprettelse af galleri: <%=rs("galleriDato")%><br />
Beskrivelse:
<textarea name="textarea" cols="50"><%=rs("galleriBeskrivelse")%></textarea>
</form>
<form name="upload" method="POST" enctype="multipart/form-data" action="ADMIN-galleri2.asp?action=upload&galleriID=<%=request.QueryString("galleriID")%>">
<TABLE CELLSPACING=0 CELLPADDING=3 BORDER=1>
<TD BGCOLOR="#FFFFCC">
<input type=file size="40" name="FILE1" /><br />
<input type=file size="40" name="FILE2" /><br />
<input type=file size="40" name="FILE3" /><br />
<input type=submit value="Upload" />
</TD>
</TABLE>
</form>
<% ' UPLOAD BILLEDER
if request.QueryString("action")<> "" Then
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.OverwriteFiles = False
On Error Resume Next
Upload.SetMaxSize 1048576 ' fil max 1MB
Count = Upload.Save(Server.Mappath("pic/galleri")&"/"&request.QueryString("galleriID"))
%>
<%
' ved fejl
If Err <> 0 Then %>
Flg. fejl forekom under uploading:
"<% = Err.Description %>"
Prøv igen
<% Else %>
Success! <% = Count %> fil(er) er blevet uploaded.
<TABLE BORDER=1 CELLPADDING=3 CELLSPACING=0>
<TH BGCOLOR="#FFFF00">Uploaded Fil</TH>
<TH BGCOLOR="#FFFF00">Størrelse</TH>
<TH BGCOLOR="#FFFF00">Oprindelig Størrelse</TH>
<TR>
<% For Each File in Upload.Files %>
<%' LAV THUMBS
Response.ContentType = "image/jpeg"
Set Image = Server.CreateObject("AspImage.Image")
Image.LoadImage Server.Mappath("pic/galleri")&"/"&request.QueryString("galleriID")&"/"&File.FileName
intRatio = ((75 * 100) / Image.MaxX)
intNewY = CInt(Image.MaxY * (intRatio / 100))
Image.ResizeR 75, intNewY
Image.ImageFormat = 1
Image.FileName = Server.Mappath("pic/galleri")&"/"&request.QueryString("galleriID")&"/thumbs/"&File.FileName
Image.SaveImage
Set Image = nothing %>
<% If File.ImageType = "GIF" or File.ImageType = "JPG" or File.ImageType = "PNG" Then %>
<TD ALIGN=CENTER>
<IMG SRC="<%=Server.Mappath("pic/galleri")&"/"&request.QueryString("galleriID")&"/"&File.FileName%>"><BR><B><% = File.OriginalPath%></B><BR>
(<% = File.ImageWidth %> x <% = File.ImageHeight %> pixels)
</TD>
<% Else %>
<TD><B><% = File.OriginalPath %></B></TD>
<% End If %>
<TD ALIGN=RIGHT VALIGN="TOP"><% =File.Size %> bytes</TD>
<TD ALIGN=RIGHT VALIGN="TOP"><% =File.OriginalSize %> bytes</TD><TR>
<% Next %>
</TABLE>
<% End If %>
<% End If
CleanUp(RS)
%>
</body>
Ny bruger
Nybegynder
Opret
Preview
