plaquimax 0 Denunciar post Postado Maio 9, 2003 Gostaria de saber como fazer um recordset pra conectar com um banco de dados que está no servidor....código da página de busca:<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><!--#include file="Connections/busca.asp" --><%Dim Recordset1__MMColParamRecordset1__MMColParam = "1"If (Request.QueryString("busca") <> "") Then Recordset1__MMColParam = Request.QueryString("busca")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="post" name="form1"> <input type="submit" name="Submit" value="Submit"> <input type="text" name="textfield"></form></body></html><%Recordset1.Close()Set Recordset1 = Nothing%>código da página de resposta:<%@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 NºDoTelefone 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=""> <input value="<%=((Recordset1.Fields.Item("NºDoTelefone").Value))%>" type="text" name="textfield"></form></body></html><%Recordset1.Close()Set Recordset1 = Nothing%> Compartilhar este post Link para o post Compartilhar em outros sites
sitenovo 0 Denunciar post Postado Maio 9, 2003 Seguinte, não sei ao certo, mas talvez seja melhor, verificar se a turma do ASP e PHP, tenham alguma resposta, ok??[]sRodney Compartilhar este post Link para o post Compartilhar em outros sites
