Problemas de conexion entre oracle y asp a traves del IIS

aracnido79 · #1 (**permalink**) 09/11/2004, 13:15

EL problema que se presento es que me quiero conectar a una bd oracle por medio una pagina en ASP, pero el IIS me presenta problemas, pues me deja consultar sobre la bd oracle pero no me deja actualizar, ya que al llamar a la misma pagina para reguardar, borrar o actualizar el registro no me realiza nada. Me gustaria saber que problemas hay de compatibilidad y fuera de ello si tienen solución y como los puedo solucionar. Gracias

Myakire · #2 (**permalink**) 09/11/2004, 13:40

¿No te realiza nada o te marca error?
¿Como estas configurando el objeto connection antes de ejecutar las actualizaciones?

aracnido79 · #3 (**permalink**) 09/11/2004, 13:56

Cuando me conecto por medio de la pagina en Asp me deja consultar, pero en ningun momento me deja realizar actualizaciones en la bd Oracle como lo es guardar, editar y borrar

Myakire · #4 (**permalink**) 09/11/2004, 14:04

Ok, no te deja realizar actualizaciones, pero, ¿No te realiza nada (el código se ejecuta normalmente pero no se reflejan los cambios en la BD's) o te marca error?, y si es esto último, ¿que error te marca?

dorb · #5 (**permalink**) 09/11/2004, 14:09

Pon tu codigo en el que realizas la conexion a la hora de intentar modificar

aracnido79 · #6 (**permalink**) 09/11/2004, 14:18

El codigo no se ejecuta normalmente, puesto que me realiza las validaciones antes de grabar, pero en el momento de guardar ya que me tiene que redireccionar la pagina a ella misma no es capas de hacerlo, solamente la carga y me saca el error en la barra de la ventana al lado del explorador.



<%strMensajeTran=""
intTipoTran=1
strNomPais=""
%>
<% if request.form("txtTipoTran")<>"" then
Set cn = CreateObject("ADODB.Connection")
cn.ConnectionString="DSN=" & Application("DBSource")
cn.Open
select case Request.Form("txtTipoTran")
case 1:
strTablaTemp=TempTable()
strSQL = "begin tran declare @nextcod as varchar(6) "
strSQL = strSQL & " create table " & strTablaTemp & " (c1 varchar(6)) "
strSQL = strSQL & "select @nextcod=(select max(str(codigop))+1 from paises) "
strSQL = strSQL & "if @nextcod is NULL set @nextcod='1' "
strSQL = strSQL & "insert into " & strTablaTemp & " values (@nextcod) "
strSQL = strSQL & "insert into paises values (@nextcod,'"
strSQL = strSQL & Request.Form("txtNomPais") & "') commit tran"
intTipoTran=2
case 2:
strSQL = "update paises set nombrep='"
strSQL = strSQL & Request.Form("txtNomPais") & "' where codigop='"
strSQL = strSQL & Request.Form("txtCodPais") & "'"
intTipoTran=2
case 3:
strSQL = "delete from paises where codigop='"
strSQL = strSQL & Request.Form("txtCodPais") & "'"
intTipoTran=1
case 4:
intTipoTran=2
end select
on error resume next
if Request.Form("txtTipoTran")<>4 then
cn.Execute(strSQL)
end if
if err then
strMensajeTran="Error: " & Err.Description
else
select case Request.Form("txtTipoTran")
case 1:
Set rs = CreateObject("ADODB.Recordset")
strSQL = "select c1 from " & strTablaTemp
rs.Open strSQL, cn
strCodPais=rs("c1")
cn.Execute "drop table " & strTablaTemp
rs.close
strNomPais=Request.Form("txtNomPais")
strMensajeTran="REGISTRO EDITABLE"
case 2:
strCodPais=Request.Form("txtCodPais")
strNomPais=Request.Form("txtNomPais")
strMensajeTran="REGISTRO EDITABLE"
case 3:
strMensajeTran="REGISTRO ELIMINADO"
case 4:
Set rs = CreateObject("ADODB.Recordset")
strSQL = "select nombrep from paises where codigop='" & Request.Form("txtCodPais") & "'"
rs.Open strSQL, cn
strCodPais=Request.Form("txtCodPais")
strNomPais=rs("nombrep")
strMensajeTran="REGISTRO EDITABLE"
rs.close
end select
end if
cn.Close
else
strMensajeTran="NUEVO REGISTRO"
end if
%>
<html>
<head>
<title>Prueba</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="css/cssAlfa1.css" type="text/css">
<link rel="stylesheet" href="css/cssAlfa2.css" type="text/css">
<script language="JavaScript">

</script>
</head>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" background="images/fondo.gif" onLoad="document.frmMantPaises.txtNomPais.focus(); ">
<div align="left">
<p><img src="images/logoalfappal.gif" width="780" height="78"> </p>
<p align="center"><img src="images/mantpaises.gif" width="200" height="19"></p>

<table width="51%" border="0" align="center" class="cssAlfa2" bgcolor="#DCE7E7" height="80">
<tr>
<td height="70">
<div align="center">
<form name="frmMantPaises" method="post" action="<%=Request.QueryString("page")%>?page=<%=R equest.QueryString("page")%>">
<table width="375" border="0" height="49">
<tr>
<td width="53"><b><font face="Tahoma, Arial, sans-serif" size="2">País</font></b></td>
<td width="358"><b><font face="Tahoma, Arial, sans-serif" size="2">
<input name="txtNomPais" type="text" class="cssAlfa1" value="<%=strNomPais%>" size="50" maxlength="30">
<input type="hidden" name="txtTipoTran" value="<%=intTipoTran%>">
<input type="hidden" name="txtCodPais" value="<%=strCodPais%>">
</font></b></td>
</tr>
<tr>
<td colspan="2" height="2">
<div align="center"><font face="Tahoma, Arial, sans-serif" size="1" color="#000066"><%If len(strMensajeTran) > 30 then
Response.Write "<br>Imposible Borrar el Registro pues se encuentra asociado a otras tablas"
Else
Response.Write StrMensajeTran
End If%></font><font size="1" face="Tahoma, Arial, sans-serif"></font></div>
</td>
</tr>
</table>
</form>
</div>
</td>
</tr>
</table>
</div>
</body>
</html>

y me saca el siguiente error en la barra de titulo
http:/localhost/alfaora/mantpaises.asp?page=mantpaises.asp