Ver Mensaje Individual
  #1 (permalink)  
Antiguo 07/02/2008, 18:54
Avatar de ZeroLino
ZeroLino
 
Fecha de Ingreso: abril-2007
Mensajes: 91
Antigüedad: 18 años, 2 meses
Puntos: 2
Ayuda Para Conectar A Bd Oracle

estimados y estimadas...

recurro a uds. porque creo que son la unica soluciòn

tengo este còdigo, y no me puedo conectar a la BD en oracle con DSN

si me pueden ayudar se los agradeceria eternamente





<%
DIM Conn,Provider,Password,User ID,Data Source

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.cursorlocation=adUseClient
' requires use of adovbs.inc; numeric value is 3
DSNTest="Provider=MSDAORA;Password=ccasdesa;User ID=ccas;Data Source=TERANHP2_DESA.world"
Conn.open DSNtest
%>
<html>
<head>
<title>:: MAESTRO CENTRO DE COSTO ::</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="estilos.css" rel="stylesheet" type="text/css">
</head>

<body>
<script language="javascript" type="text/javascript" src="funciones/funcion.js"></script>
<table width="50%" border="1" class="data" cellspacing="0" cellpadding="0">
<tr>
<td class="Estilo1">&nbsp;&nbsp;Maestro Centro de Costo </td>
</tr>
</table><br>
<form id="frmCECO" name="frmCECO" method="post" action="">
<table width="70%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="2%">&nbsp;</td>
<td width="23%" class="Estilo2">&nbsp;Eliminar Centro de Costo</td>
<td colspan="3">&nbsp;</td>
</tr>
<tr>
<td width="2%" align="center"><img src="imagen/dot.gif" width="9" height="7"></td>
<td width="23%" class="Estilo3">&nbsp;Centro de Costo</td>
<td colspan="2"><select name="centro_costo2" class="menu">
<%
sql = "SELECT * FROM CCAS_CENTRO_COSTO"
Set rs = Conn.Execute(sql)
response.write "<option value='Seleccione'>" & "Seleccione" & "</option>"
Do While Not rs.EOF
response.write "<option value='" & rs("CCENCO") & "'>" & rs("CCENCO") & "</option>"
rs.MoveNext
Loop
%>
</select></td>
<td><input type="button" name="btnEliminar" value="Eliminar" onClick="eliminarCECO()"></td>
</tr>
<tr>
<td width="2%">&nbsp;</td>
<td width="23%" class="Estilo2">&nbsp;</td>
<td colspan="3">&nbsp;</td>
</tr>
<tr>
<td width="2%">&nbsp;</td>
<td width="23%" class="Estilo2">&nbsp;&nbsp;Agregar Centro de Costo </td>
<td colspan="3">&nbsp;</td>
</tr>
<tr>
<td align="center"><img src="imagen/dot.gif" width="9" height="7"></td>
<td class="Estilo3">&nbsp;C&oacute;digo Centro de Costo </td>
<td colspan="3"><input name="cod_ceco" type="text" size="10" maxlength="8" onkeypress="AllowOnly('a..z');"></td>
</tr>
<tr>
<td align="center"><img src="imagen/dot.gif" width="9" height="7"></td>
<td class="Estilo3">&nbsp;Centro de Costo </td>
<td width="21%"><input name="centro_costo" type="text" size="30" maxlength="50" onkeypress="AllowOnly('0..9');"></td>
<td width="12%">&nbsp;</td>
<td width="42%"><input type="button" name="btnGuardar" value="Guardar" onClick="fvalidaCECO('guardar')"></td>
</tr>
</table>
</form>
</body>
</html>
<%
rs.Close
Set rs = Nothing
Conn.Close
Set Conn = Nothing
%>