[Asp10.net] ..:: ERRO ::..

Wed, 27 Apr 2005 11:51:55 -0700

Fala galera, estou com uma d�vida... Estou criando um c�digo de cadastro em BD, mas est� dando um erro... O que h� de errado com esse c�digo?
 
Ele est� dando erro nessa linha:
 
If Not IsEmpty(Request.Form("submit")) AND
 
Abaixo est� uma parte do c�digo...
 
<% Else
 If Not IsEmpty(Request.Form("submit")) AND
  Trim(Request.Form("Nome")) <> "" AND
  Trim(Request.Form("Endere�o")) <> "" AND
  Trim(Request.Form("Bairro")) <> "" AND
  Trim(Request.Form("Cidade")) <> "" AND
  Trim(Request.Form("Estado")) <> "" AND
  Trim(Request.Form("CEP")) <> "" AND
  Trim(Request.Form("Telefone")) <> "" AND
  Trim(Request.Form("RG")) <> "" AND
  Trim(Request.Form("CPF")) <> "" AND
  Trim(Request.Form("E-Mail")) <> "" AND
  Trim(Request.Form("Assinatura")) <> "" Then
  
  Set Conexao = Server.CreateObject("ADODB.Connection")
  Conexao.Open "DBQ=C:\Inetpub\wwwroot\LivroASP\Revista\db\assinantes.mdb;Driver={Microsoft Access Driver(*.mdb)};"
  
  ComandoSQL = "INSERT INTO Cadastro (Nome, Endere�o, Bairro, Cidade, Estado, CEP, Telefone, RG, CPF, E-Mail, Assinatura)"
  ComandoSQL = ComandoSQL & " VALUES ("
  ComandoSQL = ComandoSQL & "'" &
   Server.HTMLEncode(Request.Form("Nome")) & "',"
  ComandoSQL = ComandoSQL & "'" &
   Server.HTMLEncode(Request.Form("Endere�o")) & "',"
  ComandoSQL = ComandoSQL & "'" &
   Server.HTMLEncode(Request.Form("Bairro")) & "',"
  ComandoSQL = ComandoSQL & "'" &
   Server.HTMLEncode(Request.Form("Cidade")) & "',"
  ComandoSQL = ComandoSQL & "'" &
   Server.HTMLEncode(Request.Form("Estado")) & "',"
  ComandoSQL = ComandoSQL & "'" &
   Server.HTMLEncode(Request.Form("CEP")) & "',"
  ComandoSQL = ComandoSQL & "'" &
   Server.HTMLEncode(Request.Form("Telefone")) & "',"
  ComandoSQL = ComandoSQL & "'" &
   Server.HTMLEncode(Request.Form("RG")) & "',"
  ComandoSQL = ComandoSQL & "'" &
   Server.HTMLEncode(Request.Form("CPF")) & "',"
  ComandoSQL = ComandoSQL & "'" &
   Server.HTMLEncode(Request.Form("E-Mail")) & "',"
  ComandoSQL = ComandoSQL & "'" &
   Server.HTMLEncode(Request.Form("Assinatura")) & "')"
   
  Set bd = Conexao.Execute(ComandoSQL)
  Conexao.Close
  Set bd = Nothing
  Set Conexao = Nothing
%>
 
Obrigado, abra�os...
 
Rodrigo

:: http://www.asp10.net
==================================================
:: Solu��es simples para problemas complexos
:: Sistemas de Links, Not�cias, Faq, Loja,
:: Estat�sticas, Artigos, Mural e muito mais.
==================================================
:: Para entrar, sair ou ver o hist�rico da lista
:: Asp10.net visite http://www.asp10.net
==================================================

cancelar assinatura - p�gina do grupo

Responder a