10/02/2006, 06:34
|
| | | Fecha de Ingreso: enero-2006 Ubicación: Torroles (Costa der Só)
Mensajes: 1.017
Antigüedad: 19 años, 4 meses Puntos: 7 | |
Espero que esto te sirva (a grosso modo)
Código:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim cnn,sSQL,oRS
if request.Form("submit") <> "" then
set cnn = server.CreateObject("ADODB.Connection")
set oRS = server.CreateObject("ADODB.Recordset")
' Para la cadena de conexion busca en http://www.connectionstrings.com/
' O esta cadena de conexion
strConnect ="Provider=OraOLEDB.Oracle;Data Source=MyOracleDB;User Id=Username;Password=asdasd;"
' o esta
strConnect ="Driver={Microsoft ODBC for Oracle};Server=OracleServer.world;Uid=Username;Pwd=asdasd;"
on error resume next
cnn.Open strConnect
if err.number<>0 then
response.Write(err.description)
elseif cnn.State = 2 then
response.Write("No hay conexion con la base de datos. Por favor, intentelo mas tarde.")
else
on error goto 0
end if
' Formas el SQL con lo que venga en
sSQL = "SELECT * FROM tabla WHERE campo LIKE '%" & request.Form("texto") & "%'"
set oRS = cnn.execute(sSQL)
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Documento sin título</title>
</head>
<body>
<%
' Aqui va el listado, el interface te lo dejo para ti :-)
if isObject(oRs) then
do while not oRs.EOF
' Como puedes ver, esto es lo mismo que el fetch_array de PHP
response.Write(oRs("campo1")
' No se te olvide esto pues puedes provocar un bucle sin fin
oRs.movenext
loop
else
%>
<form action="" method="post" name="foirm1" id="foirm1">
<input type="text" name="texto">
<input type="submit" name="submit" value="Buscar">
</form>
<%
end if
%>
</body>
</html>
<%
if isObject(oRs) then
if oRs.State <> 0 then oRs.close()
set oRs = nothing
end if
if isObject(cnn) then
if cnn.State <> 0 then cnn.close()
set cnn = nothing
end if
%>
Un saludo
Última edición por tammander; 10/02/2006 a las 06:46 |