Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

shumi

em cadastro

Por , em ASP Clássico

Recommended Posts

shumi    0

shumi
Postado

Boa Tarde,

Estou tentando terminar este cadastro e esta dando erro na hora que vai conferir se o CPF cadastrado já existe no banco de daos o meu codigo esta assim: e segue o erro abaixo...

me ajudem porfavor!!!!!

<%set Conexcao = Server.CreateObject("ADODB.Connection")Conexcao.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MaPpath("convencao.mdb")Conexcao.open%><%Dim Conexcao,sql,rs,verifica,nome,razao,fantasia,rg,cpf,cidpart,estado,sexo,telefone,celular,email,consultor,cargo,manequim,blnEnvioEmail,intRetorno,varcodnome = Request.Form("nome")razao = Request.Form("razao")fantasia = Request.Form("fantasia")rg = Request.Form("rg")cpf = Request.Form("cpf")cidpart = Request.Form("cidpart")estado = Request.Form("estado")sexo = Request.Form("sexo")telefone = Request.Form("telefone")celular = Request.Form("celular")email = Request.Form("email")consultor = Request.Form("consultor")cargo = Request.Form("cargo")manequim = Request.Form("manequim")%><%Response.Expires = 0%><%RS = Conexcao.execute("SELECT cpf FROM convencao WHERE cpf = '" & cpf & "'")if RS.EOF thensSQL = "INSERT INTO convencao(nome,razao,fantasia,rg,cpf,cidpart,estado,sexo,telefone,celular,email,consultor,cargo,manequim) VALUES ('"& nome &"','"& razao &"','"& fantasia &"','"& rg &"','"& cpf &"','"& cidpart &"','"& estado &"','"& sexo &"','"& telefone &"','"& celular &"','"& email &"','"& consultor &"','"& cargo &"','"& manequim &"')"elsedocument.write="CPF Já cadastrado!"end ifSet RS=Conexcao.Execute(sSQL,intRetorno)set RS=nothingConexcao.closeSet Conexcao=nothing	If intRetorno > 0 Then		On Error Resume Next					Set objCDO = Server.CreateObject("CDONTS.NewMail")			objCDO.To = "rodrigo@lavyflowers.com.br"			objCDO.Cc= "rodrigo2@lavyflowers.com.br"			objCDO.From = Nome & "<" & email & ">"			objCDO.Subject = "Confirmação de presença"			sMsg = sMsg & "Nome: " & nome			sMsg = sMsg & "<br>Razao Social: " & razao			sMsg = sMsg & "<br>Nome Fantasia: " & fantasia			sMsg = sMsg & "<br>RG: " & rg			 			sMsg = sMsg & "<br>CPF " & cpf			sMsg = sMsg & "<br>Sexo: " & sexo			sMsg = sMsg & "<br>Cidade de Partida: " & cidpart			sMsg = sMsg & "<br>Estado: " & estado			sMsg = sMsg & "<br>Telefone: " & telefone			sMsg = sMsg & "<br>Celular: " & celular			sMsg = sMsg & "<br>Cargo: " & cargo			sMsg = sMsg & "<br>Consultor: " & consultor			sMsg = sMsg & "<br>e-mail: " & email			sMsg = sMsg & "<br>Usuario que cadastrou: " & varcod			objCDO.Body = sMsg			objCDO.BodyFormat=0			objCDO.MailFormat=0			objCDO.Send		Set objCDO = Nothing				Set objCDO2 = Server.CreateObject("CDONTS.NewMail")			objCDO2.To = request.form("email")			'objCDO2.Cco= request.form("email")			objCDO2.From = "Newstyle <rodrigo@lavyflowers.com.br>"			objCDO2.Subject = "Confirmação de presença convenção TIM"			sMsg2 = sMsg2 & "Confirme os dados abaixo"			sMsg2 = sMsg2 & "<br>Nome: " & nome			sMsg2 = sMsg2 & "<br>Razao Social: " & razao			sMsg2 = sMsg2 & "<br>Nome Fantasia: " & fantasia			sMsg2 = sMsg2 & "<br>RG: " & rg			 			sMsg2 = sMsg2 & "<br>CPF " & cpf			sMsg2 = sMsg2 & "<br>Sexo: " & sexo			sMsg2 = sMsg2 & "<br>Cidade de Partida: " & cidpart			sMsg2 = sMsg2 & "<br>Estado: " & estado			sMsg2 = sMsg2 & "<br>Telefone: " & telefone			sMsg2 = sMsg2 & "<br>Celular: " & celular			sMsg2 = sMsg2 & "<br>Cargo: " & cargo			sMsg2 = sMsg2 & "<br>Consultor: " & consultor			sMsg2 = sMsg2 & "<br>e-mail: " & email			sMsg2 = sMsg2 & "<br>Qualquer duvida ou alteração ligue para XXXXX-XXXXX"			objCDO2.Body = sMsg2			objCDO2.BodyFormat=0			objCDO2.MailFormat=0			objCDO2.Send		Set objCDO2 = Nothing				If err.number = "0" Then			blnEnvioEmail = True		End If		On Error Goto 0	End If%><html><head><title>Contamos com sua presença!!!!</title></head><body bgcolor="#9f0203"  link="#9f0203" alink="#9f0203" ulink="#9f0203" blink="#9f0203"><center><table width="75%" border="0">  <tr> 	<td><div align="center"><img src=logo-TIM-2005.gif width="300" height="119"></div></td>  </tr></table></center><center>  <table width="75%" border="0">	<tr>	<td><div align="center">		  <p> </p>		  <p> </p>		  <p><font color="#FFFFFF" size="6">Muito Obrigado por se cadastrar!</font></p>		<p> </p>		<p> </p>		<p><a href="cadastro.asp"><img src=voltar.gif width="178" height="48"></a></p>	  </div></td>  </tr></table></center><p> </p></body></html>

e esta dando o erro:

 

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A01B6)

O objeto não dá suporte para a propriedade ou método: 'EOF'

/cad.asp, line 35

 

 

 

Obrigado!!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Cara, não precisa postar mais de uma vez, seu outro tópico já está sendo acompanhado.

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito