Ver Mensaje Individual
  #1 (permalink)  
Antiguo 12/03/2006, 10:57
Garet
 
Fecha de Ingreso: agosto-2002
Mensajes: 74
Antigüedad: 22 años, 8 meses
Puntos: 1
Pregunta Problemila con una bd

Hola a todos aver si me pueden solucionar este problemilla ya que a mi no se me ocurre que mas probar.
Resulta que me puse ayer a cambiar de servidor una pagina (de uno gratuito a uno de pago) y tuve que actualizar varias cosas y demas, pero resulta que cuando intento agregar, modificar o eliminar un registro me salta este codigo:
Código HTML:
Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver] Cannot update. Database or object is read-only.

/Control/galerias.asp, line 24
Aqui les pongo el codigo donde da el error para ver si me pueden decir en que fallo:
Código:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="logout.asp"-->
<!--#include file="conectarbd.asp" -->
<%
iTipo = Request.form("Tipo")

Set rs = Server.CreateObject("ADODB.Recordset")

Select Case iTipo
Case 1
	SQL = "SELECT * FROM Galerias"
	
	With rs
	.Open SQL, oConn, 2, 3
	
	.addnew
	.fields("Titulo") = request.form("titulo")
	.fields("Descripcion") = request.form("descripcion")
	.fields("Fecha")=date()
	.update
	
	.Close
	End With
Case 2
	SQL = "SELECT * FROM Galerias Where ID = " & request.Form("ID")
	
	With rs
	.Open SQL, oConn, 2, 3
	
	.fields("Titulo") = request.form("titulo")
	.fields("Descripcion") = request.form("descripcion")
	.fields("Fecha")=date()
	.update
	
	.Close
	End With
End Select

If request.QueryString("Tipo") = 3 Then
	SQL = "SELECT * FROM Galerias Where ID = " & request.QueryString("ID")
	
	With rs
	.Open SQL, oConn, 2, 3
	
	.delete
	
	.Close
	End With
End if
Set rs = Nothing
oConn.Close
Set oConn = Nothing
Response.redirect("cntuser.asp")
%>
En el servidor gratuito me funcionaba todo a la perfeccion a sido todo al cambiarlo de server.

Weno aver si me pueden ayudar que se lo agradeceria muchisimo