<%@LANGUAGE="VBSCRIPT"%>
<% Option Explicit %>
<%
Dim strErrors
Dim strBuffer
Dim intLoop
Dim arrItems(13)
Dim arrSplit
Dim blnDuplicated
If Len(QueryString("reset")) = 0 Then
arrItems(0) = FormU("nome")
arrItems(1) = FormU("cognome")
arrItems(2) = FormU("sesso")
arrItems(3) = Form("nascitadd")
arrItems(4) = Form("nascitamm")
arrItems(5) = Form("nascitayy")
arrItems(6) = FormU("luogo")
arrItems(7) = FormU("provincia")
arrItems(8) = Form("st_civile")
arrItems(9) = FormU("cittadinanza")
arrItems(10) = FormU("stato")
arrItems(11) = FormU("codfisc")
arrItems(12) = FormU("patenti")
arrItems(13) = FormU("curr")
If Len(Form("invia")) > 0 Then
strErrors = strErrors & CheckForEmpty(arrItems(0), "Nome")
strErrors = strErrors & CheckForEmpty(arrItems(1), "Cognome")
strErrors = strErrors & CheckForEmpty(arrItems(2), "Sesso")
strErrors = strErrors & CheckForEmpty(arrItems(3), "Giorno di nascita")
strErrors = strErrors & CheckForEmpty(arrItems(4), "Mese di nascita")
strErrors = strErrors & CheckForEmpty(arrItems(5), "Anno di nascita")
strErrors = strErrors & CheckForEmpty(arrItems(6), "Luogo di nascita")
strErrors = strErrors & CheckForEmpty(arrItems(7), "Provincia")
strErrors = strErrors & CheckForEmpty(arrItems(8), "Stato civile")
strErrors = strErrors & CheckForEmpty(arrItems(9), "Cittadinanza")
strErrors = strErrors & CheckForEmpty(arrItems(10), "Stato")
strErrors = strErrors & CheckForEmpty(arrItems(11), "Codice fiscale")
If (Not CheckCodFisc(arrItems(11))) And (Len(arrItems(11)) > 0) Then _
strErrors = strErrors & "
Il codice fiscale inserito è errato
"
If (Len(arrItems(3)) > 0) And (Len(arrItems(4)) > 0) And (Len(arrItems(5)) > 0) Then _
strErrors = strErrors & CheckForDate(arrItems(3), arrItems(4), arrItems(5), "Data di nascita")
If Len(arrItems(13)) = 0 Then
If IsDuplicateCodFisc(MM_curricula_string, arrItems(11)) Then
blnDuplicated = True
strErrors = strErrors & "
È stato rilevato un altro curriculum con questo codice fiscale. Specificare se si tratta di un aggiornamento o di un nuovo inserimento.
"
End If
End If
Session.Contents("page1") = ""
If Len(strErrors) = 0 Then
For intLoop = 0 To UBound(arrItems)
strBuffer = strBuffer & arrItems(intLoop)
If intLoop < UBound(arrItems) Then strBuffer = strBuffer & SessionSeparator
Next
Session.Contents("page1") = strBuffer
Response.Redirect("curr2.asp")
End If
End If
If QueryString("clear") = "1" Then
Session("page1") = ""
Session.Abandon()
For intLoop = 0 To UBound(arrItems)
arrItems(intLoop) = ""
Next
End If
End If
If Len(Session("page1")) > 0 Then
arrSplit = Split(Session("page1"), SessionSeparator)
For intLoop = 0 To UBound(arrSplit)
arrItems(intLoop) = arrSplit(intLoop)
Next
End If
If Len(arrItems(13)) > 0 Then blnDuplicated = True
%>
<%
Dim st_civile
Dim st_civile_numRows
Set st_civile = Server.CreateObject("ADODB.Recordset")
st_civile.ActiveConnection = MM_curricula_STRING
st_civile.Source = "SELECT * FROM st_civile WHERE id <> 0 ORDER BY id"
st_civile.CursorType = 0
st_civile.CursorLocation = 2
st_civile.LockType = 1
st_civile.Open()
st_civile_numRows = 0
%>
Tonno Callipo - Buoni prodotti dal Mare - Qualità Italiana .:. { BASE } .:.
Utilizza il form seguente per compilare il tuo curriculum on-line
I campi contrassegnati con * sono obbligatori.
Dati anagrafici
<% If Len(strErrors) > 0 Then Response.Write("" & strErrors & "") %>
