
01/07/2002, 11:34
|
| | Fecha de Ingreso: septiembre-2001
Mensajes: 191
Antigüedad: 23 años, 8 meses Puntos: 0 | |
Ayuda Urgente <%=please%> Tengo un directorio virtual en la siguiente ubicación:
E:\site en el estan todos los archivos asp,html,js,imagenes,etc pero la BD la tengo en
C:\Inetpub\wwwroot\bd
Este es el script que uso, para el login no tengo problema, pero para grabar nuevo usuario si, me sale el error que indico mas abajo, ojala me puedan ayudar.
<%
mensaje="Ingrese sus Datos ..."
user=Trim(Request.form("txtuser"))
pass=Trim(Request.form("txtpass"))
nom=Trim(Request.form("txtnom"))
aps=Trim(Request.form("txtaps"))
email=Trim(Request.form("txtemail"))
correcto=true
if user="" or pass="" or nom="" or aps="" or email="" then
correcto=false
end if
if correcto then
sqltxt="SELECT * FROM usuarios WHERE (login_user='"&user&"');"
Set Conn = Server.CreateObject("ADODB.Connection")
sConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("\bd\datos.mdb") & ";" & _
"Persist Security Info=False"
Conn.Open(sConnection)
set rs=createobject("ADODB.Recordset")
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
rs.open sqltxt,Conn
if not rs.EOF then
mensaje="El login ya está en uso ... <img src=images/info.gif>"
MostrarForm
else
rs.addnew //LINEA 59
rs("login_user")=user
rs("pass_user")=pass
rs("nom_user")=nom
rs("aps_user")=aps
rs("email_user")=email
rs.update
rs.close
%>
<Script Language="JavaScript">
<!--
window.open('index.asp','padre');
top.window.close();
// -->
</Script>
<%end if
else
MostrarForm
%>
<%end if%>
ERROR:
HTTP 500.100. Error interno del servidor: error de ASP
Servicios de Internet Information Server
--------------------------------------------------------------------------------
Información técnica (para personal de soporte técnico)
Tipo de error:
Microsoft JET Database Engine (0x80040E09)
No se puede actualizar. Base de datos u objeto de sólo lectura.
/site/registro.asp, línea |