conexion a base de datos

[rezocrew]

navegando por ahi me encontre con esta conexion a base de datos hecha al parecer en asp mi problema es que yo no se mucho de coexiones a base de datos y no entiendo mucho el codigo entonces quisiera pedir a algunos de uds si es ke me lo puede explicar por favor

Aqui les dejo el codigo:



<%
'===========>ABRE LA CONECCION ODBC =================
'
' parametros Coneccion a la Base de datos
'
dsn_sys = "shrekhp530"
dsn_use = "sa"
dsn_pas = "dtr.13"
dsn_tbl = "gen34s2k7"
my_tpcn = "2"

Set Sys_conn = Server.CreateObject("ADODB.Connection")

select case my_tpcn

case "0" : ' String de Coneccion ODBC ( Oracle -- Sql )

Sys_conn.Open "DSN="& dsn_sys &";", dsn_use , dsn_pas

case "1" : ' String de Coneccion Coneccion Oledb Oracle

Sys_conn.Open "Provider=MSDAORA.1;Data Source="& dsn_sys &";User Id="& dsn_use &";Password="& dsn_pas

case "2" : ' String de Coneccion Coneccion Oledb SQL

Sys_conn.Open "Provider=SQLOLEDB;Data Source="& dsn_sys &";Initial Catalog="& dsn_tbl &";User Id="& dsn_use &";Password="& dsn_pas

end select

'================================================= =======================

Set CmdTemp = Server.CreateObject("ADODB.Command")
Set Reg = Server.CreateObject("ADODB.Recordset")

Set CmdTemp1 = Server.CreateObject("ADODB.Command")
Set Reg1 = Server.CreateObject("ADODB.Recordset")

Set CmdTemp2 = Server.CreateObject("ADODB.Command")
Set Reg2 = Server.CreateObject("ADODB.Recordset")

Set CmdTemp3 = Server.CreateObject("ADODB.Command")
Set Reg3 = Server.CreateObject("ADODB.Recordset")

'================================================= ==============

%>