Ir para conteúdo

Arquivado

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

PRISCILA STOCHINI

Erro com EOF....

Recommended Posts

de onde estao vindo estes dados?voce tem qeu testar se ja estao preenchidas aquelas variaveis pois é isso que ta dando erro

Compartilhar este post


Link para o post
Compartilhar em outros sites

Meu formulario está aki...Será que está tudo certo??? <form name="sim" action="envia_suporte.asp" method="post"> <table border="1" cellspacing="0" cellpadding="6" width="781" align="center" bordercolor="#999999"> <tr> <td colspan="4" bgcolor="#C5C5C5"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-weight: bold">Suporte por Internet Multiplus - SIM </span></div></td> </tr> <tr> <td colspan="4"><p class="style56" style="font-family: Arial, Helvetica, sans-serif; font-size: 12px">Os campos marcados com <img src="obrigatorio.gif" width="18" height="18" align="absmiddle"/> são obrigatórios. <label> <input name="data" type="hidden" value="<%&Date&%>" id="data"> </label> </p></td> </tr> <tr> <td width="103" bgcolor="#C5C5C5" class="rotulo_formulario"><div align="right" class="style7" style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Código SIM </div></td> <td width="251"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold"> <input name="codigo" type="text" class="formulario" id="codigo" size="20" maxlength="8" /> <img src="obrigatorio.gif" width="18" height="18" align="absmiddle"/></span></td> <td width="74" bgcolor="#C5C5C5"><div align="right" class="style7" style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Email</div></td> <td width="295"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold"> <input name="email" type="text" class="formulario" id="email" size="40" /> <img src="obrigatorio.gif" width="18" height="18" align="absmiddle"/></span></td> </tr> <tr> <td bgcolor="#C5C5C5" class="rotulo_formulario"><div align="right" style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Software</div></td> <td colspan="3"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold"> <select size="1" name="Software" id="Software"> <option selected="selected">Cype Concreto</option> <option>Cype Metálicas</option> <option>M2*Arq</option> <option>Arquimedes</option> <option>PRO-Elétrica</option> <option>PRO-Hidráulica</option> <option>PRO-Ar Condicionado</option> <option>EPLANT</option> <option>TecnoMETAL</option> <option>TecnoSTEEL</option> <option>TecnoSOLID</option> <option>ArmaFACIL</option> <option>ArmaBLOCOS</option> <option>Pré - MOLDAR</option> <option>Pro - ALVENARIA</option> </select> <img src="obrigatorio.gif" width="18" height="18" align="absmiddle"/></span></td> </tr> <tr> <td bgcolor="#C5C5C5" class="rotulo_formulario"><div align="right" class="style7" style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Versão</div></td> <td><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold"> <input name="versao" type="text" class="formulario" id="versao" size="10" maxlength="10" /> <span class="style56" style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold"><img src="obrigatorio.gif" width="18" height="18" align="absmiddle"/></span><br> </span><span style="font-family: Arial, Helvetica, sans-serif; font-size: 10px">(Ex.: CYPECAD <span style="font-weight: bold; color: #0000FF">2005.1</span>.a, PRO-Elétrica <span style="font-weight: bold; color: #0000FF">4.0</span> B)</span></td> <td bgcolor="#C5C5C5"><div align="right" class="style7" style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Processador</div></td> <td><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold"> <input name="proc" type="text" class="formulario" id="proc" size="20" maxlength="50" /> <img src="obrigatorio.gif" width="18" height="18" align="absmiddle"/></span></td> </tr> <tr> <td bgcolor="#C5C5C5" class="rotulo_formulario"><div align="right" class="style7" style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Release (letra)</div></td> <td><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold"> <input name="release" type="text" class="formulario" id="release" size="15" /> <span class="style56" style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold"><img src="obrigatorio.gif" width="18" height="18" align="absmiddle"/></span><br> </span><span style="font-family: Arial, Helvetica, sans-serif; font-size: 10px">(Ex.: CYPECAD 2005.1.<span style="font-weight: bold; color: #0000FF">a</span>, PRO-Elétrica 4.0 <span style="font-weight: bold; color: #0000FF">b</span>)</span></td> <td bgcolor="#C5C5C5"><div align="right" class="style7" style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold"> Windows </div></td> <td><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold"> <select name="win" id="win"> <option value="95" selected="selected">95</option> <option value="98">98</option> <option value="2000">2000</option> <option value="XP">XP</option> <option value="ME">ME</option> </select> <img src="obrigatorio.gif" width="18" height="18" align="absmiddle"/></span></td> </tr> <tr> <td bgcolor="#C5C5C5" class="rotulo_formulario"><div align="right" class="style7" style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Versão AutoCAD</div></td> <td colspan="3"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold"> <select name="versaoauto" size="1" class="formulario" id="versaoauto"> <option value="R14" selected="selected">R14</option> <option value="R2000">R2000</option> <option value="R2002">R2002</option> <option value="R2004">R2004</option> <option value="R2005">R2005</option> <option value="R2006">R2006</option> <option value="R2007">R2007</option> </select> <img src="obrigatorio.gif" width="18" height="18" align="absmiddle"/></span></td> </tr> <tr> <td bgcolor="#C5C5C5" class="rotulo_formulario"><div align="right" class="style7" style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Tipo da dúvida </div></td> <td colspan="3"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold"> <select size="1" name="tipo" id="tipo"> <option selected="selected">Instalação</option> <option>Utilização</option> <option>Senha</option> <option>Outros</option> </select> <img src="obrigatorio.gif" width="18" height="18" align="absmiddle"/></span></td> </tr> <tr> <td bgcolor="#C5C5C5" class="rotulo_formulario"><div align="right" class="style7" style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Dúvida</div></td> <td colspan="3"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold"> <label> <textarea name="duvida" cols="70" rows="3" id="duvida"></textarea> <img src="obrigatorio.gif" width="18" height="18" align="absmiddle"/></label> <input name="pendencia" type="hidden" valeu="TRUE"></span></td> </tr> <tr> <td height="38" align="right" bgcolor="#C5C5C5" class="rotulo_formulario style7"><p align="right" style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Anexar</p></td> <td colspan="3"><p align="justify" style="font-family: Arial, Helvetica, sans-serif; font-size: 12px"><span style="font-weight: bold"><span style="color: #FF0000">Atenção!</span> Instruções para anexar arquivos:</span><BR> Para enviar uma obra (arquivos CYP ou M3D), figuras (arquivos JPG e GIF) ou desenhos (arquivos DXF, DWG) anexe estes arquivos ao seu e-mail, informando no assunto o seu Código de Acesso ao SIM e envie para o endereço <A href="mailto:multitecnico@multiplus.com" class="link02" style="font-weight: bold">obras@multiplus.com</A>. Este endereço é de uso exclusivo para receber arquivos anexados. <span style="color: #FF0000">Atenção! </span>Dúvidas Técnicas somente serão respondidas através do formulário acima.<br> </p> </td> </tr> </table> <p align="center"> <input name="Enviar" type="submit" class="formulario" value="Enviar" /> <input name="Apagar" type="reset" class="formulario" id="Apagar" value="Apagar Dados" /> </p> </form>

Compartilhar este post


Link para o post
Compartilhar em outros sites

ai parece que ta certomas na outra pagina voce esta recuperando como?

Compartilhar este post


Link para o post
Compartilhar em outros sites

acho que é na página que grava no banco que ela recupera os dados....antes de gravar você verifica se a variavel está <> de "" se estiver redireciona....a logica é essa(em asp)

 

 

 

telefone= request.form("telefone") email = request.form("email") if email = "" or telefone = "" thenresponse.redirect("pagCamposNaoPrenchidoas.asp")else'executa a gravação no bancoend if

 

 

dá pra fazer via formulário usando javascript

Compartilhar este post


Link para o post
Compartilhar em outros sites

<!--#include file="conectando.asp"--><%Vdata = Request.Form("data")Vcodigo = Request.Form("codigo")Vemail = Request.Form("email")Vsoftware = Request.Form("software")Vversao = Request.Form("versao")Vproc = Request.Form("proc")Vrelease = Request.Form("release")Vversaoauto = Request.Form("versaoauto")Vwin = Request.Form("win")Vtipo = Request.Form("tipo")Vduvida = Request.Form("duvida")Vpendencia = Request.Form("pendencia")sql = "INSERT into suptec ([data], [codigo], [email], [software], [versao], [proc], [release], [win], [versaoAUTO], [tipo], [duvida], [pendencia])  values (#"&Vdata&"#,'"&Vcodigo&"','"&Vemail&"','"&Vsoftware&"', '"&Vversao&"', '"&Vproc&"','"&Vrelease&"','"&Vwin&"', '"&Vversaoauto&"','"&Vtipo&"','"&Vduvida&"', "&Vpendencia&")"Response.Write(sql)Set rs = bco.Execute(sql)Response.Write(sql)bco.CloseSet bco = NothingURL = "http://www.cype.com.br"response.redirect(URL) %>

Esse é o codigo que envia para o banco...e eu queria que tb enviasse email de confirmação ao usuario.

Compartilhar este post


Link para o post
Compartilhar em outros sites

vai por parte, primeiro seu problema é gravar no banco, não adianta enviar email de confirmação sem antes grava. Já está gravando no banco? Fez a rotina para verificar se os campos estão preenchidos? Depois de solucionada a gravação dos dados você pensa em como enviar! ok?

Compartilhar este post


Link para o post
Compartilhar em outros sites

faz o seguinte, já que você está com dificuldades...cria uma nova página no mesmo local em que está essa que não grava com o seguinte código:

 

<!--#include file="conectando.asp"--><%sql = "INSERT into suptec ([data], [codigo], [email], [software], [versao], [proc], [release], [win], [versaoAUTO], [tipo], [duvida], [pendencia])  values (#"&01/01/2006&"#,'codigo','email','software', 'versao', 'proc','release','win', 'versaoauto','tipo','duvida', 1)"Set rs = bco.Execute(sql)bco.CloseSet bco = Nothingresponse.write("aparentemente gravou....verificar na tabela")%>
o que fiz nada mais é do que fixar os valores pra ver se grava.....depois execute essa página no brwnser e veja se ocorre algum erro...se der erro coloque o problema no proximo post

 

obs: veja que coloquei o valor 1 para o campo pendencia pois você montou o sql como sendo campo numerico, se for string basta colocar as aspas "1"

Compartilhar este post


Link para o post
Compartilhar em outros sites

desculpa ai priscila, esqueci de tirar a concatenação e easpas na data, segue correto:

 

 

 

<%sql = "INSERT into suptec ([data], [codigo], [email], [software], [versao], [proc], [release], [win], [versaoAUTO], [tipo], [duvida], [pendencia])  values (#01/01/2006#,'codigo','email','software', 'versao', 'proc','release','win', 'versaoauto','tipo','duvida', 1)"Set rs = bco.Execute(sql)bco.CloseSet bco = Nothingresponse.write("aparentemente gravou....verificar na tabela")%>

 

 

se der erro novamente coloque o codigo da pagina conectando.asp para vermos se estão sendo criados os objetos recordset e connection

Compartilhar este post


Link para o post
Compartilhar em outros sites

vamos por parte....

 

verificou se na tabela do banco gravaram esses dados?

 

se gravou vamos recuperar os dados do formulário e verificar se estão vindo corretamente dessa forma

 

 

 

Vdata = Request.Form("data")Vcodigo = Request.Form("codigo")response.write(Vcodigo&"<br>" )Vemail = Request.Form("email")response.write(Vemail"&<br>" )Vsoftware = Request.Form("software")response.write(Vsoftware&"<br>" )Vversao = Request.Form("versao")response.write(Vversao&"<br>" )Vproc = Request.Form("proc")response.write(Vproc&"<br>" )Vrelease = Request.Form("release")response.write(Vrelease&"<br>" )Vversaoauto = Request.Form("versaoauto")response.write(Vversaoauto&"<br>" )Vwin = Request.Form("win")response.write(Vwin&"<br>" )Vtipo = Request.Form("tipo")response.write(Vtipo&"<br>" )Vduvida = Request.Form("duvida")response.write(Vduvida&"<br>" )Vpendencia = Request.Form("pendencia")response.write(Vpendencia&"<br>" )

bom, esse código você coloca em uma nova página asp com um nome tipo teste.asp, no formulário que envia os dados para gravar você muda o nome da página para qual deve enviar os dados(action do form) para o nome teste.asp

 

depois digite algo no formulário e veja o que vai escrever...se todos os camos foram preenchidos devem aparecer todos impressos no brownser...se algum não aparecer e pq o request.form está com nomes diferentes do que tens no formulário

 

 

 

não esqueça de verificar se gravou no banco o teste anterior

Compartilhar este post


Link para o post
Compartilhar em outros sites

trocaresponse.write(Vemail"&<br>" )porresponse.write(Vemail&"<br>" )

Compartilhar este post


Link para o post
Compartilhar em outros sites

vamos acabar com um erro de cada vez menina

Compartilhar este post


Link para o post
Compartilhar em outros sites

calma garota....uma coisa de cada vez...esquece o email por enquanto....só enviamos uma confirmação depois de realmente ela acontecer...até o momento nem está gravando no banco atraves do forumlario...vamos tentar resolver isso primeiro ok...se gravou o teste 1 e agora você vê todos os campos no teste2, basta você mudar o sql colocando as variaveis que recebem o valor do request.form...depois disso faça um teste no formulário preenchendo TODOS os campos e veja se vai gravar corretamente. Se gravar vamos tratar das excessões depois

Compartilhar este post


Link para o post
Compartilhar em outros sites

ok...vamos lá....você fez o teste com esse codigo...teste1..lembra!!??

 

<%

sql = "INSERT into suptec ([data], [codigo], , [software], [versao], [proc], [release], [win], [versaoAUTO], [tipo], [duvida], [pendencia]) values (#01/01/2006#,'codigo','email','software', 'versao', 'proc','release','win', 'versaoauto','tipo','duvida', 1)"

Set rs = bco.Execute(sql)

bco.Close

Set bco = Nothing

response.write("aparentemente gravou....verificar na tabela")

%>

 

se lembra...agora é só você ir na sua página q grava e substituir os dados que coloquei fixos pelas variaveis

 

 

sql = "INSERT into suptec ([data], [codigo], [email], [software], [versao], [proc], [release], [win], [versaoAUTO], [tipo], [duvida], [pendencia])  values (#"&Vdata&"#,'"&Vcodigo&"','"&Vemail&"','"&Vsoftware&"', '"&Vversao&"', '"&Vproc&"','"&Vrelease&"','"&Vwin&"', '"&Vversaoauto&"','"&Vtipo&"','"&Vduvida&"', '"&Vpendencia&"')"Set rs = bco.Execute(sql)bco.CloseSet bco = Nothing
apenas concatenamos as variaveis dentro do sql

 

faça isso e depois preencha todos os campos do formulario e veja se vai gravar

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

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