codice:
For Each Item In Request.Form
strTemp = Item
Select Case strTemp
Case [SELECT] 'qui ho l'elenco di tutte le select del form strDescrSelect = split(Request.Form(strTemp), "|")
If strDescrSelect(0) = "0" then
ValoreCampo = ValoreCampo & "'',"
else
ValoreCampo = ValoreCampo & "'" & Replace(strDescrSelect(1),"'","''") & "',"
End if
NomeCampo = NomeCampo & "," & strTemp & ","
Case [5 TEXT PER IMMETTERE CODICI CHE COMPONGONO UN'UNICA TEXT, QUELLA CHE INSERISCO NEL DB]
If strCodiceOs <> "ok" Then
ValoreCampo = ValoreCampo & "'" & Replace(Request.Form("codiceos"),"'","''") & "',"
NomeCampo = NomeCampo & "codiceos" & ","
strCodiceOs = "ok"
End If
Case [5 TEXT PER IMMETTERE CODICI CHE COMPONGONO UN'UNICA TEXT, QUELLA CHE INSERISCO NEL DB]
If strCodiceOf <> "ok" Then
ValoreCampo = ValoreCampo & "'" & Replace(Request.Form("codiceof"),"'","''") & "',"
NomeCampo = NomeCampo & "codiceof" & ","
strCodiceOf = "ok"
End If
Case [5 TEXT PER IMMETTERE CODICI CHE COMPONGONO UN'UNICA TEXT, QUELLA CHE INSERISCO NEL DB]
If strCodiceOfNot <> "ok" Then
ValoreCampo = ValoreCampo & "'" & Replace(Request.Form("strCodiceOfNot "),"'","''") & "',"
NomeCampo = NomeCampo & "strCodiceOfNot " & ","
strCodiceOf = "ok"
End If
Case [5 TEXT PER IMMETTERE CODICI CHE COMPONGONO UN'UNICA TEXT, QUELLA CHE INSERISCO NEL DB]
If strCodiceOsNot <> "ok" Then
ValoreCampo = ValoreCampo & "'" & Replace(Request.Form("strCodiceOsNot "),"'","''") & "',"
NomeCampo = NomeCampo & "strCodiceOsNot " & ","
strCodiceOf = "ok"
End If
Case [CHECKBOX, IN BASE AL VALORE DEVO INSERIRE NEL DB UNA STRINGA S O N]
If Trim(CStr(Request.form(strTemp))) = "on" then
ValoreCampo = ValoreCampo & "'S',"
Else
ValoreCampo = ValoreCampo & "'N',"
End If
NomeCampo = NomeCampo & "," & strTemp & ","
Case [CHECKBOX, IN BASE AL VALORE DEVO INSERIRE NEL DB 1 o 0]
If Request.form(strTemp) = "on" then
ValoreCampo = ValoreCampo & "1,"
Else
ValoreCampo = ValoreCampo & "0,"
End If
NomeCampo = NomeCampo & "," & strTemp & ","
Case "cmdInvia"
' non faccio nulla
Case Else [TUTTI GLI ALTRI CAMPI TEXT DEL FORM]
ValoreCampo = ValoreCampo & "'" & Replace(Request.Form(strTemp),"'","''") & "',"
NomeCampo = NomeCampo & "," & strTemp & ","
End Select
Next