% dim Tabla, tabla2 dim totalPrecio dim db dim ssql dim Ultima set db = server.CreateObject("adodb.Connection") set Tabla = server.CreateObject("adodb.Recordset") set Tabla2 = server.CreateObject("adodb.Recordset") db.open "DSN=dbconsul" ' Obtenemos el id de la base de datos tabla2.open "select max(ipv_id) from formulario",db,3,3 if tabla2.eof then Ultima = 1 else Ultima = tabla2.fields(0) + 1 end if tabla2.close if ultima = "" or isnull(ultima) then ultima=1 TotalPrecio = 0 miembroForo = "N" fechaTope = "N" if request.form("codigoRegistro")="ipv6fmember" then miembroForo = "S" end if if date < cdate("15/01/2001") then fechaTope = "S" end if if request.form("codigoRegistro")="ipv6fmember" then if date < cdate("15/01/2001") then if request.form("AsisteConferencia") = "S" then TotalPrecio = TotalPrecio + 100 end if if request.form("tutorial") = "S" then TotalPrecio = TotalPrecio + 50 end if else if request.form("AsisteConferencia") = "S" then TotalPrecio = TotalPrecio + 250 end if if request.form("tutorial") = "S" then TotalPrecio = TotalPrecio + 100 end if end if else if date < cdate("15/01/2001") then if request.form("AsisteConferencia") = "S" then TotalPrecio = TotalPrecio + 200 end if if request.form("tutorial") = "S" then TotalPrecio = TotalPrecio + 75 end if else if request.form("AsisteConferencia") = "S" then TotalPrecio = TotalPrecio + 250 end if if request.form("tutorial") = "S" then TotalPrecio = TotalPrecio + 100 end if end if end if TotalPrecio=TotalPrecio*1.16 if request.form("aloja28")="S" then TotalPrecio = TotalPrecio + 42.8 end if if request.form("aloja29")="S" then TotalPrecio = TotalPrecio + 42.8 end if if request.form("aloja30")="S" then TotalPrecio = TotalPrecio + 42.8 end if if request.form("aloja31")="S" then TotalPrecio = TotalPrecio + 42.8 end if tabla2.open "select * from formulario",db,3,3 tabla2.AddNew tabla2.fields("ipv_id").value = Ultima tabla2.fields("ipv_compania").value = request.form("compania") tabla2.fields("ipv_ivaeuropeo").value = request.form("ivaeuropeo") tabla2.fields("ipv_nombre").value = request.form("nombre") tabla2.fields("ipv_apellidos").value = request.form("apellidos") tabla2.fields("ipv_cargo").value = request.form("cargo") tabla2.fields("ipv_direccion").value = request.form("direccion") tabla2.fields("ipv_cpeuropeo").value = request.form("cpeuropeo") tabla2.fields("ipv_municipio").value = request.form("municipio") tabla2.fields("ipv_provincia").value = request.form("provincia") tabla2.fields("ipv_pais").value = request.form("pais") tabla2.fields("ipv_email").value = request.form("email") tabla2.fields("ipv_codTelefonicoPais").value = request.form("codTelefonicoPais") tabla2.fields("ipv_restotelefono").value = request.form("restotelefono") tabla2.fields("ipv_restofax").value = request.form("restofax") tabla2.fields("ipv_movil").value = request.form("movil") if request.form("codigoRegistro") = "ipv6fmember" then tabla2.fields("ipv_codigoRegistro").value = "S" else tabla2.fields("ipv_codigoRegistro").value = "N" end if tabla2.fields("ipv_portatil").value = request.form("portatil") tabla2.fields("ipv_wirelesslan").value = request.form("wirelesslan") tabla2.fields("ipv_lan10100").value = request.form("lan10100") if request.form("AsisteConferencia") = "S" then if miembroForo = "S" then if fechaTope = "S" then tabla2.fields("ipv_AsisteConferencia").value = "1" else tabla2.fields("ipv_AsisteConferencia").value = "5" end if else if fechaTope = "S" then tabla2.fields("ipv_AsisteConferencia").value = "2" else tabla2.fields("ipv_AsisteConferencia").value = "5" end if end if end if if request.form("tutorial")="S" then if miembroForo="S" then if fechaTope = "S" then tabla2.fields("ipv_tutorial").value = "5" else tabla2.fields("ipv_tutorial").value = "1" end if else if fechaTope = "S" then tabla2.fields("ipv_tutorial").value = "7" else tabla2.fields("ipv_tutorial").value = "1" end if end if end if tabla2.fields("ipv_aloja28").value = request.form("aloja28") tabla2.fields("ipv_aloja29").value = request.form("aloja29") tabla2.fields("ipv_aloja30").value = request.form("aloja30") tabla2.fields("ipv_aloja31").value = request.form("aloja31") tabla2.fields("ipv_vegetariano").value = request.form("vegetariano") tabla2.fields("ipv_cena30").value = request.form("cena30") tabla2.fields("ipv_cena31").value = request.form("cena31") tabla2.fields("ipv_porquemedio").value = request.form("porquemedio") tabla2.fields("ipv_total").value = totalprecio tabla2.update 'ssql =" insert into formulario " 'ssql = ssql & "(ipv_id," 'ssql = ssql & "ipv_compania," 'ssql = ssql & "ipv_ivaeuropeo," 'ssql = ssql & "ipv_nombre," 'ssql = ssql & "ipv_apellidos," 'ssql = ssql & "ipv_cargo," 'ssql = ssql & "ipv_direccion," 'ssql = ssql & "ipv_cpeuropeo," 'ssql = ssql & "ipv_municipio," 'ssql = ssql & "ipv_provincia," 'ssql = ssql & "ipv_pais," 'ssql = ssql & "ipv_email," 'ssql = ssql & "ipv_codTelefonicoPais," 'ssql = ssql & "ipv_restotelefono," 'ssql = ssql & "ipv_restofax," 'ssql = ssql & "ipv_movil," 'ssql = ssql & "ipv_codigoRegistro," 'ssql = ssql & "ipv_portatil," 'ssql = ssql & "ipv_wirelesslan," 'ssql = ssql & "ipv_lan10100," 'ssql = ssql & "ipv_AsisteConferencia," 'ssql = ssql & "ipv_tutorial," 'ssql = ssql & "ipv_aloja28," 'ssql = ssql & "ipv_aloja29," 'ssql = ssql & "ipv_aloja30," 'ssql = ssql & "ipv_aloja31," 'ssql = ssql & "ipv_vegetariano," 'ssql = ssql & "ipv_cena30," 'ssql = ssql & "ipv_cena31," 'ssql = ssql & "ipv_porquemedio,ipv_total)" ' 'ssql = ssql & " values (" & Ultima & "," 'ssql = ssql & "'" & request.form("compania") & "'," 'ssql = ssql & "'" & request.form("ivaeuropeo") & "'," 'ssql = ssql & "'" & request.form("nombre") & "'," 'ssql = ssql & "'" & request.form("apellidos") & "'," 'ssql = ssql & "'" & request.form("cargo") & "'," 'ssql = ssql & "'" & request.form("direccion") & "'," 'ssql = ssql & "'" & request.form("cpeuropeo") & "'," 'ssql = ssql & "'" & request.form("municipio") & "'," 'ssql = ssql & "'" & request.form("provincia") & "'," 'ssql = ssql & "'" & request.form("pais") & "'," 'ssql = ssql & "'" & request.form("email") & "'," 'ssql = ssql & "'" & request.form("codTelefonicoPais") & "'," 'ssql = ssql & "'" & request.form("restotelefono") & "'," 'ssql = ssql & "'" & request.form("restofax") & "'," 'ssql = ssql & "'" & request.form("movil") & "'," 'ssql = ssql & "'" & request.form("codigoRegistro") & "'," 'ssql = ssql & "'" & request.form("portatil") & "'," 'ssql = ssql & "'" & request.form("wirelesslan") & "'," 'ssql = ssql & "'" & request.form("lan10100") & "'," 'ssql = ssql & "'" & request.form("AsisteConferencia") & "'," 'ssql = ssql & "'" & request.form("tutorial") & "'," 'ssql = ssql & "'" & request.form("aloja28") & "'," 'ssql = ssql & "'" & request.form("aloja29") & "'," 'ssql = ssql & "'" & request.form("aloja30") & "'," 'ssql = ssql & "'" & request.form("aloja31") & "'," 'ssql = ssql & "'" & request.form("vegetariano") & "'," 'ssql = ssql & "'" & request.form("cena30") & "'," 'ssql = ssql & "'" & request.form("cena31") & "'," 'ssql = ssql & "'" & request.form("porquemedio") & "'," & totalprecio & ")" 'db.BeginTrans 'db.execute ssql 'db.CommitTrans 'Tabla.open ssql,db, 3, 3 'tabla2.close db.close %>
1ª Conferencia Internacional del Foro
IPv6 en Madrid (España)
|
|||||||
Patrocinadores: |
Hemos procesado su petición de participación en el evento y/o alojamiento. Para continuar ha de confirmar el pago mediante tarjeta de crédito. En la siguiente pantalla, introduzca los dígitos de su tarjeta de crédito sin espacios. Alternativamente, en 48 horas por medio de una transferencia bancaria. Recibirá un email con los datos bancarios (si no lo recibe, escriba a ipv6@consulintel.es, con su número de registro, para que le indiquemos el procedimiento).
¡Muy Importante! Si no realiza este paso, su reserva quedará automáticamente ANULADA. Al finalizar este paso, recibirá un email de Confirmación; si no lo recibe, póngase en contacto con la organización del evento a través de ipv6@consulintel.es |
Colaboran: |
|||||