Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

No doy pie con ....

28/01/2006 - 20:05 por Mario Cassanelli | Informe spam
Ayuda Hacer una pregunta
Estoy intentando insertar/update/delete en una base de datos *.mdb, lo
unico que puedo hacer es leer cualquier tabla de la dichosa base de datos.
El error que pude recuperar es el que sigue y el codigo esta un poco mas
abajo...

UPDATE CATEGORIAS SET DESCRIPCION='NUEVO VALOR PARA CAT_ID=8' WHERE CAT_ID=8

DESCRIPTION [Microsoft][Controlador ODBC Microsoft Access] La operación debe
usar una consulta actualizable.

ERROR.SOURCE Error de Microsoft VBScript en tiempo de ejecución

CONNECTION STRING Provider=MSDASQL.1;Data Source=pablo;Extended
Properties="DSN=pablo;DBQ=C:\DOCUMENTS AND
SETTINGS\MCASSAN\PABLO\INTRANET\catalogo.mdb;DriverId%;FIL=MS
Access;MaxBufferSize 48;PageTimeout=5;"

ERROR NUMBER 438

la verdad que estoy ya un poco confundido, no entiendo que puede ser...!!!,
permisos, versiones, no lo entiendo...

CODIGO:
<%
OPTION EXPLICIT
DIM CSQL
DIM adoDBASES
DIM rsTABLES

DIM vchRAZONSOCIAL
DIM vchAPELLIDOS
DIM vchNOMBRES
DIM vchDOMICILIO
DIM intCP
DIM vchTEL
DIM vchOBSERV
DIM intNRODOC
DIM vchCIUDAD
DIM intPCIA
DIM vchEMAIL
%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>INSERT CLIENTES</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style>

BODY {
scrollbar-face-color: #000000;
scrollbar-arrow-color: #B5AECE;
scrollbar-track-color: #010345;
scrollbar-shadow-color: #010493;
scrollbar-highlight-color: #000000;
scrollbar-3dlight-color: #B5AECE;
scrollbar-darkshadow-Color: #1218FD;
}
</style>
</head>

<body >
<%

vchRAZONSOCIAL=request.form("txtRAZONSOCIAL")
vchAPELLIDOS=request.form("txtAPELLIDOS")
vchNOMBRES=REQUEST.FORM("txtNOMBRES")
vchDOMICILIO= REQUEST.FORM("txtDOMICILIO")
intCP=REQUEST.FORM("txtCP")
vchTEL=REQUEST.FORM("txtTEL")
intNRODOC=REQUEST.FORM("txtNDOC")
vchCIUDAD=REQUEST.FORM("txtCIUDAD")
intPCIA= REQUEST.FORM("txtPCIA")
vchEMAIL=REQUEST.FORM("txtEMAIL")

response.write vchEMAIL & "<BR><BR>"

vchOBSERV=TRIM(request.form("txtINFO"))


CSQL ="INSERT INTO CLIENTES (RAZON_SOCIAL, APELLIDOS, NOMBRES, DOMICILIO,
CIUDAD, PROVINCIA,"
CSQL = CSQL & " COD_POSTAL, TELEFONO, FAX, MOVIL, NRO_DOC, EMAIL,
OBSERVACIONES)"
CSQL= CSQL & " VALUES ( " & CHR(39) & vchRAZONSOCIAL & CHR(39) & ", "
CSQL = CSQL & CHR(39) & vchAPELLIDOS & CHR(39) & ", "
CSQL = CSQL & CHR(39) & vchNOMBRES & CHR(39) & ", "
CSQL = CSQL & CHR(39) & vchDOMICILIO & CHR(39) & ", "
CSQL = CSQL & CHR(39) & vchCIUDAD & CHR(39) & ", "
CSQL = CSQL & intPCIA & ","
CSQL = CSQL & CHR(39) & intCP & CHR(39) & ", "
CSQL = CSQL & CHR(39) & vchTEL & CHR(39) & ", "
csql = csql & CHR(39) & "fax" & CHR(39) & ","
CSQL = CSQL & CHR(39) & "movil" & CHR(39) & ","
CSQL = CSQL & CHR(39) & intNRODOC & CHR(39) & ", "
CSQL = CSQL & CHR(39) & vchEMAIL & CHR(39) & ", "
CSQL = CSQL & CHR(39) & vchOBSERV & CHR(39) & ")"


'-->>>INSERTAR DATOS A LA TABLA CLIENTES

set adoDBASES=Server.CreateObject("ADODB.Connection")
'adoDBASES.ConnectionString = "DSN=pablo"
adoDBASES.open "pablo"

ON ERROR RESUME NEXT
adoDBASES.execute cSQL

IF ERR THEN
RESPONSE.Write(CSQL) & "<BR>" & "<BR>"
RESPONSE.WRITE LEN(CSQL) & "<BR>" & "<BR>"
response.write "DESCRIPTION " & err.description & "<BR>" & "<BR>"
response.write "NATIVE ERROR " & err.NATIVEERROR & "<BR>" & "<BR>"
response.write "ERROR.SOURCE " & err.SOURCE & "<BR>" & "<BR>"
response.write "CONNECTION STRING " & adodbases.connectionstring & "<BR>"
& "<BR>"
response.write "ERROR NUMBER " & err.number & "<BR>" & "<BR>"

END IF

adoDbases.close
SET adoDbases=NOTHING
response.write "SE CERRO EL ARCHIVO" & "<BR>"
response.write request.form("txtRAZONSOCIAL") & "<BR>"
response.write request.form("txtAPELLIDOS") & "<BR>"
RESPONSE.WRITE REQUEST.FORM("txtNOMBRES") & "<BR>"
RESPONSE.WRITE REQUEST.FORM("txtDOMICILIO") & "<BR>"
RESPONSE.WRITE REQUEST.FORM("txtCIUDAD") & "<BR>"
RESPONSE.WRITE REQUEST.FORM("txtPCIA") & "<BR>"
RESPONSE.WRITE REQUEST.FORM("txtCP") & "<BR>"
RESPONSE.WRITE REQUEST.FORM("txtTEL") & "<BR>"
RESPONSE.WRITE REQUEST.FORM("txtNDOC") & "<BR>"
RESPONSE.WRITE REQUEST.FORM("txtEMAIL") & "<BR>"
reSponse.write request.form("txtINFO")
%>
</body>
</html>




Saludos
Mario Cassanelli
Mar del Plata
Argentina
email Siga el debateRespuesta 3 respuestasRespuesta Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Dani Castillo
28/01/2006 - 20:30 | Informe spam
hola Mario, pues tiene toda la pinta de ser tema de permisos

Al tratarse de una mdb debes tener cuidado con los permisos del archivo mdb
y de la carpeta donde reside, recuerda que el asp no se ejecuta como
administrador de la máquina por lo tanto debes darle permisos al usuario de
IIS para modificación y creación de archivos (y bueno lectura etc) en la
carpeta donde reside la mdb

el usuario lo puedes consultar en el panel de admin del iis (servicios de
internet information server, normalmente en el menú de herramientas
administrativas, busca el sitio web que quieres comprobar, boton derecho,
propiedades, pestaña seguridad de directorios y en control de autenticacion
y acceso anonimo boton de modificar, se abre una ventana con el usuario que
"ejecuta" el proceso asp, normalmente es IUSR_nombredetupc)

con ese dato ve a la carpeta ("fisicamente" quiero decir desde mipc...)
boton derecho en ella y dale permisos, dependiendo de tu sistema operativo
(w2k, xp, nt...) pero maso menos sera en seguridad, agregar el usuario del
iis, y darle control total (al menos para probar)


"Mario Cassanelli" escribió en el mensaje
news:
Estoy intentando insertar/update/delete en una base de datos *.mdb, lo
unico que puedo hacer es leer cualquier tabla de la dichosa base de datos.
El error que pude recuperar es el que sigue y el codigo esta un poco mas
abajo...

UPDATE CATEGORIAS SET DESCRIPCION='NUEVO VALOR PARA CAT_ID=8' WHERE
CAT_ID=8

DESCRIPTION [Microsoft][Controlador ODBC Microsoft Access] La operación
debe
usar una consulta actualizable.

ERROR.SOURCE Error de Microsoft VBScript en tiempo de ejecución

CONNECTION STRING Provider=MSDASQL.1;Data Source=pablo;Extended
Properties="DSN=pablo;DBQ=C:\DOCUMENTS AND
SETTINGS\MCASSAN\PABLO\INTRANET\catalogo.mdb;DriverId%;FIL=MS
Access;MaxBufferSize 48;PageTimeout=5;"

ERROR NUMBER 438

la verdad que estoy ya un poco confundido, no entiendo que puede
ser...!!!,
permisos, versiones, no lo entiendo...

CODIGO:
<%
OPTION EXPLICIT
DIM CSQL
DIM adoDBASES
DIM rsTABLES

DIM vchRAZONSOCIAL
DIM vchAPELLIDOS
DIM vchNOMBRES
DIM vchDOMICILIO
DIM intCP
DIM vchTEL
DIM vchOBSERV
DIM intNRODOC
DIM vchCIUDAD
DIM intPCIA
DIM vchEMAIL
%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>INSERT CLIENTES</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style>

BODY {
scrollbar-face-color: #000000;
scrollbar-arrow-color: #B5AECE;
scrollbar-track-color: #010345;
scrollbar-shadow-color: #010493;
scrollbar-highlight-color: #000000;
scrollbar-3dlight-color: #B5AECE;
scrollbar-darkshadow-Color: #1218FD;
}
</style>
</head>

<body >
<%

vchRAZONSOCIAL=request.form("txtRAZONSOCIAL")
vchAPELLIDOS=request.form("txtAPELLIDOS")
vchNOMBRES=REQUEST.FORM("txtNOMBRES")
vchDOMICILIO= REQUEST.FORM("txtDOMICILIO")
intCP=REQUEST.FORM("txtCP")
vchTEL=REQUEST.FORM("txtTEL")
intNRODOC=REQUEST.FORM("txtNDOC")
vchCIUDAD=REQUEST.FORM("txtCIUDAD")
intPCIA= REQUEST.FORM("txtPCIA")
vchEMAIL=REQUEST.FORM("txtEMAIL")

response.write vchEMAIL & "<BR><BR>"

vchOBSERV=TRIM(request.form("txtINFO"))


CSQL ="INSERT INTO CLIENTES (RAZON_SOCIAL, APELLIDOS, NOMBRES, DOMICILIO,
CIUDAD, PROVINCIA,"
CSQL = CSQL & " COD_POSTAL, TELEFONO, FAX, MOVIL, NRO_DOC, EMAIL,
OBSERVACIONES)"
CSQL= CSQL & " VALUES ( " & CHR(39) & vchRAZONSOCIAL & CHR(39) & ", "
CSQL = CSQL & CHR(39) & vchAPELLIDOS & CHR(39) & ", "
CSQL = CSQL & CHR(39) & vchNOMBRES & CHR(39) & ", "
CSQL = CSQL & CHR(39) & vchDOMICILIO & CHR(39) & ", "
CSQL = CSQL & CHR(39) & vchCIUDAD & CHR(39) & ", "
CSQL = CSQL & intPCIA & ","
CSQL = CSQL & CHR(39) & intCP & CHR(39) & ", "
CSQL = CSQL & CHR(39) & vchTEL & CHR(39) & ", "
csql = csql & CHR(39) & "fax" & CHR(39) & ","
CSQL = CSQL & CHR(39) & "movil" & CHR(39) & ","
CSQL = CSQL & CHR(39) & intNRODOC & CHR(39) & ", "
CSQL = CSQL & CHR(39) & vchEMAIL & CHR(39) & ", "
CSQL = CSQL & CHR(39) & vchOBSERV & CHR(39) & ")"


'-->>>INSERTAR DATOS A LA TABLA CLIENTES

set adoDBASES=Server.CreateObject("ADODB.Connection")
'adoDBASES.ConnectionString = "DSN=pablo"
adoDBASES.open "pablo"

ON ERROR RESUME NEXT
adoDBASES.execute cSQL

IF ERR THEN
RESPONSE.Write(CSQL) & "<BR>" & "<BR>"
RESPONSE.WRITE LEN(CSQL) & "<BR>" & "<BR>"
response.write "DESCRIPTION " & err.description & "<BR>" & "<BR>"
response.write "NATIVE ERROR " & err.NATIVEERROR & "<BR>" & "<BR>"
response.write "ERROR.SOURCE " & err.SOURCE & "<BR>" & "<BR>"
response.write "CONNECTION STRING " & adodbases.connectionstring & "<BR>"
& "<BR>"
response.write "ERROR NUMBER " & err.number & "<BR>" & "<BR>"

END IF

adoDbases.close
SET adoDbases=NOTHING
response.write "SE CERRO EL ARCHIVO" & "<BR>"
response.write request.form("txtRAZONSOCIAL") & "<BR>"
response.write request.form("txtAPELLIDOS") & "<BR>"
RESPONSE.WRITE REQUEST.FORM("txtNOMBRES") & "<BR>"
RESPONSE.WRITE REQUEST.FORM("txtDOMICILIO") & "<BR>"
RESPONSE.WRITE REQUEST.FORM("txtCIUDAD") & "<BR>"
RESPONSE.WRITE REQUEST.FORM("txtPCIA") & "<BR>"
RESPONSE.WRITE REQUEST.FORM("txtCP") & "<BR>"
RESPONSE.WRITE REQUEST.FORM("txtTEL") & "<BR>"
RESPONSE.WRITE REQUEST.FORM("txtNDOC") & "<BR>"
RESPONSE.WRITE REQUEST.FORM("txtEMAIL") & "<BR>"
reSponse.write request.form("txtINFO")
%>
</body>
</html>




Saludos
Mario Cassanelli
Mar del Plata
Argentina




Respuesta Responder a este mensaje
#2 ¥-- Lombar --¥
29/01/2006 - 13:39 | Informe spam
con darle el permiso modificar es suficiente.

¥-- Lombar --¥
EchMotor 69
Jose Lombardia




"Dani Castillo" escribió en el mensaje
news:%
hola Mario, pues tiene toda la pinta de ser tema de permisos

Al tratarse de una mdb debes tener cuidado con los permisos del archivo
mdb y de la carpeta donde reside, recuerda que el asp no se ejecuta como
administrador de la máquina por lo tanto debes darle permisos al usuario
de IIS para modificación y creación de archivos (y bueno lectura etc) en
la carpeta donde reside la mdb

el usuario lo puedes consultar en el panel de admin del iis (servicios de
internet information server, normalmente en el menú de herramientas
administrativas, busca el sitio web que quieres comprobar, boton derecho,
propiedades, pestaña seguridad de directorios y en control de
autenticacion y acceso anonimo boton de modificar, se abre una ventana con
el usuario que "ejecuta" el proceso asp, normalmente es IUSR_nombredetupc)

con ese dato ve a la carpeta ("fisicamente" quiero decir desde mipc...)
boton derecho en ella y dale permisos, dependiendo de tu sistema operativo
(w2k, xp, nt...) pero maso menos sera en seguridad, agregar el usuario del
iis, y darle control total (al menos para probar)


"Mario Cassanelli" escribió en el mensaje
news:
Estoy intentando insertar/update/delete en una base de datos *.mdb, lo
unico que puedo hacer es leer cualquier tabla de la dichosa base de
datos.
El error que pude recuperar es el que sigue y el codigo esta un poco mas
abajo...

UPDATE CATEGORIAS SET DESCRIPCION='NUEVO VALOR PARA CAT_ID=8' WHERE
CAT_ID=8

DESCRIPTION [Microsoft][Controlador ODBC Microsoft Access] La operación
debe
usar una consulta actualizable.

ERROR.SOURCE Error de Microsoft VBScript en tiempo de ejecución

CONNECTION STRING Provider=MSDASQL.1;Data Source=pablo;Extended
Properties="DSN=pablo;DBQ=C:\DOCUMENTS AND
SETTINGS\MCASSAN\PABLO\INTRANET\catalogo.mdb;DriverId%;FIL=MS
Access;MaxBufferSize 48;PageTimeout=5;"

ERROR NUMBER 438

la verdad que estoy ya un poco confundido, no entiendo que puede
ser...!!!,
permisos, versiones, no lo entiendo...

CODIGO:
<%
OPTION EXPLICIT
DIM CSQL
DIM adoDBASES
DIM rsTABLES

DIM vchRAZONSOCIAL
DIM vchAPELLIDOS
DIM vchNOMBRES
DIM vchDOMICILIO
DIM intCP
DIM vchTEL
DIM vchOBSERV
DIM intNRODOC
DIM vchCIUDAD
DIM intPCIA
DIM vchEMAIL
%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>INSERT CLIENTES</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style>

BODY {
scrollbar-face-color: #000000;
scrollbar-arrow-color: #B5AECE;
scrollbar-track-color: #010345;
scrollbar-shadow-color: #010493;
scrollbar-highlight-color: #000000;
scrollbar-3dlight-color: #B5AECE;
scrollbar-darkshadow-Color: #1218FD;
}
</style>
</head>

<body >
<%

vchRAZONSOCIAL=request.form("txtRAZONSOCIAL")
vchAPELLIDOS=request.form("txtAPELLIDOS")
vchNOMBRES=REQUEST.FORM("txtNOMBRES")
vchDOMICILIO= REQUEST.FORM("txtDOMICILIO")
intCP=REQUEST.FORM("txtCP")
vchTEL=REQUEST.FORM("txtTEL")
intNRODOC=REQUEST.FORM("txtNDOC")
vchCIUDAD=REQUEST.FORM("txtCIUDAD")
intPCIA= REQUEST.FORM("txtPCIA")
vchEMAIL=REQUEST.FORM("txtEMAIL")

response.write vchEMAIL & "<BR><BR>"

vchOBSERV=TRIM(request.form("txtINFO"))


CSQL ="INSERT INTO CLIENTES (RAZON_SOCIAL, APELLIDOS, NOMBRES, DOMICILIO,
CIUDAD, PROVINCIA,"
CSQL = CSQL & " COD_POSTAL, TELEFONO, FAX, MOVIL, NRO_DOC, EMAIL,
OBSERVACIONES)"
CSQL= CSQL & " VALUES ( " & CHR(39) & vchRAZONSOCIAL & CHR(39) & ", "
CSQL = CSQL & CHR(39) & vchAPELLIDOS & CHR(39) & ", "
CSQL = CSQL & CHR(39) & vchNOMBRES & CHR(39) & ", "
CSQL = CSQL & CHR(39) & vchDOMICILIO & CHR(39) & ", "
CSQL = CSQL & CHR(39) & vchCIUDAD & CHR(39) & ", "
CSQL = CSQL & intPCIA & ","
CSQL = CSQL & CHR(39) & intCP & CHR(39) & ", "
CSQL = CSQL & CHR(39) & vchTEL & CHR(39) & ", "
csql = csql & CHR(39) & "fax" & CHR(39) & ","
CSQL = CSQL & CHR(39) & "movil" & CHR(39) & ","
CSQL = CSQL & CHR(39) & intNRODOC & CHR(39) & ", "
CSQL = CSQL & CHR(39) & vchEMAIL & CHR(39) & ", "
CSQL = CSQL & CHR(39) & vchOBSERV & CHR(39) & ")"


'-->>>INSERTAR DATOS A LA TABLA CLIENTES

set adoDBASES=Server.CreateObject("ADODB.Connection")
'adoDBASES.ConnectionString = "DSN=pablo"
adoDBASES.open "pablo"

ON ERROR RESUME NEXT
adoDBASES.execute cSQL

IF ERR THEN
RESPONSE.Write(CSQL) & "<BR>" & "<BR>"
RESPONSE.WRITE LEN(CSQL) & "<BR>" & "<BR>"
response.write "DESCRIPTION " & err.description & "<BR>" & "<BR>"
response.write "NATIVE ERROR " & err.NATIVEERROR & "<BR>" & "<BR>"
response.write "ERROR.SOURCE " & err.SOURCE & "<BR>" & "<BR>"
response.write "CONNECTION STRING " & adodbases.connectionstring &
"<BR>"
& "<BR>"
response.write "ERROR NUMBER " & err.number & "<BR>" & "<BR>"

END IF

adoDbases.close
SET adoDbases=NOTHING
response.write "SE CERRO EL ARCHIVO" & "<BR>"
response.write request.form("txtRAZONSOCIAL") & "<BR>"
response.write request.form("txtAPELLIDOS") & "<BR>"
RESPONSE.WRITE REQUEST.FORM("txtNOMBRES") & "<BR>"
RESPONSE.WRITE REQUEST.FORM("txtDOMICILIO") & "<BR>"
RESPONSE.WRITE REQUEST.FORM("txtCIUDAD") & "<BR>"
RESPONSE.WRITE REQUEST.FORM("txtPCIA") & "<BR>"
RESPONSE.WRITE REQUEST.FORM("txtCP") & "<BR>"
RESPONSE.WRITE REQUEST.FORM("txtTEL") & "<BR>"
RESPONSE.WRITE REQUEST.FORM("txtNDOC") & "<BR>"
RESPONSE.WRITE REQUEST.FORM("txtEMAIL") & "<BR>"
reSponse.write request.form("txtINFO")
%>
</body>
</html>




Saludos
Mario Cassanelli
Mar del Plata
Argentina








Respuesta Responder a este mensaje
#3 Matías Iacono
30/01/2006 - 17:05 | Informe spam
Ademas, ten en cuenta las palabras reservadas, puede que DESCRIPTION sea una
de ellas.

Si no es cosa de permisos, cambia el nombre del campo.

Saludos.

Matías Iacono
Microsoft MVP ASP/ASP.net
DCE3 v.2003 - DCE2 v.2005
Coordinador de evento Comunidad MSDN Bolivia
"¥-- Lombar --¥" escribió en el mensaje
news:
con darle el permiso modificar es suficiente.

> ¥-- Lombar --¥
EchMotor 69
Jose Lombardia

>


"Dani Castillo" escribió en el mensaje
news:%
hola Mario, pues tiene toda la pinta de ser tema de permisos

Al tratarse de una mdb debes tener cuidado con los permisos del archivo
mdb y de la carpeta donde reside, recuerda que el asp no se ejecuta como
administrador de la máquina por lo tanto debes darle permisos al usuario
de IIS para modificación y creación de archivos (y bueno lectura etc) en
la carpeta donde reside la mdb

el usuario lo puedes consultar en el panel de admin del iis (servicios de
internet information server, normalmente en el menú de herramientas
administrativas, busca el sitio web que quieres comprobar, boton derecho,
propiedades, pestaña seguridad de directorios y en control de
autenticacion y acceso anonimo boton de modificar, se abre una ventana
con el usuario que "ejecuta" el proceso asp, normalmente es
IUSR_nombredetupc)

con ese dato ve a la carpeta ("fisicamente" quiero decir desde mipc...)
boton derecho en ella y dale permisos, dependiendo de tu sistema
operativo (w2k, xp, nt...) pero maso menos sera en seguridad, agregar el
usuario del iis, y darle control total (al menos para probar)


"Mario Cassanelli" escribió en el mensaje
news:
Estoy intentando insertar/update/delete en una base de datos *.mdb, lo
unico que puedo hacer es leer cualquier tabla de la dichosa base de
datos.
El error que pude recuperar es el que sigue y el codigo esta un poco mas
abajo...

UPDATE CATEGORIAS SET DESCRIPCION='NUEVO VALOR PARA CAT_ID=8' WHERE
CAT_ID=8

DESCRIPTION [Microsoft][Controlador ODBC Microsoft Access] La operación
debe
usar una consulta actualizable.

ERROR.SOURCE Error de Microsoft VBScript en tiempo de ejecución

CONNECTION STRING Provider=MSDASQL.1;Data Source=pablo;Extended
Properties="DSN=pablo;DBQ=C:\DOCUMENTS AND
SETTINGS\MCASSAN\PABLO\INTRANET\catalogo.mdb;DriverId%;FIL=MS
Access;MaxBufferSize 48;PageTimeout=5;"

ERROR NUMBER 438

la verdad que estoy ya un poco confundido, no entiendo que puede
ser...!!!,
permisos, versiones, no lo entiendo...

CODIGO:
<%
OPTION EXPLICIT
DIM CSQL
DIM adoDBASES
DIM rsTABLES

DIM vchRAZONSOCIAL
DIM vchAPELLIDOS
DIM vchNOMBRES
DIM vchDOMICILIO
DIM intCP
DIM vchTEL
DIM vchOBSERV
DIM intNRODOC
DIM vchCIUDAD
DIM intPCIA
DIM vchEMAIL
%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>INSERT CLIENTES</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style>

BODY {
scrollbar-face-color: #000000;
scrollbar-arrow-color: #B5AECE;
scrollbar-track-color: #010345;
scrollbar-shadow-color: #010493;
scrollbar-highlight-color: #000000;
scrollbar-3dlight-color: #B5AECE;
scrollbar-darkshadow-Color: #1218FD;
}
</style>
</head>

<body >
<%

vchRAZONSOCIAL=request.form("txtRAZONSOCIAL")
vchAPELLIDOS=request.form("txtAPELLIDOS")
vchNOMBRES=REQUEST.FORM("txtNOMBRES")
vchDOMICILIO= REQUEST.FORM("txtDOMICILIO")
intCP=REQUEST.FORM("txtCP")
vchTEL=REQUEST.FORM("txtTEL")
intNRODOC=REQUEST.FORM("txtNDOC")
vchCIUDAD=REQUEST.FORM("txtCIUDAD")
intPCIA= REQUEST.FORM("txtPCIA")
vchEMAIL=REQUEST.FORM("txtEMAIL")

response.write vchEMAIL & "<BR><BR>"

vchOBSERV=TRIM(request.form("txtINFO"))


CSQL ="INSERT INTO CLIENTES (RAZON_SOCIAL, APELLIDOS, NOMBRES,
DOMICILIO,
CIUDAD, PROVINCIA,"
CSQL = CSQL & " COD_POSTAL, TELEFONO, FAX, MOVIL, NRO_DOC, EMAIL,
OBSERVACIONES)"
CSQL= CSQL & " VALUES ( " & CHR(39) & vchRAZONSOCIAL & CHR(39) & ", "
CSQL = CSQL & CHR(39) & vchAPELLIDOS & CHR(39) & ", "
CSQL = CSQL & CHR(39) & vchNOMBRES & CHR(39) & ", "
CSQL = CSQL & CHR(39) & vchDOMICILIO & CHR(39) & ", "
CSQL = CSQL & CHR(39) & vchCIUDAD & CHR(39) & ", "
CSQL = CSQL & intPCIA & ","
CSQL = CSQL & CHR(39) & intCP & CHR(39) & ", "
CSQL = CSQL & CHR(39) & vchTEL & CHR(39) & ", "
csql = csql & CHR(39) & "fax" & CHR(39) & ","
CSQL = CSQL & CHR(39) & "movil" & CHR(39) & ","
CSQL = CSQL & CHR(39) & intNRODOC & CHR(39) & ", "
CSQL = CSQL & CHR(39) & vchEMAIL & CHR(39) & ", "
CSQL = CSQL & CHR(39) & vchOBSERV & CHR(39) & ")"


'-->>>INSERTAR DATOS A LA TABLA CLIENTES

set adoDBASES=Server.CreateObject("ADODB.Connection")
'adoDBASES.ConnectionString = "DSN=pablo"
adoDBASES.open "pablo"

ON ERROR RESUME NEXT
adoDBASES.execute cSQL

IF ERR THEN
RESPONSE.Write(CSQL) & "<BR>" & "<BR>"
RESPONSE.WRITE LEN(CSQL) & "<BR>" & "<BR>"
response.write "DESCRIPTION " & err.description & "<BR>" & "<BR>"
response.write "NATIVE ERROR " & err.NATIVEERROR & "<BR>" & "<BR>"
response.write "ERROR.SOURCE " & err.SOURCE & "<BR>" & "<BR>"
response.write "CONNECTION STRING " & adodbases.connectionstring &
"<BR>"
& "<BR>"
response.write "ERROR NUMBER " & err.number & "<BR>" & "<BR>"

END IF

adoDbases.close
SET adoDbases=NOTHING
response.write "SE CERRO EL ARCHIVO" & "<BR>"
response.write request.form("txtRAZONSOCIAL") & "<BR>"
response.write request.form("txtAPELLIDOS") & "<BR>"
RESPONSE.WRITE REQUEST.FORM("txtNOMBRES") & "<BR>"
RESPONSE.WRITE REQUEST.FORM("txtDOMICILIO") & "<BR>"
RESPONSE.WRITE REQUEST.FORM("txtCIUDAD") & "<BR>"
RESPONSE.WRITE REQUEST.FORM("txtPCIA") & "<BR>"
RESPONSE.WRITE REQUEST.FORM("txtCP") & "<BR>"
RESPONSE.WRITE REQUEST.FORM("txtTEL") & "<BR>"
RESPONSE.WRITE REQUEST.FORM("txtNDOC") & "<BR>"
RESPONSE.WRITE REQUEST.FORM("txtEMAIL") & "<BR>"
reSponse.write request.form("txtINFO")
%>
</body>
</html>




Saludos
Mario Cassanelli
Mar del Plata
Argentina












email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida