<% 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")) total=tabla.fields("ipv_total") 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.fail@consulintel.es" Mail.Subject = "Madrid Global IPv6 Summit: Registration FAILED / Inscripcion FALLIDA" Mail.Body = name & "," & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "Your registration and payment had NOT been approved." & Chr(13) & Chr(10) & "Please, contact with the event organization at ipv6@consulintel.es, replying to this email, or arrange a bank transfer, within 48 hours, by a TOTAL NET amount of " & total & " Euros." & Chr(13) & Chr(10) & "Fax us the receipt with the registration code (" & orderpay & ") and your name to +34 91 484 18 22." & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "Su registro y pago NO han sido aprobados." & Chr(13) & Chr(10) & "Por favor, contacte con la organización del evento en ipv6@consulintel.es, respondiendo a este email, o envie una transferencia, en 48 horas, por un importe NETO/TOTAL de " & total & " Euros." & Chr(13) & Chr(10) & "Remitanos el justificante por fax al 91 484 18 22, indicando su codigo de registro (" & orderpay & ") y nombre." & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "Madrid Global IPv6 Summit" & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "*************************************" & Chr(13) & Chr(10) & "BANK DETAILS:" & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "Banco Santander Central Hispano (Pl. de la Maja 7 - 28260 - Galapagar - Madrid - Spain)" & Chr(13) & Chr(10) & "C.C.C.: 0049-4859-44-2393025206" Mail.Priority = 1 Mail.Send tabla.open SQLQuery,db db.close %> <% ' =sqlquery %> Madrid Global IPv6 Summit - BFFAIL