Conexión a bases de datos con ASP, ADO y procedimientos almacenados en SQL Server
Enviado por Karim Boufaghes Gamino
< %Response.ContentType = "text/vnd.wap.wml"%>
<?xml version="1.0" ?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<head>
<meta forua="true" http-equiv="Cache-Control" content="no-cache" />
</head>
<card id="card001" title="CLIENTE <%Response.Write Request.QueryString("idCliente")%>">
<%
' ********************************************
' VerCliente.Asp
'
' Objetivo: Mostrar datos de un cliente utilizando procedimientos
' almacenados en Microsoft SQL Server
'
' Parametros:
' idCliente = [Cadena]. Identificador unico del cliente a visualizar
'
'
************************************
Dim Codigo_Cliente
Dim gConnectionString
On Error Resume Next
' Creación y establecimiento de la Conexión a la Base De Datos
Set gConnection = Server.CreateObject("ADODB.Connection")
gConnectionString = "DSN=Cliente;UID=User_Pruebas;PWD=User_Pruebas;"
gConnection.Open Session("gConnectionString")
' Crea los objetos RecordSet y Command
Set RS1 = Server.CreateObject("ADODB.Recordset")
Set Cm1 = Server.CreateObject("ADODB.Command")
Cm1.ActiveConnection = gConnection
Cm1.CommandText = "sp_VerCliente"
' Ejecutamos el StoredProcedure
Codigo_Cliente = Request.QueryString("idCliente")
Set RS1 = Cm1.Execute(, Array(Codigo_Cliente))
' Comprobamos si se ha producido algún error. Si no es el caso, mostramos los resultados.
If Err <> 0 Then
Response.Write "<p>Ocurrio un error. Codigo: [" & Err.Number & "] Descripcion: [" & Err.Description & "]. Por favor, pongase en contacto con el administrador.</p>"
Err.Clear
Else
If Not RS1.EOF Then
Response.Write "<p>"
Response.Write "Codigo: " & RS1("Cliente_id")
Response.Write "Nombre: " & RS1("Cliente_Nombre")
.
.
.
Response.Write "</p>"
Else
Response.Write "<p>No se encontro ningún cliente con Codigo: " &
Request.QueryString("idCliente") & "</p>"
End If
End If
Set Cm1 = Nothing
Set RS1 = Nothing
Set gConnection = Nothing
%>
<do type="prev" label="Atras"><prev/></do>
</card>
</wml>
