franciscocapelo

Era isso mesmo! Muito obrigado! Francisco Capelo - Portugal

Olá a todos. Agradeço qualquer ajuda que me possam dar para resolver isto: tenho o Photoshop 6 (eu sei que é uma versão antiga, mas dou-me bem com ela), e há algum tempo a pontuação deixou de dar os acentos na língua portuguesa: em vez de: água , no meu Photoshop aparece agua - não aparecem os acentos ! Alguém sabe como poderei resolver isto ? Já fui a: Preferences, já estive a mexer na ferramenta Text, mas não consigo nada - terei de desinstalar e instalar de novo o programa no computador ? Obrigado. Francisco Capelo - Portugal

Gostava de saber a vossa opinião sobre o meu site pessoal, em Flash- sou pintor, poeta, artista gráfico O meu site em Flash

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" -->