Ver Mensaje Individual
  #1 (permalink)  
Antiguo 01/07/2002, 11:34
dickldn
 
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.



&lt;%
mensaje=&quot;Ingrese sus Datos ...&quot;

user=Trim(Request.form(&quot;txtuser&quot;))
pass=Trim(Request.form(&quot;txtpass&quot;))
nom=Trim(Request.form(&quot;txtnom&quot;))
aps=Trim(Request.form(&quot;txtaps&quot;))
email=Trim(Request.form(&quot;txtemail&quot;))

correcto=true
if user=&quot;&quot; or pass=&quot;&quot; or nom=&quot;&quot; or aps=&quot;&quot; or email=&quot;&quot; then
correcto=false
end if

if correcto then
sqltxt=&quot;SELECT * FROM usuarios WHERE (login_user='&quot;&amp;user&amp;&quot;');&quot;
Set Conn = Server.CreateObject(&quot;ADODB.Connection&quot;)
sConnection = &quot;Provider=Microsoft.Jet.OLEDB.4.0;&quot; &amp; _
&quot;Data Source=&quot; &amp; Server.MapPath(&quot;\bd\datos.mdb&quot;) &amp; &quot;;&quot; &amp; _
&quot;Persist Security Info=False&quot;
Conn.Open(sConnection)
set rs=createobject(&quot;ADODB.Recordset&quot;)
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
rs.open sqltxt,Conn

if not rs.EOF then
mensaje=&quot;El login ya está en uso ... &lt;img src=images/info.gif&gt;&quot;
MostrarForm
else
rs.addnew //LINEA 59
rs(&quot;login_user&quot;)=user
rs(&quot;pass_user&quot;)=pass
rs(&quot;nom_user&quot;)=nom
rs(&quot;aps_user&quot;)=aps
rs(&quot;email_user&quot;)=email
rs.update
rs.close
%&gt;
&lt;Script Language=&quot;JavaScript&quot;&gt;
&lt;!--
window.open('index.asp','padre');
top.window.close();
// --&gt;
&lt;/Script&gt;
&lt;%end if
else
MostrarForm
%&gt;
&lt;%end if%&gt;

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