14/04/2002, 18:05
|
| | | Fecha de Ingreso: marzo-2002
Mensajes: 41
Antigüedad: 23 años, 1 mes Puntos: 0 | |
| que hay de malo en este codigo
bueno este codigo lo tome de una pagina que me recomendaron y no se por que no me funciona alguien me puede ayudar please
me sale este 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:
Error de compilación de Microsoft VBScript (0x800A0409)
Constante de cadena sin terminar
/tienda/alta.asp, line 32, column 95
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("baseclientes.mdb)
----------------------------------------------------------------------------------------------^
este es el codigo
<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>
</head>
<body>
<%
Dim nombre, apellidos, telefono, email, login, password
Dim correcto
Dim oConn, rs, SQL
'Recogemos el formulario
nombre=Request.Form("nombre")
apellidos=Request.Form("apellidos")
correcto=True
'Comprobamos que no hay campos vacíos
if nombre="" then correcto=False end if
if apellidos="" then correcto=False end if
if password="" then correcto=False end if
if correcto then
'Solo si todo está bien, comprobamos con la bd
set oConn=Server.CreateObject("ADODB.Connection&q uot;)
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("baseclientes.mdb)
SQL="SELECT * FROM Usuarios WHERE (Login='"&login&"');"
'Ejecutamos la consulta
set rs=oConn.Execute(SQL)
'si no nos devuelve vacío es que el login ya está en uso
if not rs.EOF then
Response.Write("El nombre de usuario ya está siendo utilizado. ")
Response.Write("Por favor, escoja otro.")
|