Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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%>Carregando comentários...