Ir para conteúdo

POWERED BY:

Arquivado

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

plaquimax

erro no código?

Por , em ASP Clássico

Recommended Posts

plaquimax    0

plaquimax
Postado

Bom pessoal.....gostaria que vcs me falassem qual o erro das páginas seguintes...pois mesmo com o banco conectado, elas não aparecem on-line.Dá erro e elas não são exibidas.....e eu não acho os errospágina de busca:<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <!--#include file="Connections/busca.asp" --><%Dim Recordset1__MMColParamRecordset1__MMColParam = "1"If (Request.QueryString("NomeDaEmpresa") <> "") Then Recordset1__MMColParam = Request.QueryString("NomeDaEmpresa")End If%><%Dim Recordset1Dim Recordset1_numRowsSet Recordset1 = Server.CreateObject("ADODB.Recordset")Recordset1.ActiveConnection = MM_busca_STRINGRecordset1.Source = "SELECT * FROM Clientes WHERE NomeDaEmpresa = '" + Replace(Recordset1__MMColParam, "'", "''") + "'"Recordset1.CursorType = 0Recordset1.CursorLocation = 2Recordset1.LockType = 1Recordset1.Open()Recordset1_numRows = 0%><html><head><title>Untitled Document</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body><form action="resultado.asp" method="get" name="form1"> <p> Busca: <input type="text" name="textfield"> </p> <p> <input type="submit" name="Submit" value="Submit"> </p> </form></body></html><%Recordset1.Close()Set Recordset1 = Nothing%>página de resultados:<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <!--#include file="Connections/busca.asp" --><%Dim Recordset1__MMColParamRecordset1__MMColParam = "1"If (Request.QueryString("NomeDaEmpresa") <> "") Then Recordset1__MMColParam = Request.QueryString("NomeDaEmpresa")End If%><%Dim Recordset1Dim Recordset1_numRowsSet Recordset1 = Server.CreateObject("ADODB.Recordset")Recordset1.ActiveConnection = MM_busca_STRINGRecordset1.Source = "SELECT * FROM Clientes WHERE NomeDaEmpresa = '" + Replace(Recordset1__MMColParam, "'", "''") + "'"Recordset1.CursorType = 0Recordset1.CursorLocation = 2Recordset1.LockType = 1Recordset1.Open()Recordset1_numRows = 0%><html><head><title>Untitled Document</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body><form name="form1" method="post" action="busca.asp"> <input name="textfield" type="text" value="<%=(Recordset1.Fields.Item("NºDoTelefone").Value)%>"></form></body></html><%Recordset1.Close()Set Recordset1 = Nothing%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

brunofilhorj    0

brunofilhorj
Postado

Cara,você tem que substituir no name de cada >> input type="text" << pelo nome que você está chamando no request. E não é request.querystring, é .form("nome_do_campo"). ok?tipo:<input type="text" name="nome_da_empresa">request.form("nome_da_empresa")Entendeu?...

Compartilhar este post

Link para o post
Compartilhar em outros sites

plaquimax    0

plaquimax
Postado

humm..então os códigos ficam assim?busca:<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <!--#include file="Connections/busca.asp" --><%Dim Recordset1__MMColParamRecordset1__MMColParam = "1"If (Request.form("NomeDaEmpresa") <> "") Then Recordset1__MMColParam = Request.form("NomeDaEmpresa")End If%><%Dim Recordset1Dim Recordset1_numRowsSet Recordset1 = Server.CreateObject("ADODB.Recordset")Recordset1.ActiveConnection = MM_busca_STRINGRecordset1.Source = "SELECT * FROM Clientes WHERE NomeDaEmpresa = '" + Replace(Recordset1__MMColParam, "'", "''") + "'"Recordset1.CursorType = 0Recordset1.CursorLocation = 2Recordset1.LockType = 1Recordset1.Open()Recordset1_numRows = 0%><html><head><title>Untitled Document</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body><form action="resultado.asp" method="get" name="form1"> <p> Busca: <input type="text" name="nome_da_empresa"> </p> <p> <input type="submit" name="Submit" value="Submit"> </p> </form></body></html><%Recordset1.Close()Set Recordset1 = Nothing%>Resultado:<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <!--#include file="Connections/busca.asp" --><%Dim Recordset1__MMColParamRecordset1__MMColParam = "1"If (Request.form("NomeDaEmpresa") <> "") Then Recordset1__MMColParam = Request.form("NomeDaEmpresa")End If%><%Dim Recordset1Dim Recordset1_numRowsSet Recordset1 = Server.CreateObject("ADODB.Recordset")Recordset1.ActiveConnection = MM_busca_STRINGRecordset1.Source = "SELECT * FROM Clientes WHERE NomeDaEmpresa = '" + Replace(Recordset1__MMColParam, "'", "''") + "'"Recordset1.CursorType = 0Recordset1.CursorLocation = 2Recordset1.LockType = 1Recordset1.Open()Recordset1_numRows = 0%><html><head><title>Untitled Document</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body><form name="form1" method="post" action="busca.asp"> <input name="textfield" type="text" value="<%=(Recordset1.Fields.Item("NºDoTelefone").Value)%>"></form></body></html><%Recordset1.Close()Set Recordset1 = Nothing%>mas mesmo assim...a página não está sendo exibida...aparece HTTP 500 - erro interno do servidor

Compartilhar este post

Link para o post
Compartilhar em outros sites

brunofilhorj    0

brunofilhorj
Postado

1 único detalhe:quando você dá nome aos burros, deve-se chamá-los pelo mesmo. você nomeou o formulário de "form1", quando você fizer o request deve ser assim:request.form1("nome_do_campo")se você não der nome a ele, aí sim pode chamar só de form.ok?!

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

1 único detalhe:quando você dá nome aos burros, deve-se chamá-los pelo mesmo. você nomeou o formulário de "form1", quando você fizer o request deve ser assim:request.form1("nome_do_campo")se você não der nome a ele, aí sim pode chamar só de form.ok?!

acho que não carabasta o request.form mesmoe mais ainda nem precisa do form basta o request

Compartilhar este post

Link para o post
Compartilhar em outros sites

brunofilhorj    0

brunofilhorj
Postado

você utilizando o request.form, você obriga o valor a ser passado por formulário. Se você utilizar somente request, alguém pode jogar algum código e seu script irá processar algo que pode até apagar seu banco.referenciando por completo, tanto request.form quanto request.querystring, você tem mais segurança na passangem de valores...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

você utilizando o request.form, você obriga o valor a ser passado por formulário. Se você utilizar somente request, alguém pode jogar algum código e seu script irá processar algo que pode até apagar seu banco.referenciando por completo, tanto request.form quanto request.querystring, você tem mais segurança na passangem de valores...

Mais uma vez você está equivocado...

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