Microsoft OLE DB Provider for ODBC Drivers error \'80004005\'
matrobb
26 de Noviembre del 2003
Tenia esta pagina funcionando, y de repente me da el siguiente error:
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][Controlador ODBC Microsoft Access]Error general No se puede abrir la clave 'Temporary (volatile) Jet DSN for process 0x47c Thread 0xbfc DBC 0x12592014 Jet' del Registro.
/registrarse.asp, line 5
El codido de la pagina es el siguiente:
<%@LANGUAGE="VBSCRIPT"%>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("DBBaseGeneral.mdb")
%>
<%
' *** Edit Operations: declare variables
MM_editAction = CStr(Request("URL"))
If (Request.QueryString <> "") Then
MM_editAction = MM_editAction & "?" & Request.QueryString
End If
' boolean to abort record edit
MM_abortEdit = false
' query string to execute
MM_editQuery = ""
%>
<%
' *** Insert Record: set variables
If (CStr(Request("MM_insert")) <> "") Then
MM_editConnection = Conn
MM_editTable = "ClientesViva"
MM_editRedirectUrl = "registrado.htm"
MM_fieldsStr = "nombre|value|apellido|value|domicilio|value|localidad|value|telefono|value|codigopostal|value|FechaNacimiento|value|DNI|value|email|value|recibis|value"
MM_columnsStr = "Nombres|',none,''|Apellido|',none,''|Domicilio|',none,''|Localidad|',none,''|Telefono|',none,''|CP|',none,''|FechaNacimiento|',none,''|DNI|',none,''|EMail|',none,''|RecibisMails|none,none,NULL"
' create the MM_fields and MM_columns arrays
MM_fields = Split(MM_fieldsStr, "|")
MM_columns = Split(MM_columnsStr, "|")
' set the form values
For i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_fields(i+1) = CStr(Request.Form(MM_fields(i)))
Next
' append the query string to the redirect URL
If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
End If
End If
End If
%>
<%
' *** Insert Record: construct a sql insert statement and execute it
If (CStr(Request("MM_insert")) <> "") Then
' create the sql insert statement
MM_tableValues = ""
MM_dbValues = ""
For i = LBound(MM_fields) To UBound(MM_fields) Step 2
FormVal = MM_fields(i+1)
MM_typeArray = Split(MM_columns(i+1),",")
Delim = MM_typeArray(0)
If (Delim = "none") Then Delim = ""
AltVal = MM_typeArray(1)
If (AltVal = "none") Then AltVal = ""
EmptyVal = MM_typeArray(2)
If (EmptyVal = "none") Then EmptyVal = ""
If (FormVal = "") Then
FormVal = EmptyVal
Else
If (AltVal <> "") Then
FormVal = AltVal
ElseIf (Delim = "'") Then ' escape quotes
FormVal = "'" & Replace(FormVal,"'","''") & "'"
Else
FormVal = Delim + FormVal + Delim
End If
End If
If (i <> LBound(MM_fields)) Then
MM_tableValues = MM_tableValues & ","
MM_dbValues = MM_dbValues & ","
End if
MM_tableValues = MM_tableValues & MM_columns(i)
MM_dbValues = MM_dbValues & FormVal
Next
MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"
If (Not MM_abortEdit) Then
' execute the insert
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
If (MM_editRedirectUrl <> "") Then
Response.Redirect(MM_editRedirectUrl)
End If
End If
End If
%>
<%
set RsClientes = Server.CreateObject("ADODB.Recordset")
RsClientes.ActiveConnection = Conn
RsClientes.Source = "SELECT * FROM ClientesViva"
RsClientes.CursorType = 0
RsClientes.CursorLocation = 2
RsClientes.LockType = 3
RsClientes.Open()
RsClientes_numRows = 0
%>
<html>
<head>
<title>Viva Maria</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#7fb1e2" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="400" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="603" valign="top">
<table width="400" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top"> <img src="imagenes/cliente.gif" width="139" height="27"><br>
<p><font color="#CC0000"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2">
</font></b></font><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif">Si
querés ser parte de nuestro <b>Grupo Cliente</b>, y recibir
maillings, folletos y participar de promos especiales para vos,
completá el siguiente formulario para registrarte.<br>
<br>
<i><b>Pronto tendrás novedades...</b></i></font><font color="#CC0000"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2">
</font></b></font></p></td>
</tr>
</table>
<form name="form1" method="POST" action="<%=MM_editAction%>">
<table width="380" border="1" align="center" cellpadding="5" cellspacing="0" bordercolor="#6699CC">
<tr>
<td height="343" valign="top">
<table width="359" border="0" cellspacing="0" cellpadding="0" align="center" height="35">
<tr>
<td width="98"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> <font color="#FFFFFF"> Nombres:</font></font></td>
<td width="261">
<input name="nombre" type="text" size="30" maxlength="30">
</td>
</tr>
</table>
<table width="359" border="0" cellspacing="0" cellpadding="0" align="center" height="35">
<tr>
<td width="98"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> <font color="#FFFFFF"> Apellido:</font></font></td>
<td width="261">
<input name="apellido" type="text" size="30" maxlength="30">
</td>
</tr>
</table>
<table width="359" border="0" cellspacing="0" cellpadding="0" align="center" height="35">
<tr>
<td width="98"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> <font color="#FFFFFF"> Domicilio:</font></font></td>
<td width="261">
<input name="domicilio" type="text" size="38" maxlength="38">
</td>
</tr>
</table>
<table width="359" border="0" cellspacing="0" cellpadding="0" align="center" height="35">
<tr>
<td width="98"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> <font color="#FFFFFF">Localidad:</font></font></td>
<td width="261" height="35">
<input name="localidad" type="text" size="38" maxlength="38">
</td>
</tr>
</table>
<table width="359" border="0" cellspacing="0" cellpadding="0" align="center" height="35">
<tr>
<td width="98"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> <font color="#FFFFFF">Teléfono:</font></font></td>
<td width="261" height="35"> <input type="text" name="telefono" size="38" maxlength="38">
</td>
</tr>
<tr>
<td width="98"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> <font color="#FFFFFF">C.
Postal:</font></font></td>
<td width="261" height="35"> <input type="text" name="codigopostal" size="12" maxlength="12">
</td>
</tr>
</table>
<table width="359" border="0" cellspacing="0" cellpadding="0" align="center" height="35">
<tr>
<td width="98"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> <font color="#FFFFFF">Fecha
Nac.:</font></font></td>
<td width="261">
<input type="text" name="FechaNacimiento" size="12" maxlength="12">
</td>
</tr>
</table>
<table width="359" border="0" cellspacing="0" cellpadding="0" align="center" height="35">
<tr>
<td width="98"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> <font color="#FFFFFF">DNI:</font></font></td>
<td width="261">
<input name="DNI" type="text" size="20" maxlength="20">
</td>
</tr>
</table>
<table width="359" border="0" cellspacing="0" cellpadding="0" align="center" height="35">
<tr>
<td width="98"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> <font color="#FFFFFF">E-mail:</font></font></td>
<td width="261">
<input name="email" type="text" size="38" maxlength="38">
</td>
</tr>
</table>
<table width="359" border="0" cellspacing="0" cellpadding="0" align="center" height="35">
<tr>
<td width="294"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> <font color="#FFFFFF"> ¿Ya
recibís mails de Viva en tu casa?</font></font></td>
<td width="65">
<select name="recibis">
<option value="0">No</option>
<option value="1">Si</option>
</select>
</td>
</tr>
<tr>
<td width="294"> </td>
<td width="65"> </td>
</tr>
<tr>
<td width="294">
<div align="right">
<input type="submit" name="Submit" value="Enviar Formulario">
</div>
</td>
<td width="65"> </td>
</tr>
</table>
</td>
</tr>
</table>
<input type="hidden" name="MM_insert" value="true">
</form>
</td>
</tr>
</table>
</body>
</html>
<%
RsClientes.Close()
%>
La gente del host dicen q el problema es mio, puede ser que hallan cambiado los controladores del servidor?
desde ya muchas gracias.
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][Controlador ODBC Microsoft Access]Error general No se puede abrir la clave 'Temporary (volatile) Jet DSN for process 0x47c Thread 0xbfc DBC 0x12592014 Jet' del Registro.
/registrarse.asp, line 5
El codido de la pagina es el siguiente:
<%@LANGUAGE="VBSCRIPT"%>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("DBBaseGeneral.mdb")
%>
<%
' *** Edit Operations: declare variables
MM_editAction = CStr(Request("URL"))
If (Request.QueryString <> "") Then
MM_editAction = MM_editAction & "?" & Request.QueryString
End If
' boolean to abort record edit
MM_abortEdit = false
' query string to execute
MM_editQuery = ""
%>
<%
' *** Insert Record: set variables
If (CStr(Request("MM_insert")) <> "") Then
MM_editConnection = Conn
MM_editTable = "ClientesViva"
MM_editRedirectUrl = "registrado.htm"
MM_fieldsStr = "nombre|value|apellido|value|domicilio|value|localidad|value|telefono|value|codigopostal|value|FechaNacimiento|value|DNI|value|email|value|recibis|value"
MM_columnsStr = "Nombres|',none,''|Apellido|',none,''|Domicilio|',none,''|Localidad|',none,''|Telefono|',none,''|CP|',none,''|FechaNacimiento|',none,''|DNI|',none,''|EMail|',none,''|RecibisMails|none,none,NULL"
' create the MM_fields and MM_columns arrays
MM_fields = Split(MM_fieldsStr, "|")
MM_columns = Split(MM_columnsStr, "|")
' set the form values
For i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_fields(i+1) = CStr(Request.Form(MM_fields(i)))
Next
' append the query string to the redirect URL
If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
End If
End If
End If
%>
<%
' *** Insert Record: construct a sql insert statement and execute it
If (CStr(Request("MM_insert")) <> "") Then
' create the sql insert statement
MM_tableValues = ""
MM_dbValues = ""
For i = LBound(MM_fields) To UBound(MM_fields) Step 2
FormVal = MM_fields(i+1)
MM_typeArray = Split(MM_columns(i+1),",")
Delim = MM_typeArray(0)
If (Delim = "none") Then Delim = ""
AltVal = MM_typeArray(1)
If (AltVal = "none") Then AltVal = ""
EmptyVal = MM_typeArray(2)
If (EmptyVal = "none") Then EmptyVal = ""
If (FormVal = "") Then
FormVal = EmptyVal
Else
If (AltVal <> "") Then
FormVal = AltVal
ElseIf (Delim = "'") Then ' escape quotes
FormVal = "'" & Replace(FormVal,"'","''") & "'"
Else
FormVal = Delim + FormVal + Delim
End If
End If
If (i <> LBound(MM_fields)) Then
MM_tableValues = MM_tableValues & ","
MM_dbValues = MM_dbValues & ","
End if
MM_tableValues = MM_tableValues & MM_columns(i)
MM_dbValues = MM_dbValues & FormVal
Next
MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"
If (Not MM_abortEdit) Then
' execute the insert
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
If (MM_editRedirectUrl <> "") Then
Response.Redirect(MM_editRedirectUrl)
End If
End If
End If
%>
<%
set RsClientes = Server.CreateObject("ADODB.Recordset")
RsClientes.ActiveConnection = Conn
RsClientes.Source = "SELECT * FROM ClientesViva"
RsClientes.CursorType = 0
RsClientes.CursorLocation = 2
RsClientes.LockType = 3
RsClientes.Open()
RsClientes_numRows = 0
%>
<html>
<head>
<title>Viva Maria</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#7fb1e2" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="400" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="603" valign="top">
<table width="400" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top"> <img src="imagenes/cliente.gif" width="139" height="27"><br>
<p><font color="#CC0000"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2">
</font></b></font><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif">Si
querés ser parte de nuestro <b>Grupo Cliente</b>, y recibir
maillings, folletos y participar de promos especiales para vos,
completá el siguiente formulario para registrarte.<br>
<br>
<i><b>Pronto tendrás novedades...</b></i></font><font color="#CC0000"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2">
</font></b></font></p></td>
</tr>
</table>
<form name="form1" method="POST" action="<%=MM_editAction%>">
<table width="380" border="1" align="center" cellpadding="5" cellspacing="0" bordercolor="#6699CC">
<tr>
<td height="343" valign="top">
<table width="359" border="0" cellspacing="0" cellpadding="0" align="center" height="35">
<tr>
<td width="98"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> <font color="#FFFFFF"> Nombres:</font></font></td>
<td width="261">
<input name="nombre" type="text" size="30" maxlength="30">
</td>
</tr>
</table>
<table width="359" border="0" cellspacing="0" cellpadding="0" align="center" height="35">
<tr>
<td width="98"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> <font color="#FFFFFF"> Apellido:</font></font></td>
<td width="261">
<input name="apellido" type="text" size="30" maxlength="30">
</td>
</tr>
</table>
<table width="359" border="0" cellspacing="0" cellpadding="0" align="center" height="35">
<tr>
<td width="98"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> <font color="#FFFFFF"> Domicilio:</font></font></td>
<td width="261">
<input name="domicilio" type="text" size="38" maxlength="38">
</td>
</tr>
</table>
<table width="359" border="0" cellspacing="0" cellpadding="0" align="center" height="35">
<tr>
<td width="98"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> <font color="#FFFFFF">Localidad:</font></font></td>
<td width="261" height="35">
<input name="localidad" type="text" size="38" maxlength="38">
</td>
</tr>
</table>
<table width="359" border="0" cellspacing="0" cellpadding="0" align="center" height="35">
<tr>
<td width="98"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> <font color="#FFFFFF">Teléfono:</font></font></td>
<td width="261" height="35"> <input type="text" name="telefono" size="38" maxlength="38">
</td>
</tr>
<tr>
<td width="98"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> <font color="#FFFFFF">C.
Postal:</font></font></td>
<td width="261" height="35"> <input type="text" name="codigopostal" size="12" maxlength="12">
</td>
</tr>
</table>
<table width="359" border="0" cellspacing="0" cellpadding="0" align="center" height="35">
<tr>
<td width="98"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> <font color="#FFFFFF">Fecha
Nac.:</font></font></td>
<td width="261">
<input type="text" name="FechaNacimiento" size="12" maxlength="12">
</td>
</tr>
</table>
<table width="359" border="0" cellspacing="0" cellpadding="0" align="center" height="35">
<tr>
<td width="98"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> <font color="#FFFFFF">DNI:</font></font></td>
<td width="261">
<input name="DNI" type="text" size="20" maxlength="20">
</td>
</tr>
</table>
<table width="359" border="0" cellspacing="0" cellpadding="0" align="center" height="35">
<tr>
<td width="98"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> <font color="#FFFFFF">E-mail:</font></font></td>
<td width="261">
<input name="email" type="text" size="38" maxlength="38">
</td>
</tr>
</table>
<table width="359" border="0" cellspacing="0" cellpadding="0" align="center" height="35">
<tr>
<td width="294"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> <font color="#FFFFFF"> ¿Ya
recibís mails de Viva en tu casa?</font></font></td>
<td width="65">
<select name="recibis">
<option value="0">No</option>
<option value="1">Si</option>
</select>
</td>
</tr>
<tr>
<td width="294"> </td>
<td width="65"> </td>
</tr>
<tr>
<td width="294">
<div align="right">
<input type="submit" name="Submit" value="Enviar Formulario">
</div>
</td>
<td width="65"> </td>
</tr>
</table>
</td>
</tr>
</table>
<input type="hidden" name="MM_insert" value="true">
</form>
</td>
</tr>
</table>
</body>
</html>
<%
RsClientes.Close()
%>
La gente del host dicen q el problema es mio, puede ser que hallan cambiado los controladores del servidor?
desde ya muchas gracias.