Estoy tratando de implementar el acceso de usuarios (registro de los nuevos) he utilizado las ayudas de Faq's pero sigo sin conseguirlo, el error que me da es el siguiente:
Error de compilación de Microsoft VBScript error '800a0409'
Constante de cadena sin terminar
/alta_socio.asp, line 17
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data
Los códigos de página que he utilizado son los siguientes:
Página htm
<html>
<head>
<meta http-equiv="Content-Language" content="es">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Nombre de Socia</title>
<meta name="Microsoft Theme" content="transgalicia-v3 011">
</head>
<body>
<form method="POST" action="alta_socio.asp">
<p align="center"> <font color="#00cccc">
<img
src="Graficos/Iconos/Letras/n.gif" width="56" height="70"><img
src="Graficos/Iconos/Letras/u.gif" width="56" height="70"><img
src="Graficos/Iconos/Letras/e.gif" width="56" height="70"><img
src="Graficos/Iconos/Letras/v.gif" width="56" height="70"><img
src="Graficos/Iconos/Letras/o.gif" width="56" height="70"><span
lang="es"> </span>
<img
src="Graficos/Iconos/Letras/s.gif" width="56" height="70"><img
src="Graficos/Iconos/Letras/o.gif" width="56" height="70"><img
src="Graficos/Iconos/Letras/c.gif" width="56" height="70"><img
src="Graficos/Iconos/Letras/i.gif" width="56" height="70"><img
src="Graficos/Iconos/Letras/o.gif" width="56" height="70"></font></p>
<p align="center" style="line-height: 200%">
<img border="0" src="Graficos/Iconos/libro.gif" width="80" height="80"><BR>
<b><font color="#FFFF00" face="Lucida Blackletter">Nombre de Socia /
o.......... :</font></b>
<input type="text"
name="usuario_1" size="20"><BR><b>
<font color="#FFFF00" face="Lucida Blackletter">Ingrese su
contraseña........ :</font></b>
<input type="password"
name="clave_1" size="20"><BR><font color="#FFFF00">
<font face="Lucida Blackletter"><b>Ingrese su E-Mail.............. :</b></font>
</font>
<input type="text"
name="email_1" size="20"><BR><b><font color="#FFFF00" face="Lucida Blackletter">
Pais de Residencia............. :</font></b>
<input
name="pais_1" size="20"><BR><b><font color="#FFFF00" face="Lucida Blackletter">
Provincia........................... :</font></b>
<input
name="provincia_1" size="20"><BR><b>
<font color="#FFFF00" face="Lucida Blackletter">Comunidad
Autónoma........ :</font></b>
<input type="text"
name="comunidad_1" size="20"><BR> </p>
<blockquote>
<blockquote>
<blockquote>
<blockquote>
<blockquote>
<blockquote>
<blockquote>
<blockquote>
<p>
<input type="submit" value="Enviar"
name="eviar" style="font-weight: bold">
<input type="reset" value="Restablecer"
name="reestablecer" style="font-weight: bold"><BR><BR></p>
</blockquote>
</blockquote>
</blockquote>
</blockquote>
</blockquote>
</blockquote>
</blockquote>
</blockquote>
</form><BR>
</body>
</html>
Página asp
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Pagina nueva 1</title>
<meta name="Microsoft Theme" content="transgalicia-v3 011">
</head>
<body>
<FONT face="Arial, Helvitica">
<%
set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data
'Source="&Server.MapPath("socios.mdb")&";"
Source="&web("socios.mdb")&";"
SQL="SELECT * FROM usuarios"
rs.Open SQL, oConn
rs.addnew
permiso_1="si" (aqui quisiera un filtro por si quiero
evitar futuros ingresos de este
usuario)
rs("usuario")=request("usuario_1")
rs("clave")=request("clave_1")
rs("email")=request("email_1")
rs("pais")=request("pais_1")
rs("provincia")=request("provincia_1")
rs("comunidad")=request("comunidad_1")
rs("permiso")=request("permiso_1")
rs.update
rs.close
oConn.close
%>
</body>
</html>