Desaparecen registros al insertar nuevos

[sen]

Buenas, la cuestion es que tengo un formulario que inserta datos en un bd, siempre se insertan bien pero cuando envio el formulario y me muestra la lista de los registros algunos desaparecen. la raro es que cuando actualizo la pagina me aparecen todos de nuevo.

Aprovecho el post para preguntar esto tambien . Querria hacer que cada vez que se inserte un registro en la base de datos automaticamente se envie un correo con los datos insertados a varias direcciones de correo a la vez. He leido un poco y creo que esto se hace con un componente llamado CDONT, es asi? Tendria que instalar algo? Todo esto en asp con acces.

un saludo y gracias de antemano.

[El_Metallick]

mira CDONT no es el unico componenete que hay para el envio de mails mediante ASP... primero tienes que averigiar que componenete usa tu server... o en efecto tu pc creo que el IIS 5 viene con CDONT... bueno si quieres ver algo mas del tema en las FAQs postie una lista con varios metodos para enviar email con sus respectivos códigos... eso saludos

[sen]

Iniciado por El_Metallick

mira CDONT no es el unico componenete que hay para el envio de mails mediante ASP... primero tienes que averigiar que componenete usa tu server... o en efecto tu pc creo que el IIS 5 viene con CDONT... bueno si quieres ver algo mas del tema en las FAQs postie una lista con varios metodos para enviar email con sus respectivos códigos... eso saludos

Tengo el IIS del Xp. Voy a echarle un vistazo a las faqs. Andaba buscando con el buscador pero no va muy bien ahora mismo.

[El_Metallick]

el mensaje que te digo esta en la pagina 6 si mal no recuerdo... mira tamabien en la biblioteca de funciones postie una funcion para el envio de mails con varias alternativas de componentes... bajo esa funcion portie un script que detecta que componente tiene instalado tu pc... ejecuta eso y ve que componente te arroja, ojo que salen por números pero en el mismo post de la biblioteca sale que representa cada numero... eso saludos y suerte

[sen]

Bueno pues ya he cargado el cdonts en la libreria descargandome la dll. Voy a ver si me leo un poco las faqs.asias!

Sabes algo del problema de que "desaparezcan" registros?es que es raro de cojones

saludos

[El_Metallick]

puede que tengas una consulta con un select top 10 o algo aasi???

[sen]

Iniciado por El_Metallick

puede que tengas una consulta con un select top 10 o algo aasi???

Lo que tengo en los formularios de insertar son 2 select que contienen valores cojidos de una tabla de la bd. Pero la pagina que muestra los resultados es solo una consulta de registros con el repeat region, no hay ningun select en esa.

Que es un select top 10??

[Gurrutello]

hola
intenta poniendo estas lineas en las cabeceras de tu asp

<%
Response.Expires = 0
Response.Buffer = True
Response.Clear
Response.AddHeader "Pragma", "no-cache"
Response.AddHeader "cache-control", "no-store"
%>
Puede ser que la pagina que se muestre con los registros este guardada en el cache de tu navegador, con esto lo evitaras.
prueba a ver
saludos

[sen]

gracias a los ya esta solucionado he hecho la pagina de nuevo y listo.

Sigo con lo del cdont.aunque ando un poco pez...

saludos

[El_Metallick]

ejecuta este codigo en tu pc o server para saber que componente tienes instalado

Código:

<%
'Empezamos el Arreglo
Dim ObjInstalados(9)
ObjInstalados(0) = "CDONTS.NewMail"	'Si el componente es CDONTS
ObjInstalados(1) = "CDO.Message"	'Si el componente es CDOSYS
ObjInstalados(2) = "SMTPsvg.Mailer"	'Si el componente es AspMail
ObjInstalados(3) = "Persits.MailSender"    'Si el componente es AspEmail
ObjInstalados(4) = "Geocel.Mailer"    'Si el componente es Geocel
ObjInstalados(5) = "JMail.SMTPMail"    'Si el componente es JMail
ObjInstalados(6) = "Dynu.Email"    'Si el componente es DynuEmail
ObjInstalados(7) = "EasyMail.SMTP.5"    'Si el componente es EasyMail
ObjInstalados(8) = "SoftArtisans.SMTPMail"    'Si el componente es SA-SMTPMail
ObjInstalados(9) = "ocxQmail.ocxQmailCtrl.1"    'Si el componente es ocxQmail

'Luego podemos ir agregando mas objetos, segun los que necesitemos
Function cmpObjInstalados(strClassString)
On Error Resume Next

' Inicia Valores por Defecto
cmpObjInstalados = False
Err = 0

' Probamos
Dim PruebaObj
Set PruebaObj = Server.CreateObject(strClassString)
If 0 = Err Then cmpObjInstalados = True

' Limpiamos
Set PruebaObj = Nothing
Err = 0
End Function

If cmpObjInstalados(ObjInstalados(0))=True Then
'Agregar el componente a la tabla configuracion de la base de datos
Response.Write ("CDONTS")
ElseIf cmpObjInstalados(ObjInstalados(1))=True Then
'Agregar el componente a la tabla configuracion de la base de datos
Response.Write ("CDOSYS")
ElseIf cmpObjInstalados(ObjInstalados(2))=True Then
'Agregar el componente a la tabla configuracion de la base de datos
Response.Write ("AspMail")
ElseIf cmpObjInstalados(ObjInstalados(3))=True Then
'Agregar el componente a la tabla configuracion de la base de datos
Response.Write ("AspEmail")
ElseIf cmpObjInstalados(ObjInstalados(4))=True Then
'Agregar el componente a la tabla configuracion de la base de datos
Response.Write ("Geocel")
ElseIf cmpObjInstalados(ObjInstalados(5))=True Then
'Agregar el componente a la tabla configuracion de la base de datos
Response.Write ("JMail")
ElseIf cmpObjInstalados(ObjInstalados(6))=True Then
'Agregar el componente a la tabla configuracion de la base de datos
Response.Write ("DynuEmail")
ElseIf cmpObjInstalados(ObjInstalados(7))=True Then
'Agregar el componente a la tabla configuracion de la base de datos
Response.Write ("EasyMail")
ElseIf cmpObjInstalados(ObjInstalados(8))=True Then
'Agregar el componente a la tabla configuracion de la base de datos
Response.Write ("SA-SMTPMail")
ElseIf cmpObjInstalados(ObjInstalados(9))=True Then
'Agregar el componente a la tabla configuracion de la base de datos
Response.Write ("ocxQmail")
Else
Response.Write ("No hay componentes")
End If
%>

[sen]

he registrado el cdonts.

[El_Metallick]

algo asi

Set msMail = CreateObject("CDONTS.NewMail")
With msMail
.BodyFormat = 0 'Set to 0 for HTML email, 1 for plain text.
.MailFormat = 0 'Set to 0 for HTML email, 1 for plain text.
.To = "para"
.From = "de & " <[email protected]>""
.Subject = "Asunto"
.Body = "Cuerpo"
.Send
End With

[sen]

Iniciado por El_Metallick

algo asi

Set msMail = CreateObject("CDONTS.NewMail")
With msMail
.BodyFormat = 0 'Set to 0 for HTML email, 1 for plain text.
.MailFormat = 0 'Set to 0 for HTML email, 1 for plain text.
.To = "para"
.From = "de & " <[email protected]>""
.Subject = "Asunto"
.Body = "Cuerpo"
.Send
End With

mi nivel no es muy alto , donde meto ese codigo?en el fomulario para insertar?

[sen]

rectifico mi nivel es muy malo, y asi me va...

Ahi algun tuto que explique un poco el proceso?

enga un saludo y gracias!

[El_Metallick]

pon eso entre <% y %> y guardalo en un archivo email.asp, cambia los valores y prueba si te funciona

[sen]

no da error pero tampoco aparece ni llega nada. Será por el tema de configurar el smtp?

[sen]

Bueno creo que ya he configurado el smtp del iis con mis datos de retransmision

[sen]

lo que quiero es que aparte de que se inserten en la bd los datos del fomulario, tambien se mande un correo con lo que se ha insertado. No es mas facil hacerlo con aspemail??

un saludo

[El_Metallick]

mira el componente que usas de lo mismo pues la metodologia de los componenetes es muy similar... al final no se si te funciono o no si ya esta enviando email esta listo es cosa de cambiar los valores del codigo que te pase y listo sino hay que ver que pasa po... saludos

[sen]

tosdos los componenetes tendran que usar una configuracion de correo para enviarlos desde una cuenta no? me imagino que sera el tema del smtp del iis.es asi?

lo que tu me has pasado no me hace nada, solo carga la pagina y no da error ni nada

un saludo y gracias

[El_Metallick]

cambiaste el mail del destinatario y todo eso???

[sen]

lo tengo asi.

Set msMail = CreateObject("CDONTS.NewMail")
With msMail
.BodyFormat = 0 'Set to 0 for HTML email, 1 for plain text.
.MailFormat = 0 'Set to 0 for HTML email, 1 for plain text.
.To = "[email protected]"
.From = "[email protected]"
.Subject = "Asunto"
.Body = "Cuerpo"
.Send
End With

tal cual, para ver si lo manda.esta bien asi?

[El_Metallick]

[email protected] es un correo valido supongo o no??? osea ese es tu correo???

[sen]

Me ha funcionado!!

Eso lo he metido para no andar poniendo el correo por ahi.

Una preguntilla para pasar esto a mi pagina que lo meto dentro del formulario y en objeto body meto todos los input del formulario?

[sen]

gracias por la paciencia...

[El_Metallick]

para que te mande despues de enviar el formulario tienes que poner ese codigo enla pagina que procesa los datos osea donde tienes la sentencia SQL de insert... despues por ejemplo si tienes un campo a le pones request.form("a") y en la parte body haces el bosquejo de como qeuires que se vea el mail... saludos

[sen]

Bueno pues parece que ya lo he terminado. Muchas gracias por tu ayuda El_Metallick. Un santo.

[El_Metallick]

para eso estamos pues... me alegro que todo haya quedado OK saludos