Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ASP
 error al guardar pedidos de la tienda de asptutor
 Foro Bloqueado  Tema Bloqueado


Autor Temas
ivanc21
Starting Member

Panama
22 Posts
Mensajes - 09 Jan 2008 :  17:54:57  Ver Perfil  Enviar Email
Hola,

No c si este post puede ir aqui, si no es asi pido disculpas sinceramente, soy algo inexperto

Me baje el codigo de la tienda virtual de asptutor y funciona bn hasta que finalizo la compra( parte en donde se guarda el pedido en la BD)cuando le pongo un correo y contraseña (validas en la BD) me arroja el siguiente error "-2147217911 = No se puede actualizar. Base de datos u objeto de sólo lectura.", al igual me da el mismo error cuando quiero agregar un usuario nuevo y en la seccion de admin , cuando quiero modificar un pedido o eliminarlo.

hice las configuraciones que decia el txt del .rar (menos las del aspmail, ke no lo tengo instalado) y nada.

Si alguien me ayudara con esto le estario sumamnete agradecido.

Saludos


El mundo esta hecho para ser dominado, por personas con voluntad y determinación. Eres tu capaz de dominar el mundo?

ivanc21
Starting Member

Panama
22 Posts
Posted - 13 Jan 2008 :  23:41:00  Ver perfil  Enviar e-mail
Hola,

Bueno de verdad que quisiera ayuda con esto, puesto que necesito que la tienda funcione y sin guardar el pedido es komo si nada funcionara.
Vi que el demo que tienen asptutor corriendo funciona bien, pero el que descargue no, hay que hacerle una configuracion adicional al fichero de BD???

De verdad que necesito ayuda urgente. Este el codigo que me resulta dificil:
<%Server.ScriptTimeout = 1000%>
<!-- #include file="conexion.asp" -->
<!-- #include file="mailconf.asp" -->

<%
response.expires=0
Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3
Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3
Const adLockBatchOptimistic = 4

if trim(request.form("socio"))="" or trim(request.form("passwd"))="" then response.redirect "finalizarcompra.asp?msg=Usuario%20o%20password%20incorrecta"


If IsArray(Session("tutorcart")) = false Then
response.redirect "ofertasynovedades.asp"
else
tutorcart=Session("tutorcart")
end if
'comprobamos que el usuario sea correcto

'eliminamos las posibles comillas de la entrada
'para evitar la introducción de sentencias SQL
email=replace(request.form("socio"),"'","")
passwd=replace(request.form("passwd"),"'","")
autorizacion=false

set rs = CreateObject("ADODB.Recordset")
sqltxt="Select * from clientes where email='"&email&"' and passwd= '"&passwd&"'"
'response.write sqltxt
rs.Open sqltxt, conn
if not rs.eof then
' nos ha devuelto un registro, ahora miraremos si es valido
if rs("email")=email and rs("passwd")=passwd then
' si el usuario esta en la base de datos y la password coincide
autorizacion=true
id_cliente=rs("id_cliente")
nif=rs("nif")
nombre=rs("nombre")
telefono=rs("telefono")
direccion=rs("direccion")
localidad=rs("localidad")
provincia=rs("provincia")
pais=rs("pais")
codigopostal=rs("codigopostal")
email=rs("email")
else
autorizacion=false
end if
else
autorizacion=false


end if
rs.close
'set rs=nothing
if autorizacion=false then
' no hemos encontrado el registro
' eso indica que el usuario y/o la password son erroneos
response.redirect "finalizarcompra.asp?msg=Usuario%20o%20password%20incorrecta"
else


'parametrizamos las tablas de la aplicación

tabla="articulos"
campocodigo="id_articulo"%>


<% textoenvio="Cliente : "&id_cliente&vbcrlf
textoenvio=textoenvio&"Fecha : "&now()&vbcrlf

textoenvio=textoenvio&"Nif : "& nif &vbcrlf
textoenvio=textoenvio&"Nombre : "& nombre &vbcrlf
textoenvio=textoenvio&"Telefono : "& telefono &vbcrlf
textoenvio=textoenvio&"Direccion : "& direccion &vbcrlf
textoenvio=textoenvio&"Localidad : "& localidad &vbcrlf
textoenvio=textoenvio&"Provincia : "& provincia &vbcrlf
textoenvio=textoenvio&"Pais : "& pais &vbcrlf
textoenvio=textoenvio&"Codigo Postal : "& codigopostal &vbcrlf
textoenvio=textoenvio&"Email : "& email &vbcrlf



textoenvio=textoenvio&"-----------------------------------------"&vbcrlf



for i=0 to ubound(tutorcart)
if tutorcart(i,0)<>"" and tutorcart(i,1)<>"" then
sqltxt="select "&campocodigo&",codigo,pack,precio,nombre,marca from " &tabla& " where "&campocodigo&" ="&tutorcart(i,0)

set rs=conn.execute(sqltxt)
textoenvio=textoenvio&"Codigo:"&rs("codigo")&vbcrlf
textoenvio=textoenvio&"Articulo:"&rs("nombre")&vbcrlf
textoenvio=textoenvio&"Marca:"&rs("marca")&vbcrlf
textoenvio=textoenvio&"N de unidades:"&tutorcart(i,1)&vbcrlf
textoenvio=textoenvio&"Precio por unidad:"&rs("precio")&" Euros"&vbcrlf
textoenvio=textoenvio&"-----------------------------------------"&vbcrlf


rs.close
end if
next

'envio del email
if enviarcorreo="SI" then

strHost = servidorcorreo
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Username=usernamecorreo
Mail.Password=passwordcorreo
Mail.Host = strHost
Mail.From = usernamecorreo
Mail.FromName = request.querystring("socio")
'Mail.AddReplyTo direccion de respuesta no usada
Mail.AddAddress usernamecorreo

titulo="Pedidos tienda virtual"
Mail.Subject = titulo
'Mail.IsHTML = True
Mail.Body = textoenvio
Mail.Send

end if

'inclusion en la tabla de pedidos
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
rs.Open "pedidos", conn
rs.addnew
rs("id_cliente")=id_cliente
rs("fecha")=now()
rs("pedido")=textoenvio
rs.update
rs.close
set rs=nothing
conn.close
session.abandon


%>
<p align="center"><font color="#0000FF">Pedido registrado correctamente&nbsp;</font>
<p align="center">En breve nuestro departamento comercial se pondrá en contacto
con Usted para confirmar el envío de la mercancía</p>
<p align="center"><i>Muchas gracias por confiar en nosotros</i></p>
<%end if%>

Saludos,

El mundo esta hecho para ser dominado, por personas con voluntad y determinación. Eres tu capaz de dominar el mundo?Inicio Pagina

DonGato
Moderator

España
263 Posts
Posted - 14 Jan 2008 :  13:31:46  Ver perfil  Enviar e-mail  Visit DonGato's Homepage
como en el post anterior, tiene toda la pinta que la bbdd la tienes en un directorio sin permisos de escritura para el usuario web.

Inicio Pagina

ivanc21
Starting Member

Panama
22 Posts
Posted - 15 Jan 2008 :  15:31:44  Ver perfil  Enviar e-mail
bueno gracias por la idea brother, te cuento ke cambie los permisos para lectura, en el directorio fisico y el directorio virtual, pero = no me funciona y me sigue mandando el mismo error. lo kurioso que note es que las propiedas del directorio fisico, en la casilla de solo lectura en vez de un gancho aparece un cuadro verde; lo quito pero = despues de darle aceptar sigue apareciendo. ¿¿¿Sieria esto el causante del problema???

El mundo esta hecho para ser dominado, por personas con voluntad y determinación. Eres tu capaz de dominar el mundo?Inicio Pagina

DonGato
Moderator

España
263 Posts
Posted - 18 Jan 2008 :  13:31:55  Ver perfil  Enviar e-mail  Visit DonGato's Homepage
Moderadores o administradores, no sé si está permitido porner un enlace a otra web. De ser asi rugo editen o borren mi post y acepten mis disculpas anticipadas.
Echale un vistazo a este post.
http://www.forosdelweb.com/f15/acceso-bbdd-access-369511/

Inicio Pagina

ivanc21
Starting Member

Panama
22 Posts
Posted - 18 Jan 2008 :  20:13:55  Ver perfil  Enviar e-mail
Saludos,

Primero te quiero agradecer Don Gato, ya pude resolver el problema, tenias toda la razon los permisos para el usuario web estaban restringidos, los cambie y buala!!

Pido disculpas a todos por insistir tanto en esto y no tratar de resolverlo yo mismo, pero es ke de verdad estaba bloquiado.

Gracias por toda la ayuda que me brindaron, gracias a Dios existen lugares de ayuda como este.

Kuidense

El mundo esta hecho para ser dominado, por personas con voluntad y determinación. Eres tu capaz de dominar el mundo?Inicio Pagina

walter1972
Starting Member


9 Posts
Posted - 12 Apr 2008 :  13:14:58  Ver perfil  Enviar e-mail
no hay forma de modificar algo este codigo para que guarde los detalles del los pedidos en la base de datos , precio, cantidades ect. o no me doy cuenta donde los esta guarddando solo veo que guada el cliente y fecha de pedido pero no los detalles gracias


Inicio Pagina

Admin
Forum Admin

España
229 Posts
Posted - 23 Apr 2008 :  10:25:29  Ver perfil  Enviar e-mail
Los detalles del pedido estan en la tabla "pedidos" en el campo "pedido"Inicio Pagina
   
 Foro Bloqueado  Tema Bloqueado
Ir a:
Los Foros de ASPTutor.com Los Foros de ASPTutor.com
Ir al principio de la Página

 Imprimir Tema
 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar