Ver Mensaje Individual
  #1 (permalink)  
Antiguo 10/05/2005, 10:36
gian
 
Fecha de Ingreso: mayo-2005
Mensajes: 8
Antigüedad: 20 años
Puntos: 0
Enviar Correo Despues De Agregar Datos

Hola amigos, gusto de saludarlos, queria ver si me pueden ayudar les cuento estoy creando una intranet en ASP, una de las opciones es que me permite generar ordenes de trabajo las cuales se van almacenando en un bd acces, eso funciona todo bien pero lo ke me gustaria es ke cuando se almacenen los datos me envie un correo a un destinatario diciendo que una nueva orden de trabajo se ha generado.

Aca esta el codigo donde almaceno los datos a la bd

if request.form("servicio")<>"" and request.form("nombre")<>"" and request.form("cargo")<>"" and request.form("correo")<>"" and request.form("anexo")<>"" and request.form("problema")<>"" then

'dim usr,quien
'usr=request.querystring("usuario")
'quien=request.querystring("nivel")

Dim Conexion,Tabla
Set Conexion=Server.CreateObject("adodb.connection")
Set Tabla=Server.CreateObject("adodb.recordset")

Conexion.Open strconn
'sql=""
sql="insert into sinformatica(servicio,nombre,cargo,correo,anexo,pr oblema)"
sql=sql + " values('"&Trim(request("servicio"))&"','"
sql=sql + Trim(request("nombre"))&"','"
sql=sql + Trim(request("cargo"))&"','"
sql=sql + Trim(request("correo"))&"@hospitalsanjose.cl','"
sql=sql + Trim(request("anexo"))&"','"
sql=sql + Trim(request("problema"))&"')"
on error resume next
tabla.open sql,conexion

else

response.redirect "error.asp"
end if

Lo otro es que una vez ingresada la orden me gustaria que me mostrara el numero de orden de trabajo, donde el campo "numero" es donde se genera el numero de orden, no he podido hacer esto, aca les muestro el codigo de como lo tengo:

If err.number<>0 then

Response.Write "Ocurrio el siguiente error al tratar de agregar el registro<hr>"
Response.Write "<b>Error:</b> " & Hex(Err.Number) & "<BR>"
Response.Write "<b>Descripcion:</b><br>" & Err.Description & "<br>"
response.write "SQL: " & sql & "<br>"

else

Response.Write "<font color='#000000'>El registro se ingresó satisfactoriamente</font><br>"
Response.write "Su orden de trabajo es la Número:" & request("numero")

end if

Les agradecira mucho me den una manito, de ante manos muchas gracias

Gianni