[Resolvido] Arquivo exclusão - problema com rstDel.Open

[Arlene Paula 0]

Olá pessoal, eu sou nova no Imasters e também, to começando a mexer com ASP.

Seguinte, peguei um mural pronto da internet, pra colocar no site da minha comunidade. Ele tem só a página de exibição dos recados e pra adicionar os recados. Só que ultimamente, pessoas tem postado propagandas indesejadas e sempre que isso acontece, tenho q abrir o FTP, pegar o BD, limpar ele no meu pc, abrir o FTP de novo e subir o BD novamente. Demora mto, em vista do tanto de trabalho q tenho aki ainda com o site. Comecei a criar uma página de exclusão, que tem na minha apostila de ASP da escola onde fiz aula, mas algo está errado, pois dá o seguinte erro:

 

Tipo de erro:

Microsoft JET Database Engine (0x80040E14)

Erro de sintaxe (operador faltando) na expressão de consulta 'De='.

/comdeus2007/muralrecados/excluir.asp, line 7

 

No arquivo excluir.asp está:

<%
constring="PROVIDER=Microsoft.JET.OLEDB.4.0;DATA SOURCE="&Server.MapPath("Dados\BDMuralRecados.mdb")
Set conexao=Server.CreateObject("ADODB.Connection")
conexao.open constring
   sqlDel="DELETE FROM MuralRecados WHERE De="&request.form("De")&""
   Set rstDel=Server.CreateObject("ADODB.Recordset")
   [b]rstDel.Open sqlDel, Conexao[/b] - (aqui é a linha 7)
   Ste rstDel=Nothing
   Set Conexao=Nothing
response.redirect "excluir.asp?msg=1"
%>
<p>Excluir Recados</p>
<form id="form1" name="form1" method="post" action="">
  <table width="453" border="0" cellspacing="3" cellpadding="0">
	<tr>
	  <td width="114">Data</td>
	  <td width="339"><label>
		<input name="DataInclusao" type="text" id="DataInclusao" />
	  </label></td>
	</tr>
	<tr>
	  <td>De</td>
	  <td><label>
		<input name="De" type="text" id="De" />
	  </label></td>
	</tr>
	<tr>
	  <td>e-mail</td>
	  <td><label>
		<input name="Email" type="text" id="Email" />
	  </label></td>
	</tr>
	<tr>
	  <td>Para</td>
	  <td><label>
		<input name="Para" type="text" id="Para" />
	  </label></td>
	</tr>
	<tr>
	  <td>Mensagem</td>
	  <td><textarea name="Mensagem" cols="50" rows="10" id="Mensagem"></textarea></td>
	</tr>
	<tr>
	  <td> </td>
	  <td> </td>
	</tr>
	<tr>
	  <td colspan="2"><label>
		<input type="submit" name="Submit" value="Excluir" />
	  </label></td>
	</tr>
  </table>
</form>
<p> </p>

não sei pq está dando esse erro... eu não liguei nada em nada ainda, mas nem sei se isso vai ser necessário ou possível.

Por favor, vcs podem me dar uma mãozinha?

 

De coração, obrigada a todos!

[T.Colucci 33]

Tente substituir o valor da variavel de consulta por isso:

 

sqlDel="DELETE FROM MuralRecados WHERE De='&request.form('De')&'"

 

veja se funciona....

 

Ok?!

 

Obs: * Eu não programo em ASP, e sim em php...mas olhando por cima acredito que o problema seja isso, aspas dentro da string da consulta ao banco de dados.*

[jrcardozo 4]

na verdade é aspas mesmo.

 

como está seu formulário? certamente o valor não está chegando no request.form("de"). Há grande possibilidade do nome estar errado no form

[Arlene Paula 0]

Tem como eu colocar o formulário aqui?? Se sim, como eu faria isso?

[Ted k' 126]

copia o código fonte

[Arlene Paula 0]

<%
constring="PROVIDER=Microsoft.JET.OLEDB.4.0;DATA SOURCE="&Server.MapPath("Dados\BDMuralRecados.mdb")
Set conexao=Server.CreateObject("ADODB.Connection")
conexao.open constring
   sqlDel="DELETE FROM MuralRecados WHERE De="&request.form("De")&""
   Set rstDel=Server.CreateObject("ADODB.Recordset")
   rstDel.Open sqlDel, Conexao
   Ste rstDel=Nothing
   Set Conexao=Nothing
response.redirect "excluir.asp?msg=1"
%>
<p>Excluir Recados</p>
<form id="form1" name="form1" method="post" action="">
  <table width="453" border="0" cellspacing="3" cellpadding="0">
	<tr>
	  <td width="114">Data</td>
	  <td width="339"><label>
		<input name="DataInclusao" type="text" id="DataInclusao" />
	  </label></td>
	</tr>
	<tr>
	  <td>De</td>
	  <td><label>
		<input name="De" type="text" id="De" />
	  </label></td>
	</tr>
	<tr>
	  <td>e-mail</td>
	  <td><label>
		<input name="Email" type="text" id="Email" />
	  </label></td>
	</tr>
	<tr>
	  <td>Para</td>
	  <td><label>
		<input name="Para" type="text" id="Para" />
	  </label></td>
	</tr>
	<tr>
	  <td>Mensagem</td>
	  <td><textarea name="Mensagem" cols="50" rows="10" id="Mensagem"></textarea></td>
	</tr>
	<tr>
	  <td> </td>
	  <td> </td>
	</tr>
	<tr>
	  <td colspan="2"><label>
		<input type="submit" name="Submit" value="Excluir" />
	  </label></td>
	</tr>
  </table>
</form>
<p> </p>

é o mesmo que eu já tinha colocado lá em cima!! A imagem é essa de baixo:

 

[Salgado 4]

Vamos melhorar isso? Vamos tentar montar um sisteminha simples e funcional para administrar essas mensagens online?

 

Como você está escolhendo a mensagem a ser excluída?

[Arlene Paula 0]

Meninos, muitíssimo obrigada pela ajuda de vcs!!

Eu encontrei um sistema de notícias em asp, super simples, e adaptei para o mural de recados. Eu já tinha a página de exibir e a página de adicionar. Criei uma página que mostra os registros, uma página de editar e uma página para excluir. Além disso, gerei um arquivo que inclui o endereço do BD nas minha páginas. Segue:

 

Arquivo connrecado.asp (para incluir):

 

CODE

<%

' FileName="Connection_ado_conn_string.htm"

' Type="ADO"

' DesigntimeType="ADO"

' HTTP="false"

' Catalog=""

' Schema=""

Dim MM_connrecado_STRING

MM_connrecado_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\vhosts\comdeus.org.br\httpdocs\muralrecados\Dados\BDMuralRecados.mdb"

%>

 

Arquivo lista.asp (que vai mostrar os registros, com link para editar e excluir):

 

CODE

<%@LANGUAGE="VBSCRIPT"%>

<!--#include file="../Connections/connrecado.asp" -->

<%

Dim RSrecados

Dim RSrecados_numRows

 

Set RSrecados = Server.CreateObject("ADODB.Recordset")

RSrecados.ActiveConnection = MM_connrecado_STRING

RSrecados.Source = "SELECT De, Email, IdRecado, Mensagem, Para FROM MuralRecados ORDER BY DataInclusao DESC"

RSrecados.CursorType = 0

RSrecados.CursorLocation = 2

RSrecados.LockType = 1

RSrecados.Open()

 

RSrecados_numRows = 0

%>

<%

Dim Repeat1__numRows

Dim Repeat1__index

 

Repeat1__numRows = 15

Repeat1__index = 0

RSrecados_numRows = RSrecados_numRows + Repeat1__numRows

%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">

<head>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />

<title>Untitled Document</title>

<style type="text/css">

<!--

.style3 {font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold; }

-->

</style>

</head>

 

<body>

<table width="720" border="0" cellspacing="3" cellpadding="0">

<tr>

<td width="134"><div align="center" class="style3">De:</div></td>

<td width="130"><div align="center" class="style3">E-mail</div></td>

<td width="128"><div align="center" class="style3">Para:</div></td>

<td><div align="center" class="style3">Mensagem</div></td>

<td>ID</td>

<td colspan="2"><div align="center" class="style3">Ação</div></td>

</tr>

<%

While ((Repeat1__numRows <> 0) AND (NOT RSrecados.EOF))

%>

<tr>

<td><%=(RSrecados.Fields.Item("De").Value)%></td>

<td><%=(RSrecados.Fields.Item("Email").Value)%></td>

<td><%=(RSrecados.Fields.Item("Para").Value)%></td>

<td width="207"><%=(RSrecados.Fields.Item("Mensagem").Value)%></td>

<td width="53"><%=(RSrecados.Fields.Item("IdRecado").Value)%></td>

<td width="24"><div align="center"><a href="altera.asp?IdRecado=<%=(RSrecados.Fields.Item("IdRecado").Value)%>"><img src="Imagens/bull1340.gif" width="24" height="24" border="0" /></a></div></td>

<td width="20"><div align="center"><a href="excluir.asp?IdRecado=<%=(RSrecados.Fields.Item("IdRecado").Value)%>"><img src="Imagens/excluir.gif" width="20" height="20" border="0" /></a></div></td>

</tr>

<tr>

<td colspan="7" background="Imagens/linhahorizontal1.jpg"> </td>

</tr>

<%

Repeat1__index=Repeat1__index+1

Repeat1__numRows=Repeat1__numRows-1

RSrecados.MoveNext()

Wend

%>

</table>

<p><a href="../administrador.asp">Voltar para Administrador</a></p>

<p><a href="http://www.comdeus.org.br">Home </a></p>

</body>

</html>

<%

RSrecados.Close()

Set RSrecados = Nothing

%>

 

Arquivo excluir.asp:

 

CODE

<%@LANGUAGE="VBSCRIPT"%>

<!--#include file="../Connections/connrecado.asp" -->

<%

' *** Edit Operations: declare variables

 

Dim MM_editAction

Dim MM_abortEdit

Dim MM_editQuery

Dim MM_editCmd

 

Dim MM_editConnection

Dim MM_editTable

Dim MM_editRedirectUrl

Dim MM_editColumn

Dim MM_recordId

 

Dim MM_fieldsStr

Dim MM_columnsStr

Dim MM_fields

Dim MM_columns

Dim MM_typeArray

Dim MM_formVal

Dim MM_delim

Dim MM_altVal

Dim MM_emptyVal

Dim MM_i

 

MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))

If (Request.QueryString <> "") Then

MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)

End If

 

' boolean to abort record edit

MM_abortEdit = false

 

' query string to execute

MM_editQuery = ""

%>

<%

' *** Delete Record: declare variables

 

if (CStr(Request("MM_delete")) = "form1" And CStr(Request("MM_recordId")) <> "") Then

 

MM_editConnection = MM_connrecado_STRING

MM_editTable = "MuralRecados"

MM_editColumn = "IdRecado"

MM_recordId = "" + Request.Form("MM_recordId") + ""

MM_editRedirectUrl = "lista.asp"

 

' append the query string to the redirect URL

If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then

If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then

MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString

Else

MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString

End If

End If

 

End If

%>

<%

' *** Delete Record: construct a sql delete statement and execute it

 

If (CStr(Request("MM_delete")) <> "" And CStr(Request("MM_recordId")) <> "") Then

 

' create the sql delete statement

MM_editQuery = "delete from " & MM_editTable & " where " & MM_editColumn & " = " & MM_recordId

 

If (Not MM_abortEdit) Then

' execute the delete

Set MM_editCmd = Server.CreateObject("ADODB.Command")

MM_editCmd.ActiveConnection = MM_editConnection

MM_editCmd.CommandText = MM_editQuery

MM_editCmd.Execute

MM_editCmd.ActiveConnection.Close

 

If (MM_editRedirectUrl <> "") Then

Response.Redirect(MM_editRedirectUrl)

End If

End If

 

End If

%>

<%

Dim RSaltera__MMColParam

RSaltera__MMColParam = "1"

If (Request.QueryString("IdRecado") <> "") Then

RSaltera__MMColParam = Request.QueryString("IdRecado")

End If

%>

<%

Dim RSaltera

Dim RSaltera_numRows

 

Set RSaltera = Server.CreateObject("ADODB.Recordset")

RSaltera.ActiveConnection = MM_connrecado_STRING

RSaltera.Source = "SELECT * FROM MuralRecados WHERE IdRecado = " + Replace(RSaltera__MMColParam, "'", "''") + ""

RSaltera.CursorType = 0

RSaltera.CursorLocation = 2

RSaltera.LockType = 1

RSaltera.Open()

 

RSaltera_numRows = 0

%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">

<head>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />

<title>Untitled Document</title>

</head>

 

<body>

<p>Cadastro</p>

<form ACTION="<%=MM_editAction%>" METHOD="POST" id="form1" name="form1">

<table width="592" border="0" cellspacing="3" cellpadding="0">

<tr>

<td width="85">De:</td>

<td width="507"><label>

<input name="De" type="text" id="De" value="<%=(RSaltera.Fields.Item("De").Value)%>" />

</label></td>

</tr>

<tr>

<td>E-mail:</td>

<td><label>

<input name="Email" type="text" id="Email" value="<%=(RSaltera.Fields.Item("Email").Value)%>" />

</label></td>

</tr>

<tr>

<td>Para:</td>

<td><label>

<input name="Para" type="text" id="Para" value="<%=(RSaltera.Fields.Item("Para").Value)%>" />

</label></td>

</tr>

<tr>

<td>Mensagem:</td>

<td><label>

<textarea name="Mensagem" cols="50" rows="8" id="Mensagem"><%=(RSaltera.Fields.Item("Mensagem").Value)%></textarea>

</label></td>

</tr>

<tr>

<td colspan="2"><label>

<input type="submit" name="Submit" value="Excluir" />

</label></td>

</tr>

</table>

 

 

 

 

 

 

<input type="hidden" name="MM_delete" value="form1">

<input type="hidden" name="MM_recordId" value="<%= RSaltera.Fields.Item("IdRecado").Value %>">

</form>

</body>

</html>

<%

RSaltera.Close()

Set RSaltera = Nothing

%>

 

Esses arquivos foram adaptados por mim, mas o original dele é de Marcio Volpi. Tenho o sistema completo, que é de notícias. Ele nao tem login nem nada de mais... mas é mto fácil de manusear.

 

Os a seguir são de Ricardo das Never Carlos e adaptei a interface deles para o meu site. Porém, coloco aqui o código limpo, sem a parte visual do meu site, apenas o mural, sem enfeites, sem nada:

 

Arquivo Default.asp (onde serão exibidos os recados):

 

CODE

<%@Language="VBScript"%>

<%Option Explicit%>

<%Response.Expires = 0%>

 

<%

'Ricardo das Neves Carlos

'ricardo@promedia.com.br

'Mural de recados

'31/10/2003

%>

 

<%

Dim objConn

Dim varConn

Dim varSql

Dim rsMuralRecados

Dim i

 

'Cria a conexão com a base de dados

Set objConn = Server.CreateObject("ADODB.Connection")

varConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Dados\BDMuralRecados.mdb") & ";Persist Security Info=False;Jet OLEDB:Database Password="

objConn.Open varConn

 

'Seleciona todos os registros ordenando pelo ID

varSql = "SELECT * "

varSql = varSql & "FROM MuralRecados "

varSql = varSql & "ORDER BY IdRecado DESC "

 

'Seta a variável e define as propriedas

Set rsMuralRecados = Server.CreateObject("ADODB.Recordset")

rsMuralRecados.CursorType = 0

rsMuralRecados.CursorLocation = 3

rsMuralRecados.LockType = 3

rsMuralRecados.PageSize = 7

rsMuralRecados.CacheSize = 7

rsMuralRecados.Open varSql, objConn

 

'Verifica qual página deve ser exibida

If Request.QueryString("Pagina") <> "" Then

rsMuralRecados.AbsolutePage = Request.QueryString("Pagina")

Else

If Not rsMuralRecados.EOF Then

rsMuralRecados.AbsolutePage = 1

End If

End If

%>

 

<html>

<head>

<title>

Pro Media - Módulo Mural Recados

</title>

<style type="text/css">

<!--

a:active{

text-decoration: none;

color: #333333;

}

a:hover{

text-decoration: none;

color: #000000;

}

a:link{

text-decoration: none;

color: #333333;

}

a:visited{

text-decoration: none;

color: #333333;

}

.Texto1{

font-family: Verdana;

font-size: 10px;

font-weight: none;

color: #000000;

text-decoration: none;

}

.Texto2{

font-family: Verdana;

font-size: 10px;

font-weight: bold;

color: #000000;

text-decoration: none;

}

.Borda1{

border: 1px solid #999999;

}

.Form1{

border: 1px solid #999999;

font-family: Verdana;

font-size: 10px;

color: #000000;

text-decoration: none;

background-color: #F4F4F4;

}

-->

</style>

<script language="JavaScript">

<!--

function Paginacao(varPagina){

window.location = ("Default.asp?Pagina=" + varPagina);

}

 

function NovoRecado(){

window.open ("NovoRecado.asp", "NovoRecado", "width = 430, height = 225, top = 25, left = 25");

}

-->

</script>

</head>

<body>

<table cellpadding="0" cellspacing="0" border="0" width="100%" height="100%" align="center">

<tr>

<td align="center" valign="middle">

<table cellpadding="0" cellspacing="0" border="0" width="500" align="center">

<%For i = 1 to rsMuralRecados.PagesiZe%>

<%If rsMuralRecados.EOF = False Then%>

<tr>

<td>

<table border="0" width="100%">

<tr>

<td>

<font class="Texto2">

Data/Hora Envio:

</font>

<font class="Texto1">

<%=rsMuralRecados.Fields("DataInclusao") & " - " & rsMuralRecados.Fields("HoraInclusao")%>

</font>

</td>

</tr>

<tr>

<td>

<font class="Texto2">

De:

</font>

<font class="Texto1">

<%=rsMuralRecados.Fields("De")%>

</font>

</td>

</tr>

<tr>

<td>

<font class="Texto2">

Para:

</font>

<font class="Texto1">

<%=rsMuralRecados.Fields("Para")%>

</font>

</td>

</tr>

<tr>

<td>

<font class="Texto2">

Mensagem:

</font>

<font class="Texto1">

<%=rsMuralRecados.Fields("Mensagem")%>

</font>

</td>

</tr>

<%rsMuralRecados.MoveNext%>

<%If i <> rsMuralRecados.PageSize and NOT rsMuralRecados.EOF Then%>

<tr>

<td height="5">

</td>

</tr>

<tr>

<td height="1" bgcolor="#CCCCCC">

</td>

</tr>

<tr>

<td height="5">

</td>

</tr>

<%End If%>

</table>

</td>

</tr>

<%End If%>

<%Next%>

<tr>

<td height="20">

</td>

</tr>

<tr>

<td height="20">

<table cellpadding="0" cellspacing="0" border="0" width="100%" height="100%" align="center">

<tr>

<td>

<input type="button" name="btnNovoRecado" value="Postar Novo Recado" class="Form1" onClick="java script:NovoRecado();">

</td>

<td align="right">

<%If Request.QueryString("Pagina") = 1 or Request.QueryString("Pagina") = "" Then%>

<input type="button" name="btnAnterior" value="Anterior" class="Form1" onClick="java script:Paginacao(<%=Request.QueryString("Pagina") - 1%>);" disabled>

<%Else%>

<input type="button" name="btnAnterior" value="Anterior" class="Form1" onClick="java script:Paginacao(<%=Request.QueryString("Pagina") - 1%>);">

<%End If%>

<%If rsMuralRecados.EOF Then%>

<input type="button" name="btnProximo" value="Próximo" class="Form1" onClick="java script:Paginacao(<%=Request.QueryString("Pagina") + 1%>);" disabled>

<%Else%>

<%If Request.QueryString("Pagina") = "" Then%>

<input type="button" name="btnProximo" value="Próximo" class="Form1" onClick="java script:Paginacao(<%=Request.QueryString("Pagina") + 2%>);">

<%Else%>

<input type="button" name="btnProximo" value="Próximo" class="Form1" onClick="java script:Paginacao(<%=Request.QueryString("Pagina") + 1%>);">

<%End If%>

<%End If%>

</td>

</tr>

</table>

</td>

</tr>

</table>

</td>

</tr>

</table>

 

<script type="text/javascript">

var woopra_id = '2049793077';

</script>

<script src="http://static.woopra.com/js/woopra.js"></script>

</body>

</html>

 

<%

rsMuralRecados.Close

Set rsMuralRecados = Nothing

objConn.Close

Set objConn = Nothing

%>

 

Arquivo NovoRecado.asp (é uma janelinha, onde aparece os emoticons e as caixas, para add nova msg, na hora):

 

CODE

<%@Language="VBScript"%>

<%Option Explicit%>

<%Response.Expires = 0%>

 

<%

Dim i

Dim ii

Dim varCont

 

If Request.Form("txtDe") <> "" Then

Dim objConn

Dim varConn

Dim varSql

Dim rsIncluir

Dim varMensagem

Dim arrayCarinhas(14)

 

'Cria a conexão com a base de dados

Set objConn = Server.CreateObject("ADODB.Connection")

varConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Dados\BDMuralRecados.mdb") & ";Persist Security Info=False;Jet OLEDB:Database Password="

objConn.Open varConn

 

arrayCarinhas(0) = "(1)"

arrayCarinhas(1) = "(2)"

arrayCarinhas(2) = "(3)"

arrayCarinhas(3) = "(4)"

arrayCarinhas(4) = "(5)"

arrayCarinhas(5) = "(6)"

arrayCarinhas(6) = "(7)"

arrayCarinhas(7) = "(8)"

arrayCarinhas(8) = "(9)"

arrayCarinhas(9) = "(10)"

arrayCarinhas(10) = "(11)"

arrayCarinhas(11) = "(12)"

arrayCarinhas(12) = "(13)"

arrayCarinhas(13) = "(14)"

arrayCarinhas(14) = "(15)"

 

varSql = "SELECT * "

varSql = varSql & "FROM MuralRecados "

 

Set rsIncluir = Server.CreateObject("ADODB.Recordset")

rsIncluir.CursorType = 0

rsIncluir.CursorLocation = 2

rsIncluir.LockType = 3

rsIncluir.Open varSql, objConn

 

 

rsIncluir.AddNew

rsIncluir.Fields("DataInclusao") = Date()

rsIncluir.Fields("HoraInclusao") = Time()

rsIncluir.Fields("De") = Request.Form("txtDe")

rsIncluir.Fields("Email") = Request.Form("txtEmail")

rsIncluir.Fields("Para") = Request.Form("txtPara")

 

varMensagem = Request.Form("areaMensagem")

For i = 0 to 14

varMensagem = Replace(varMensagem, arrayCarinhas(i), "<img src=Imagens/Carinhas/" & i+1 & ".gif>")

Next

 

rsIncluir.Fields("Mensagem") = varMensagem

rsIncluir.Fields("IPConexao") = Request.ServerVariables("REMOTE_ADDR")

rsIncluir.Update

 

rsIncluir.Close

Set rsIncluir = Nothing

 

objConn.Close

Set objConn = Nothing

End If

%>

 

<html>

<head>

<title>

Pro Media - Módulo Mural Recados

</title>

<style type="text/css">

<!--

a:active{

text-decoration: none;

color: #333333;

}

a:hover{

text-decoration: none;

color: #000000;

}

a:link{

text-decoration: none;

color: #333333;

}

a:visited{

text-decoration: none;

color: #333333;

}

.Texto1{

font-family: Verdana;

font-size: 10px;

font-weight: none;

color: #000000;

text-decoration: none;

}

.Texto2{

font-family: Verdana;

font-size: 10px;

font-weight: bold;

color: #000000;

text-decoration: none;

}

.Borda1{

border: 1px solid #999999;

}

.Form1{

border: 1px solid #999999;

font-family: Verdana;

font-size: 10px;

color: #000000;

text-decoration: none;

background-color: #F4F4F4;

}

-->

</style>

<script language="JavaScript">

<!--

location.href.MuralRecados = ("Default.asp");

<%If Request.Form("txtDe") <> "" Then%>

opener.location.reload();

window.close();

<%End If%>

 

function Incluir(varForm){

if (varForm.txtDe.value == ""){

window.alert ("O campo De é de preenchimento obrigatório");

varForm.txtDe.focus();

return false;

}

if (varForm.txtEmail.value == ""){

window.alert ("O campo E-mail é de preenchimento obrigatório");

varForm.txtEmail.focus();

return false;

}

else{

if (varForm.txtEmail.value.search("@") == -1 || varForm.txtEmail.value.search("[.*]") == -1){

window.alert ("O e-mail não é válido");

varForm.txtEmail.focus();

return false;

}

}

if (varForm.txtPara.value == ""){

window.alert ("O campo Para é de preenchimento obrigatório");

varForm.txtPara.focus();

return false;

}

if (varForm.areaMensagem.value == ""){

window.alert ("O campo Mensagem é de preenchimento obrigatório");

varForm.areaMensagem.focus();

return false;

}

varForm.submit();

}

 

function Carinhas(varForm, varCarinha){

var arrayCarinhas = new Array("(1)", "(2)", "(3)", "(4)", "(5)", "(6)", "(7)", "(8)", "(9)", "(10)", "(11)", "(12)", "(13)", "(14)", "(15)")

 

varCarinha = varCarinha - 1;

 

varForm.areaMensagem.value = varForm.areaMensagem.value + " " + arrayCarinhas[varCarinha] + " ";

 

}

-->

</script>

</head>

<body onLoad="java script:document.formIncluir.txtDe.focus();">

<table cellpadding="0" cellspacing="0" border="0" width="100%" height="100%" align="center">

<tr>

<td>

<table border="0" align="center">

<form name="formIncluir" method="post" action="NovoRecado.asp">

<tr>

<td>

<font class="Texto2">

De:

</font>

</td>

<td>

<input type="text" name="txtDe" maxlength="35" size="35" class="Form1">

</td>

</tr>

<tr>

<td>

<font class="Texto2">

E-mail:

</font>

</td>

<td>

<input type="text" name="txtEmail" maxlength="35" size="35" class="Form1">

</td>

</tr>

<tr>

<td>

<font class="Texto2">

Para:

</font>

</td>

<td>

<input type="text" name="txtPara" maxlength="35" size="35" class="Form1">

</td>

</tr>

<tr>

<td>

<font class="Texto2">

Mensagem:

<br><br><br><br><br><br>

</font>

</td>

<td>

<textarea name="areaMensagem" class="Form1" cols="34" rows="5"></textarea>

</td>

<td width="5">

</td>

<td>

<table cellpadding="0" cellspacing="0" border="0">

<%For i = 1 to 3%>

<tr>

<%For ii = 1 to 5%>

<%varCont = varCont + 1%>

<td><a href="#"><img src="Imagens/Carinhas/<%=varCont%>.gif" border="0" onClick="java script:Carinhas(formIncluir, <%=varCont%>);"></a></td>

<%If ii <> 5 Then%>

<td width="5">

</td>

<%End If%>

<%Next%>

</tr>

<%If i <> 3 Then%>

<tr>

<td height="5">

</td>

</tr>

<%End If%>

<%Next%>

</table>

</td>

</tr>

<tr>

<td>

</td>

<td>

<input type="button" name="btnColar" value="Colar" class="Form1" onClick="java script:Incluir(formIncluir);">

</td>

</tr>

</form>

</table>

</td>

</tr>

</table>

 

<script type="text/javascript">

var woopra_id = '2049793077';

</script>

<script src="http://static.woopra.com/js/woopra.js"></script>

</body>

</html>

 

Me desculpem se fico muito extenso, mas acho q era meu dever dividir isso com vocês!

 

 

Obrigada mais uma vez, a todos!

[hargon 64]

Que bom que resolveu.

 

Obrigado pela contribuição.