
10/05/2005, 10:36
|
| | 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 |