Problema No Upload De Imagens

[franciscocapelo]

Eu uso o maxwebportal 1.3. Este é o ficheiro pic_add.asp

Por favor digam-e qual é o erro de codigo asp para o upload de fotos só funcionar da 1ª vez, e deixar de funcionar logo a seguir.

O código onde eu tenho feito alterações e onde penso estar o problema está a negrito.Obrigado.

'***********************************************************************
'** Copyright © 2001 - 2003 Max Yuan All Rights Reserved
'**
'** By using this program, you are agreeing to the terms of the
'** GNU General Public License.
'**
'** This program is free software; you can redistribute it and/or
'** modify it under the terms of the GNU General Public License
'** as published by the Free Software Foundation; either version 2
'** of the License, or any later version.
'**
'** All copyright notices regarding MaxWebPortal must remain intact
'** in the scripts and in the outputted HTML.
'** The "powered by" text/logo with a link back to 
'** [URL=http://www.maxwebportal.com]http://www.maxwebportal.com[/URL] in the footer of the pages MUST
'** remain visible when the pages are viewed on the internet or intranet.
'**
'** Support can be obtained from support forums at:
'** [URL=http://www.maxwebportal.com]http://www.maxwebportal.com[/URL]
'**
'** Email: maxwebportal@hotmail.com
'** ICQ: 148111300
'***********************************************************************
%>
<!--#INCLUDE FILE="config.asp" --> 
<!--#INCLUDE FILE="inc_functions.asp" --> 
<!--#INCLUDE FILE="inc_top.asp" -->

<%
if trim(Request.Form("cat")) = "" then
Response.Redirect("pic.asp")
else
cat = cLng(Request.Form("cat"))
end if
title = ChkString(Request.Form("title"),"title")
desc = replace(ChkString(ChkBadWords(Request.Form("desc")),"message"), "''","'", 1, -1, 1)
key = replace(ChkString(Request.Form("key"),"title"), "''","'", 1, -1, 1)
url = ChkString(Request.Form("url"),"url")
if URL = "" or URL = "http://" then 
URL = ChkString(Request.Form("URL2"),"url") 
end if
turl = ChkString(Request.Form("turl"),"url")
poster = strDBNTUserName
copyright = replace(ChkString(Request.Form("copyright"),"title"), "''","'", 1, -1, 1)
privatePic = Request.Form("private")
today = datetostr(strForumTimeAdjust)

strSQL = "SELECT CAT_ID FROM pic_SUBCATEGORIES WHERE SUBCAT_ID = " & cat
dim rsCategories
set rsCategories = server.CreateObject("adodb.recordset")
rsCategories.Open strSQL, my_Conn
parent = rsCategories("CAT_ID")
rsCategories.Close
set rsCategories = nothing


sString = ""

if len(trim(title)) = 0 then
sString = sString & "<li>Please enter a title.</li>"
else
Set RS=Server.CreateObject("ADODB.Recordset")

strSql="Select TITLE from pic where TITLE='" & title & "'"
RS.Open strSql, my_Conn

if not rs.eof then
sString = sString & "<li>This picture already exists in our database.</li>"
end if
RS.close
end if

if cat = "--Please select one--" then
sString = sString & "<li>Please select category that match your picture.</li>"
end if

if len(trim(desc)) => 255 then
sString = sString & "<li>" &len(trim(desc))&" characters. Your description is too long. 255 characters max.</li>"
end if

[b]if len(trim(URL)) = 7 or trim(URL) = "" then
sString = sString & "<li>You must invalid URL.</li>"
end if

if sString = "" then[/b]

if privatePic = 1 then
owner = "|"&getMemberNumber(STRdbntUserName)&"|"
else 
owner = "0"
end if

strSql = "INSERT INTO PIC"
strSql = strSql & "(TITLE"
strSql = strSql & ", KEYWORD"
strSql = strSql & ", CATEGORY"
strSql = strSql & ", DESCRIPTION"
strSql = strSql & ", POST_DATE"
strSql = strSql & ", PARENT_ID"
strSql = strSql & ", SHOW"
strSql = strSql & ", HIT"
strSql = strSql & ", URL"
strSql = strSql & ", TURL"
strSql = strSql & ", COPYRIGHT"
strSql = strSql & ", OWNER"
strSql = strSql & ", POSTER"
strSql = strSql & ") "
strSql = strSql & " VALUES ("
strSql = strSql & "'" & replace(chkString(title, "SQLString"), "''","'", 1, -1, 1) & "'"
strSql = strSql & ", " & "'" & chkString(key, "SQLString") & "'"
strSql = strSql & ", " & "'" & cat & "'"
strSql = strSql & ", " & "'" & chkString(desc, "SQLString") & "'"
strSql = strSql & ", " & "'" & today & "'"
strSql = strSql & ", " & "'" & parent & "'"
if mlev=4 then
strSql = strSql & ", " & "1"
else
strSql = strSql & ", " & "0"
end if 
strSql = strSql & ", " & "0"
strSql = strSql & ", " & "'" & replace(chkString(url, "SQLString"), "''","'", 1, -1, 1) & "'"
strSql = strSql & ", " & "'" & replace(chkString(turl, "SQLString"), "''","'", 1, -1, 1) & "'"
strSql = strSql & ", " & "'" & chkString(copyright, "SQLString") & "'"
strSql = strSql & ", " & "'" & chkString(owner, "SQLString") & "'"
strSql = strSql & ", " & "'" & chkString(poster, "SQLString") & "'"
strSql = strSql & ")"

my_Conn.Execute (strSQL)
Session.Contents("lastUpload") = ""
Session.Contents("urlTxt2Status") = ""
Session.Contents("uploadBtnStatus") = ""
Session.Contents("clearBtnStatus") = ""
Session.Contents("loggedUser") = ""
%> 
<center>
 <font face="<%= strDefaultFontFace %>" size="<%= strDefaultFontSize %>"><% if mlev=4 then%>Your picture has been add to our database<%else%>Your picture has been accepted for review.<br>
Please wait 1-3 days for your picture to be reviewed and added.<%end if%></font>
<table border=0 cellpadding=0 cellspacing=0 valign=top align=center width=95%>
<tr>
<td valign=top>
<%mwpThemeBlock_open()%>
<tr>
<td bgcolor="<% =strForumCellColor %>" valign="middle" width=100%>
<table border="0" cellpadding="4" cellspacing="0" width="75%" align="center">
<tr>
<td valign=top width=30%>
<b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strDefaultFontColor %>">Title:</font></b> 
</td>
<td valign=top align=left width=70%>
<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strDefaultFontColor %>"><%Response.write replace(replace(title, "''","'", 1, -1, 1), "''","'", 1, -1, 1) %></font>
</td>
</tr>
<tr>
<td valign=top>
<b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strDefaultFontColor %>">Description:</font></b> 
</td>
<td valign=top align=left>
<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strDefaultFontColor %>"><% Response.write replace(desc, "''","'", 1, -1, 1) %></font>
</td>
</tr>
<tr>
<td valign=top>
<b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strDefaultFontColor %>">Keywords:</font></b> 
</td>
<td valign=top align=left>
<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strDefaultFontColor %>"><% Response.write replace(key, "''","'", 1, -1, 1) %></font>
</td>
</tr>
<tr>
<td valign=top>
<b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strDefaultFontColor %>">URL:</font></b> 
</td>
<td valign=top align=left>
<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strDefaultFontColor %>"><% Response.write replace(replace(url, "''","'", 1, -1, 1), "''","'", 1, -1, 1) %></font>
</td>
</tr>
<tr>
<td valign=top>
<b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strDefaultFontColor %>">Thumbnail URL:</font></b> 
</td>
<td valign=top align=left>
<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strDefaultFontColor %>"><% Response.write replace(replace(turl, "''","'", 1, -1, 1), "''","'", 1, -1, 1) %></font>
</td>
</tr>
<tr>
<td valign=top>
<b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strDefaultFontColor %>">Copyright:</font></b> 
</td>
<td valign=top align=left>
<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strDefaultFontColor %>"><% Response.write replace(copyright, "''","'", 1, -1, 1) %></font>
</td>
</tr>
<tr>
<td valign=top>
<b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strDefaultFontColor %>">Private:</font></b> 
</td>
<td valign=top align=left>
<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strDefaultFontColor %>"><% if privatePic = "1" then Response.write "on" else response.write "off" end if%></font>
</td>
</tr>
</table>
</td>
</tr>
<%mwpThemeBlock_close()%>
</td>
</tr>
</table>
<p><a href="pic.asp"><font face="<%= strDefaultFontFace %>" size="<%= strDefaultFontSize %>">Back to Picture Categories</font> </a></p> 
</center>
<meta http-equiv="Refresh" content="10; URL=pic.asp">
<%else%>
<br>
<table border=0 cellpadding=0 cellspacing=0 valign=top align=center width=95%>
<tr>
<td valign=top>
<%mwpThemeBlock_open()%>
<tr>
<td bgcolor="<% =strForumCellColor %>" valign="middle" width=100%>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td valign=top align=center>
<p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">There Was A Problem.</font></p>
<table align="center" border="0">
<tr>
<td><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
<ul>
<% =sString %>
</ul>
</font></td>
</tr>
</table>
<p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="JavaScript:history.go(-1)">Go Back To Enter Data</a></font></p>
</td>
</tr>
</table>
</td>
</tr>
<%mwpThemeBlock_close()%>
</td>
</tr>
</table>
<%end if%> 
<br>
<!--#INCLUDE FILE="inc_footer.asp" -->

Editado Junho 9, 2005 por bareta

[bareta]

posta a descrição do erro...