<%@LANGUAGE="VBSCRIPT"%> <% Dim MM_editAction MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString) End If ' boolean to abort record edit Dim MM_abortEdit MM_abortEdit = false %> <% ' IIf implementation Function MM_IIf(condition, ifTrue, ifFalse) If condition = "" Then MM_IIf = ifFalse Else MM_IIf = ifTrue End If End Function %> <% If (CStr(Request("MM_insert")) = "form1") Then If (Not MM_abortEdit) Then ' execute the insert Dim MM_editCmd Set MM_editCmd = Server.CreateObject ("ADODB.Command") MM_editCmd.ActiveConnection = MM_Conn_Test_STRING MM_editCmd.CommandText = "INSERT INTO Table1 (First_Name, Last_Name, Titel, Institute, adres, Tel, Email, Security) VALUES (?, ?, ?, ?, ?, ?, ?, ?)" MM_editCmd.Prepared = true MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 202, 1, 50, Request.Form("first_name")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 202, 1, 50, Request.Form("last_name")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 202, 1, 50, Request.Form("titel")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 202, 1, 50, Request.Form("institute")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param5", 203, 1, 1073741823, Request.Form("adres")) ' adLongVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param6", 202, 1, 50, Request.Form("tel")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param7", 202, 1, 50, Request.Form("email")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param8", 5, 1, -1, MM_IIF(Request.Form("security"), Request.Form("security"), null)) ' adDouble MM_editCmd.Execute MM_editCmd.ActiveConnection.Close ' append the query string to the redirect URL Dim MM_editRedirectUrl MM_editRedirectUrl = "../confirm_reg.html" If (Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If Response.Redirect(MM_editRedirectUrl) End If End If %> <% Dim rs_test Dim rs_test_cmd Dim rs_test_numRows Set rs_test_cmd = Server.CreateObject ("ADODB.Command") rs_test_cmd.ActiveConnection = MM_Conn_Test_STRING rs_test_cmd.CommandText = "SELECT * FROM Table1" rs_test_cmd.Prepared = true Set rs_test = rs_test_cmd.Execute rs_test_numRows = 0 %> Register for ESSUS

European Symposium
on Substance Use among Students

ESSUS.org
       Home | About us | Registration | Programs | Links | Contact | Accommodation | Route | Login

Registration Form

Registration

The registration fee of 180 €uro includes participation in plenary sessions and workshops, coffee breaks, lunches and all Symposium documentation.

The number of participants in each workshop is restricted. We advise you to register as soon as possible, so you can participate in the workshop of your first choice.

 

 

Payment

All payments are to be made in €uro and should be free of bank charges to the reciever. Please mention the participant's name, and our reference: SC200806 on all money transfers.

 

 

Bank account number

KBC Bank

Acc. No. 735-0085325-50

IBAN BE86 7350 0853 2550

BIC KREDBEBB

 

 

Please use this form Registration.doc by completing and sending via e-mail to: benny.bellens@ua.ac.be

 

 

 

 
© Copyright 2008 - ESSUS.org - UWiD - Webmaster
<% rs_test.Close() Set rs_test = Nothing %>