Form Asp Aiuto!!!

[Mems]

Dalle opzioni avanzate di explorer TOGLI la spunta dalla voce Mostra messaggi di errore HTTP brevi.

[peppe606]

adesso mi da questo errore:

ADODB.Recordset error '800a0e7d'

Connessione chiusa o non valida in questo contesto. Impossibile utilizzarla per eseguire l'operazione.

/sito/palermo/grazie.asp, line 11

[Mems]

<%@ Language="VBScript" %>
<% Option Explicit %>
<%
Dim ConnectionString
ConnectionString = ("DRIVER={Microsoft Access" &_
"Driver (*.mdb)};DBQ=" &_
"/palermo/db1.mdb;")

DIM objConn
set objConn = server.createObject("ADODB.Connection")
objConn.open ConnectionString

DIM objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open "NOME_DELLA_TABELLA_DEL_DB", objConn, 3, 3

objRS.AddNew
objRS("nome") = Request.Form("nome")
objRS("cognome") = Request.Form("cognome")
objRS("data") = Date()
objRS.Update

DIM bookmark
bookmark = objRS.absolutePosition
objRS.Requery
objRS.absolutePosition = bookmark

DIM strCustomerID
strCustomerID = objRS("ID")
%>



Grazie per essersi registrato, questo è il Suo ID: <% =strCustomerID %></p>

<%
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>

[peppe606]

adesso dice questo errore, ma porca tro...:


Microsoft OLE DB Provider for ODBC Drivers error '80040e07'

[Microsoft][Driver ODBC Microsoft Access] Tipi di dati non corrispondenti nell'espressione criterio.

/sito/palermo/index.asp, line 115




la riga sarebbe questa:

MM_editCmd.Execute

[Mems]

Sarò cecato, ma quella riga che dici tu nel codice che hai postato non la vedo.

[peppe606]

è sull'index no sulla pagina di conferma, questa:

<%@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.asp"
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 <-------------------questa!
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&agrave; 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&rsquo;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&rsquo;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&agrave;;</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&rsquo;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>

[Mems]

Mi si impallano gli occhi a forza di vedere MM_