%@LANGUAGE="VBSCRIPT"%>
<% msg=""%>
<%
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")) = "form_inscription") Then
If (Not MM_abortEdit) Then
' execute the insert
Dim MM_editCmd
Set MM_editCmd = Server.CreateObject ("ADODB.Command")
MM_editCmd.ActiveConnection = MM_agitel_connect_STRING
MM_editCmd.CommandText = "INSERT INTO T_PREINSCRIPTION (nom_preins, prenoms_preins, email_preins, datenais_preins, lieunais_preins, nation_preins, sexe_preins, adpos_preins, pays_preins, ville_preins, telcores_preins, telperso_preins, formcycle_preins, form_preins, derclasse_preins, derannee_preins, derecole_preins, deradpos_preins, dertel_preins, derfax_preins, derpays_preins, derville_preins, diplome1_preins, date1_preins, lieu1_preins, diplome2_preins, date2_preins, lieu2_preins, diplome3_preins, date3_preins, lieu3_preins, fonction1_preins, entrep1_preins, dateent1_preins, duree1_preins, fonction2_preins, entrep2_preins, dateent2_preins, duree2_preins, fonction3_preins, entrep3_preins, dateent3_preins, duree3_preins, sondage_preins, lieusond_preins, raison_preins, dejaexpro_preins, carriere_preins, date_preins) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)"
MM_editCmd.Prepared = true
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 202, 1, 50, Request.Form("nom_txt")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 202, 1, 50, Request.Form("prenom_txt")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 202, 1, 255, Request.Form("email_txt")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 135, 1, -1, MM_IIF(Request.Form("datenais_txt"), Request.Form("datenais_txt"), null)) ' adDBTimeStamp
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param5", 202, 1, 50, Request.Form("lieunais_txt")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param6", 202, 1, 50, Request.Form("nation_txt")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param7", 202, 1, 20, Request.Form("sexe_opt")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param8", 203, 1, 1073741823, Request.Form("adpost_txt")) ' adLongVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param9", 202, 1, 50, Request.Form("pays_txt")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param10", 202, 1, 50, Request.Form("ville_txt")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param11", 202, 1, 50, Request.Form("telcores_txt")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param12", 202, 1, 50, Request.Form("telperso_txt")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param13", 202, 1, 15, Request.Form("cycle_opt")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param14", 202, 1, 255, Request.Form("niveaux_select")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param15", 202, 1, 50, Request.Form("derclasse_txt")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param16", 5, 1, -1, MM_IIF(Request.Form("derannee_txt"), Request.Form("derannee_txt"), null)) ' adDouble
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param17", 202, 1, 50, Request.Form("derecole_txt")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param18", 203, 1, 1073741823, Request.Form("deradpos_txt")) ' adLongVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param19", 202, 1, 50, Request.Form("dertel_txt")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param20", 202, 1, 50, Request.Form("derfax_txt")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param21", 202, 1, 50, Request.Form("derpays_txt")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param22", 202, 1, 50, Request.Form("derville_txt")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param23", 202, 1, 255, Request.Form("diplome1_txt")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param24", 202, 1, 50, Request.Form("datedip1_txt")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param25", 202, 1, 50, Request.Form("lieudip1_txt")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param26", 202, 1, 255, Request.Form("diplome2_txt")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param27", 202, 1, 50, Request.Form("datedip2_txt")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param28", 202, 1, 50, Request.Form("lieudip2_txt")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param29", 202, 1, 255, Request.Form("diplome3_txt")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param30", 202, 1, 50, Request.Form("datedip3_txt")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param31", 202, 1, 50, Request.Form("lieudip3_txt")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param32", 202, 1, 255, Request.Form("fonction1_txt")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param33", 202, 1, 50, Request.Form("entrepres1_txt")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param34", 202, 1, 50, Request.Form("dateent1_txt")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param35", 202, 1, 3, Request.Form("duree1_txt")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param36", 202, 1, 255, Request.Form("fonction2_txt")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param37", 202, 1, 50, Request.Form("entrepres2_txt")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param38", 202, 1, 50, Request.Form("dateent2_txt")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param39", 202, 1, 3, Request.Form("duree2_txt")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param40", 202, 1, 255, Request.Form("fonction3_txt")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param41", 202, 1, 50, Request.Form("entrepres3_txt")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param42", 202, 1, 50, Request.Form("dateent3_txt")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param43", 202, 1, 3, Request.Form("duree3_txt")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param44", 202, 1, 50, Request.Form("qconnaitre_opt")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param45", 202, 1, 255, Request.Form("lieuconnaitre_txt")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param46", 203, 1, 1073741823, Request.Form("raison_txt")) ' adLongVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param47", 203, 1, 1073741823, Request.Form("exppro_txt")) ' adLongVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param48", 203, 1, 1073741823, Request.Form("carriere_txt")) ' adLongVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param49", 135, 1, -1, MM_IIF(Request.Form("datepeins_txt"), Request.Form("datepeins_txt"), null)) ' adDBTimeStamp
on error resume next
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
' append the query string to the redirect URL
Dim MM_editRedirectUrl
MM_editRedirectUrl = "preinscription.php"
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)
msg="Ok"
End If
End If
%>
<%
if (err.number<>0) then
msg="erreur"
end if
%>
<%
Dim liste_niveau
Dim liste_niveau_cmd
Dim liste_niveau_numRows
Set liste_niveau_cmd = Server.CreateObject ("ADODB.Command")
liste_niveau_cmd.ActiveConnection = MM_agitel_connect_STRING
liste_niveau_cmd.CommandText = "SELECT * FROM T_CLASSE ORDER BY lib_classe ASC"
liste_niveau_cmd.Prepared = true
Set liste_niveau = liste_niveau_cmd.Execute
liste_niveau_numRows = 0
%>
Les Pré-Inscriptions de AGITEL-FORMATION
|
|
 |
The Pre-enrolment at AGITEL-FORMATION |
|
|
 |
 |
<%=(liste_actu.Fields.Item("titre_eve").Value)%> |
<%=(liste_actu.Fields.Item("date_eve").Value)%> <%=(liste_actu.Fields.Item("heure_eve").Value)%>
<%=(liste_actu.Fields.Item("resume_eve").Value)%>  |
|
|
|
 |
|
|
|
|
|
|
|
|
<%
liste_niveau.Close()
Set liste_niveau = Nothing
%>