Ciao ragazzi non riesco a fare una cosa, ho questo form in asp:
<%@LANGUAGE="VBSCRIPT"%>
<%
' *** Edit Operations: declare variables
Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd
Dim MM_editConnection
Dim MM_editTable
Dim MM_editRedirectUrl
Dim MM_editColumn
Dim MM_recordId
Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim MM_i
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
MM_abortEdit = false
' query string to execute
MM_editQuery = ""
%>
<%
' *** Insert Record: set variables
If (CStr(Request("MM_insert")) = "form1") Then
MM_editConnection = MM_prova_STRING
MM_editTable = "palermo"
MM_editRedirectUrl = "grazie.html"
MM_fieldsStr = "nome|value|cognome|value|natoa|value|provnat|valu e|giornonat|value|residentea|value|viares|value|pr ovres|value|tel1|value|tel2|value|luogo|value|data |value"
MM_columnsStr = "nome|',none,''|cognome|',none,''|natoa|',none,''| provnat|',none,''|giornonat|',none,''|residentea|' ,none,''|viares|',none,''|provres|',none,''|tel1|n one,none,NULL|tel2|none,none,NULL|luogo|',none,''| data|',none,''"
' create the MM_fields and MM_columns arrays
MM_fields = Split(MM_fieldsStr, "|")
MM_columns = Split(MM_columnsStr, "|")
' set the form values
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i)))
Next
' append the query string to the redirect URL
If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
End If
End If
End If
%>
<%
' *** Insert Record: construct a sql insert statement and execute it
Dim MM_tableValues
Dim MM_dbValues
If (CStr(Request("MM_insert")) <> "") Then
' create the sql insert statement
MM_tableValues = ""
MM_dbValues = ""
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_formVal = MM_fields(MM_i+1)
MM_typeArray = Split(MM_columns(MM_i+1),",")
MM_delim = MM_typeArray(0)
If (MM_delim = "none") Then MM_delim = ""
MM_altVal = MM_typeArray(1)
If (MM_altVal = "none") Then MM_altVal = ""
MM_emptyVal = MM_typeArray(2)
If (MM_emptyVal = "none") Then MM_emptyVal = ""
If (MM_formVal = "") Then
MM_formVal = MM_emptyVal
Else
If (MM_altVal <> "") Then
MM_formVal = MM_altVal
ElseIf (MM_delim = "'") Then ' escape quotes
MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"
Else
MM_formVal = MM_delim + MM_formVal + MM_delim
End If
End If
If (MM_i <> LBound(MM_fields)) Then
MM_tableValues = MM_tableValues & ","
MM_dbValues = MM_dbValues & ","
End If
MM_tableValues = MM_tableValues & MM_columns(MM_i)
MM_dbValues = MM_dbValues & MM_formVal
Next
MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"
If (Not MM_abortEdit) Then
' execute the insert
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
If (MM_editRedirectUrl <> "") Then
Response.Redirect(MM_editRedirectUrl)
End If
End If
End If
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>MODULO DI PARTECIPAZIONE ALLA SELEZIONE</title>
<style type="text/css">
<!--
.style1 {font-family: Arial, Helvetica, sans-serif}
-->
</style>
</head>
<body>
<form id="form1" name="form1" method="POST" action="<%=MM_editAction%>">
<p align="center" class="style1">MODULO DI PARTECIPAZIONE ALLA SELEZIONE</p>
<p align="center" class="style1">DOMANDA DI PARTECIPAZIONE ALLA SELEZIONE AD EVIDENZA PUBBLICA PER L' ASSUNZIONE DI OPERATORI DI ESERCIZIO, PARAMETRO 140, PRESSO L' AZIENDA SICILIANA TRASPORTI S.P.A.</p>
<p align="left" class="style1">Il/la sottoscritto/a, _______________________________________________</p>
<p align="left" class="style1">CHIEDE:</p>
<p align="left" class="style1">di partecipare alla selezione ad evidenza pubblica per l'assunzione di n. Agenti, con contratto a tempo determinato, sia a tempo pieno che parziale, nella figura professionale di operatore di esercizio, parametro retributivo 140 delle tabelle nazionali delle qualifiche del personale addetto ai pubblici servizi di trasporto di cui al CCNL Autoferrotranvieri ed Internavigatori del 27.11.2000. A tal fine, consapevole delle conseguenze previste per coloro che rendano dichiarazioni false o inesatte ai sensi della normativa vigente, alla data di scadenza del termine utile per la presentazione delle domande di partecipazione, sotto la propria responsabilità dichiara:</p>
<p align="left" class="style1">1) di chiamarsi:</p>
<span class="style1">Nome:
<label>
<input name="nome" type="text" size="30" />
</label>
Cognome:
<label>
<input name="cognome" type="text" size="30" />
</label>
</span>
<p class="style1">2) di essere nato/a a:
<label>
<input name="natoa" type="text" size="30" />
</label>
Prov.
<label>
<input name="provnat" type="text" size="10" />
</label>
il giorno:
<label>
<input type="text" name="giornonat" />
</label>
</p>
<p class="style1">3) di essere residente a:
<label>
<input name="residentea" type="text" size="35" />
</label>
via:
<label>
<input name="viares" type="text" size="40" />
</label>
Prov.
<label>
<input name="provres" type="text" size="10" />
</label>
</p>
<p class="style1">Tel1:
<label>
<input name="tel1" type="text" size="30" />
</label>
Tel2:
<label>
<input name="tel2" type="text" size="30" />
</label>
</p>
<p class="style1">4) di essere in possesso della cittadinanza comunitaria europea;</p>
<p class="style1">5) di avere il godimento dei diritti civili e politici;</p>
<p class="style1">6) di non aver subito condanne penali che comportino l’interdizione perpetua o temporanea dai pubblici uffici, condanne penali per delitto non colposo punito con pena detentiva e di non essere destinatario di provvedimenti che prevedano l’applicazione di misure di prevenzione;</p>
<p class="style1">7) di essere in possesso della patente di guida di categoria D;</p>
<p class="style1">8) di essere in possesso certificato di abilitazione professionale di tipo DK ovvero di carta di qualificazione del conducente CQC;</p>
<p class="style1">9) di essere in possesso del diploma di scuola media inferiore se cittadino italiano o di titolo di studio equipollente se cittadino di altra Nazione comunitaria;</p>
<p class="style1">10) di non avere compiuto il quarantesimo anno di età;</p>
<p class="style1">11) di possedere tutti i predetti requisiti alla data di scadenza del termine utile per la partecipazione alla selezione di cui trattasi.</p>
<p class="style1">Il sottoscritto dichiara, inoltre, di accettare, senza riserva alcuna, i termini e le condizioni previsti dal bando di selezione ed autorizza l’Azienda Siciliana Trasporti S.p.A. ad utilizzare i dati indicati nella presente al fine della selezione di cui trattasi e per gli usi previsti dalle vigenti disposizioni che disciplinano il rapporto di lavoro ai sensi della Legge 675/1996 e del D.Lgs. 196/2003.</p>
<p class="style1">Luogo:
<label>
<input name="luogo" type="text" size="30" />
</label>
Data:
<label>
<input name="data" type="text" readonly value="<%= Date %>" size="30" />
</label>
</p>
<p class="style1"></p>
<p class="style1">In fede: ___________________________________</p>
<p class="style1"></p>
<p class="style1">Stampa questa pagina e poi invia il form:
<input type="submit" name="Submit" value="Invia" />
</p><p class="style1">
<label></label>
<input type="hidden" name="MM_insert" value="form1">
</p>
</form>
</body>
</html>
------------------------
Come faccio a creare una pagina di conferma dati dove viene scritto il nome cognome, telefono e ID del db in access?? le ho provate tutte ma mi da sempre errore.
Aiutatemi x favore.
grazie
p.
Rispondi quotando
