<% set db = server.CreateObject("adodb.Connection") set Tabla = server.CreateObject("adodb.Recordset") db.open "DSN=dbconsul" resultado=Request.QueryString("result") %> <%order=Request.QueryString("pszPurchorderNum")%> <%orderpay=order%> <%fecha=Request.QueryString("pszTxnDate")%> <%tipotrans=Request.QueryString("tipotrans")%> <%store=Request.QueryString("store")%> <% if resultado = 0 then %> <%codaprobacion=Request.QueryString("pszApprovalCode")%> <%idtrans=Request.QueryString("pszTxnID")%> <% else %> <%coderror=Request.QueryString("coderror")%> <%error=Request.QueryString("deserror")%> <%end if%> <% ' Cogemos el ultimo id de orden que hay en la tabla tabla.open "select max(orden) from TABLAOPERACIONES",db if tabla.eof then Ultima = 1000 else ' recuperamos el valor del codigo de la tabla Ultima = tabla.fields(0) end if ' cogemos los 4 primeros digitos del codigo , esto nos permite hacer hasta un total de 9999 inscripciones ultima= left(cstr(ultima),4) ' sumamos uno al codigo de orden inicial ultima = clng(ultima) +1 ' Por ultimo formamos el codigo resultante con los 4 primeros ' digitos del orden consecutivos seguidos del numero de orden de la operacion order = cstr(ultima) & cstr(order) order = clng(order) tabla.close if resultado = 0 then SQLQuery = "insert into TABLAOPERACIONES (orden,fechatrans," SQLQuery = SQLQuery & "codaprobacion," SQLQuery = SQLQuery & "idtrans) VALUES (" SQLQuery = SQLQuery & order & "," SQLQuery = SQLQuery & "'" & fecha & "'," SQLQuery = SQLQuery & "'" & codaprobacion & "'," SQLQuery = SQLQuery & "'" & idtrans & "')" else SQLQuery = "insert into TABLAOPERACIONES (orden,fechatrans," SQLQuery = SQLQuery & "coderror,deserror," SQLQuery = SQLQuery & "idtrans) VALUES (" SQLQuery = SQLQuery & "" & order & "," SQLQuery = SQLQuery & "'" & fecha & "'," SQLQuery = SQLQuery & "'" & coderror & "','" & error & "'," SQLQuery = SQLQuery & "'" & idtrans & "')" end if Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "mail.ipf.es;mail.gigabell.es;mail.consulintel.es;ipf.es;gigabell.es;consulintel.es" ' obtencion de la direccion de la base de datos SqlDireccion = "select * from formulario where ipv_id=" & orderpay tabla.open SqlDireccion,db email=trim(tabla.fields("ipv_email")) name=trim(tabla.fields("ipv_nombre")) & " " & trim(tabla.fields("ipv_apellidos")) tabla.close Mail.AddReplyTo "ipv6@consulintel.es" Mail.From = email Mail.FromName = "Madrid Global IPv6 Summit" Mail.AddAddress email,name Mail.AddBCC "ipv6.madrid.pay.ok@consulintel.es" Mail.Subject = "Madrid Global IPv6 Summit: Registration CONFIRMATION / CONFIRMACION de Inscripcion" Mail.Body = name & "," & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "Your registration and payment had been successfully approved with the REFERENCE " & orderpay & Chr(13) & Chr(10) & "Thank you. Please, remember this registration code." & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "Su inscripcion y pago han sido correctamente aprobados con la REFERENCIA " & orderpay & Chr(13) & Chr(10) & "Gracias. Por favor, recuerde su codigo de inscripcion." & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "Madrid Global IPv6 Summit" Mail.Priority = 1 Mail.Send tabla.open SQLQuery,db db.close %> <% ' =sqlquery %> Madrid Global IPv6 Summit - BDOK