recordset com banco de dados on-line
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%>Discussão (1)
Carregando comentários...