Ir para conteúdo

POWERED BY:

Arquivado

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

donato

Alguem sabe oq há de errado com o código?????

Por , em ASP Clássico

Recommended Posts

donato    0

donato
Postado

É o seguinte:Tenho um pagina que lista o banco de dados, essa página só impremi alguns dados como nome, tel e e-mail, para ver o restante tem que clica no nome da pessoa, ai que não funciona está imprimindo na tela erro interno de servidor 500pagina lista todos<%Response.addHeader "programa", "no-cache"Response.Cachecontrol= "Private"Response.Expires = 0%><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"><html><head><%set cm=server.createobject("adodb.connection")cm.Open "Driver={Microsoft Access Driver (*.mdb)}; dbq="&Server.mappath("cadastro.mdb")sql="select * from curriculo"set rs= cm.execute(sql)%><title>Listatodos</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body><div align="center"><strong> <font color="#FF0000" size="6"> <%if session("usuario")= "" thenresponse.Write("Você não está logado!!!")response.Endend if%> </font></strong> </div><div align="center"><font size="6"></font></div><p> </p><p align="center"><strong><font color="#0000FF" size="3">Lista de Geral de Currículos</font></strong></p><p align="center"><strong><font color="#0000FF" size="3">Para ver todos os dados do candidato clique no nome </font></strong></p><table width="100%" border="1" align="center" bordercolor="#FFFFFF"> <tr bgcolor="#0000FF"> <td width="18%"> <div align="center"><font color="#00FF00"><strong>Nome</strong></font></div></td> <td width="26%"> <div align="center"><font color="#00FF00"><strong>Endereço</strong></font></div></td> <td width="20%"> <div align="center"><font color="#00FF00"><strong>Telefone</strong></font></div></td> <td width="19%"><div align="center"><font color="#00FF00"><strong>E-mail</strong></font></div></td> </tr> <% do while not rs.eof%> <tr bgcolor="#E1E1E1"> <td><div align="center"><font color="#006600"><a href="RespConsulta.asp?cod=<%=rs("cod")%>"><%=rs("nome")%></a></font></div></td> <td><div align="center"><font color="#006600"><%=rs("endereco")%></font></div></td> <td><div align="center"><font color="#006600"><%=rs("tel")%></font></div></td> <td><div align="center"><font color="#006600"><a href="mailto:<%=rs("email")%>"><%=rs("email")%></a></font></div></td> </tr> <% rs.movenext loop%></table></body></html>página de resposta que mostraria todos os dados<%Response.addHeader "programa", "no-cache"Response.Cachecontrol= "Private"Response.Expires = 0%><%DIM categoriaatualDim cm1dim cmcategoriaatual=(Request.QueryString("cod"))set cm1=server.createobject("adodb.connection")set cm=server.createobject("ADODB.recordset")cm1.Open "Driver={Microsoft Access Driver (*.mdb)}; dbq="&Server.mappath("cadastro.mdb")cm.Open"select*from curriculo where cod1 ='" & categoriaatual & "' ", cm1%><p align="center"><strong> <font color="#FF0000" size="5"> </font></strong></p><p align="center"> <font color="#FF0000" size="4"><strong> <html><head><title>Documento sem título</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body> <p> <%do while not cm.Eof%> </p> <table width="78%" border="1" align="center" bordercolor="#FFFF00" bgcolor="#6699FF"> <tr> <td><div align="right"><strong><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif">Interesse:</font></strong></div></td> <td><%=cm.fields("interesse")%></td> </tr> <tr> <td width="22%"><div align="right"><strong><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif">Nome:</font></strong></div></td> <td width="78%"><%=cm.fields("nome")%></td> </tr> <tr> <td><div align="right"><strong><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif">Endereço:</font></strong></div></td> <td><%=cm.fields("endereco")%></td> </tr> <tr> <td><div align="right"><strong><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif">Cidade/Estado:</font></strong></div></td> <td><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td><%=cm.fields("cidade")%><strong></strong></td> </tr> </table></td> </tr> <tr> <td><div align="right"><strong><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif">Telefone:</font></strong></div></td> <td> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="7%"><%=cm.fields("ddd")%></td> <td width="66%"><%=cm.fields("tel")%></td> </tr> </table></td> </tr> <tr> <td><div align="right"><strong><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif">E-mail:</font></strong></div></td> <td><%=cm.fields("email")%></td> </tr> <tr> <td><div align="right"><strong><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif">Site:</font></strong></div></td> <td><%=cm.fields("site")%></td> </tr> <tr> <td><div align="right"><strong><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif">Formação Escolar: </font></strong></div></td> <td><%=cm.fields("formacao")%></td> </tr> <tr> <td><div align="right"><strong><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif">Informática:</font></strong></div></td> <td><%=cm.fields("informatica")%></td> </tr> <tr> <td><div align="right"><strong><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif">Idiomas:</font></strong></div></td> <td><%=cm.fields("idioma")%></td> </tr> <tr> <td><div align="right"><strong><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif">Profissão:</font></strong></div></td> <td><%=cm.fields("profissao")%></td> </tr> <tr> <td><div align="right"><strong><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif">Comentários:</font></strong></div></td> <td><%=cm.fields("comentarios")%></td> </tr> </table> <div align="center"></div> <p> <%cm.movenext loop cm1.close%></p></body></html>Se puderem me ajudar, estou atrasado com o projetoJá liguei no provedor e ele me disse que está tudo certo e habilitado por lá!!Abraçõs

Compartilhar este post

Link para o post
Compartilhar em outros sites

rOcKLoCo    0

rOcKLoCo
Postado

cara, abre seu browser vai em FErramentas> opcoes de internet> avançadas e DESABILITE a opção "Mostrar erros de HTTP amigáveis"falows

Compartilhar este post

Link para o post
Compartilhar em outros sites

donato    0

donato
Postado

cara, abre seu browser vai em FErramentas> opcoes de internet> avançadas e DESABILITE a opção "Mostrar erros de HTTP amigáveis"

 

falows

Agora ta dando esse erro:

 

Microsoft OLE DB Provider for ODBC Drivers error '80040e10'

 

[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.

 

/RespConsulta.asp, line 14

 

Já busquei no forum, mais cada caso é um caso!!

 

Esse é todo o código

<%

DIM categoriaatual

Dim cm1

dim cm

categoriaatual=(Request.QueryString("cod"))

set cm1=server.createobject("adodb.connection")

set cm=server.createobject("ADODB.recordset")

cm1.Open "Driver={Microsoft Access Driver (*.mdb)}; dbq="&Server.mappath("cadastro.mdb")

( essa é linha 14)cm.Open"select*from curriculo where cod1 ='" & categoriaatual & "' ", cm1%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

cara tem um nome de campo errado em sua instrução, verifica ai um por um e compara com os do bancooutra coisa dá um espaço entre o asteristico e o resto da intrução pra ambos os lados, pode ser só isso

Compartilhar este post

Link para o post
Compartilhar em outros sites

donato    0

donato
Postado

cara, você colocou SELECT*FROM, mude para SELECT * FROM...

Galera ta dando esse erro agora, mais nao acho o problemaMicrosoft OLE DB Provider for ODBC Drivers error '80040e07' [Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression. /RespConsulta.asp, line 14 Essa é a linha do link da página que chama a REspConsulta.asp<a href="RespConsulta.asp?cod1=<%=rs("cod")%>"><%=rs("nome")%></a>Essa é a programação da página RespConsulta.aspEu coloquei todos os campos do banco como dados de texto, menos o primeiro que é automático<%DIM categoriaatualDim cm1dim cmcategoriaatual=(Request.QueryString("cod1"))set cm1=server.createobject("adodb.connection")set cm=server.createobject("ADODB.recordset")cm1.Open "Driver={Microsoft Access Driver (*.mdb)}; dbq="&Server.mappath("cadastro.mdb")cm.Open "select * from curriculo where cod ='" & categoriaatual & "' ", cm1%>Campos do Banco de Dadosinteresse, nome, endereco, cidade, ddd tel email, site, formacao, informatica, idioma, profissao, comentarios

Compartilhar este post

Link para o post
Compartilhar em outros sites

donato    0

donato
Postado

Nessa parte aqui:

ASP [/tr][tr]... where cod1 ='" & categoriaatual ...[/tr]

se o campo cod1 for numérico tira as aspas simples pois elas são só pra texto.

Exatamente,

 

 

Valeu cara!!

 

Abraçoss

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