strano inserimento sql con virgolette

[gsflash]

Ciao a tutti, ho fatto due tabelle diverse con i campi di form, uno di "dipendenti" e altro "altri", ho fatto con display: block e altro display:none che è invisibile secondo la scelta del checkbox.
Funziona tutto, ma il problema è l'inserimento, quando clicco il pulsante "conferma" e ha funzionato, ma mi sono accorto che ce una cosa strana nel SQL 2000 perchè ho trovato nome--->" , Gianni" e poi cognome--->" , Rossi" e poi note--->", " ma questo proviene dalla tabella "altri" e invece ho guardato altro record che è stato inserito dalla tabella "dipendente": nome--->" MArco ," e cognome--->"Rossi ," poi note--->" ,", secondo me questo fa inserire tutte e due tabelle, vero? Come si fa??
ho provato a fare response.write per capire sql
ecco:
--------------------------------------------------
1 serpi
1 , sissi
1 , caterina
1 4433
1 3
1 ,
insert into dbo.assegnatario (utente,Cognome,Nome,num_badge,tipologia,note) values ('serpi ',', sissi',', caterina',4433,3,', ')
----------------------------------------------------------------



Non trovate strano??
Attendo la vostra risposta.... Perchè i tempi sono strettissimi

[kalosjo]

La costruzione della query sbaglia qualcosa.

Se posti un po' di codice in più forse ti si può aiutare....

[gsflash]

Originariamente inviato da kalosjo
La costruzione della query sbaglia qualcosa.

Se posti un po' di codice in più forse ti si può aiutare....

ecco il form
----------------------------------------
<form METHOD="POST" ACTION="<%=MM_editAction%>" name="insert" id="insert">
<input name="utente" type="hidden" id="utente" value="<%=(utente.Fields.Item("Cogn").Value)%>">
<table width="450" border="0" align="center" cellpadding="0" cellspacing="0">

<tr>
<td>[img]immagini/spacer.gif[/img]</td>
<td>[img]immagini/spacer.gif[/img]</td>
</tr>
<tr>
<td>[img]immagini/assegna_r1_c1.jpg[/img]</td>
<td>[img]immagini/spacer.gif[/img]</td>
</tr>
<tr>
<td valign="top" bgcolor="#003366"><div align="left"></div>



<input name="tipi" type="checkbox" id="dipen" onClick="document.all.dip.style.display = (document.all.dip.style.display == 'none') ? 'block' : 'none'; document.all.alt.style.display = (document.all.alt.style.display == 'none') ? 'block' : 'none'; document.insert.tipi[1].checked=!document.insert.tipi[1].checked;" value="1" checked >
Dipendente
<input name="tipi" type="checkbox" id="altr" onClick="document.all.alt.style.display = (document.all.alt.style.display == 'none') ? 'block' : 'none'; document.all.dip.style.display = (document.all.dip.style.display == 'none') ? 'block' : 'none'; document.insert.tipi[0].checked=!document.insert.tipi[0].checked;" value="2" >
Altro
</p>
<table width="263" border="0" align="center" id="dip" style="display:block">
<tr>
<td colspan="2"><div align="right">matricola:</div></td>
<td width="167"><input name="matricola" type="text" id="matricola" size="10" maxlength="4"></td>
</tr>
<tr>
<td colspan="2"><div align="right">cognome:</div></td>
<td><input name="cognome" type="text" id="cognome" size="20" maxlength="20"></td>
</tr>
<tr>
<td colspan="2"><div align="right">nome:</div></td>
<td><input name="nome" type="text" id="nome" size="20" maxlength="20"></td>
</tr>
<tr>
<td colspan="2"><div align="right">num.badge:</div></td>
<td>
<div align="left">
<%
Set badget2 = Server.CreateObject("ADODB.Recordset")
badget2.ActiveConnection = MM_autentica_STRING
badget2.Source = "SELECT db_badge.num_badge numero, tipo.descrizione descr FROM db_badge, tipo WHERE db_badge.stato = 'D' and db_badge.cod_tipo = tipo.cod_tipo ORDER BY descr, numero"
badget2.CursorType = 0
badget2.CursorLocation = 2
badget2.LockType = 1
badget2.Open()%>
<select name="cp" >
<%
Do While Not badget2.EOF
%>
<option value="<%=badget2("numero")%>" selected><%=badget2("numero")%> - <%=badget2("descr")%></option>
<%badget2.MoveNext
Loop
%>
</select>
</div></td></tr>
<tr>
<td width="76"><div align="right">note:</div></td>
<td colspan="2"><div align="center">
<textarea name="note" cols="25" id="note"></textarea>
</div></td>
</tr>
<tr>
<td></td>
<td colspan="2"><input type="button" name="Submit" value="Assegna" onClick="Controlla()" ></td>
</tr>
</table>
<table width="263" border="0" align="center" id="alt" style="display:none">
<tr>
<td colspan="2"><div align="right">cognome:</div></td>
<td width="167"><input name="cognome" type="text" id="cognome" size="20" maxlength="20"></td>
</tr>
<tr>
<td colspan="2"><div align="right">nome:</div></td>
<td><input name="nome" type="text" id="nome" size="20" maxlength="20"></td>
</tr>
<tr>
<td colspan="2"><div align="right">num.badge:</div></td>
<td><div align="left">
<%
Set badget2 = Server.CreateObject("ADODB.Recordset")
badget2.ActiveConnection = MM_autentica_STRING
badget2.Source = "SELECT db_badge.num_badge numero, tipo.descrizione descr FROM db_badge, tipo WHERE db_badge.stato = 'D' and db_badge.cod_tipo = tipo.cod_tipo ORDER BY descr, numero"
badget2.CursorType = 0
badget2.CursorLocation = 2
badget2.LockType = 1
badget2.Open()%>
<select name="cp1" >
<%
Do While Not badget2.EOF
%>
<option value="<%=badget2("numero")%>" selected><%=badget2("numero")%> - <%=badget2("descr")%></option>
<%badget2.MoveNext
Loop
%>
</select>
</div></td>
</tr>
<tr>
<td width="76"><div align="right">tipo:</div></td>
<td colspan="2"><div align="left">
<select name="tipologia" id="tipologia" >
<option value="2">Consulente</option>
<option value="3">Fornitore</option>
<option value="4">Cliente</option>
</select>
</div></td>
</tr>
<tr>
<td><div align="right">note:</div></td>
<td colspan="2"><div align="center">
<textarea name="note" cols="25" id="note"></textarea>
</div></td>
</tr>
<tr>
<td></td>
<td colspan="2"><input type="button" name="Submit" value="Assegna" onClick="Controlla()" ></td>
</tr>
</table>
<div align="center">
<div align="center"></div>
</div></td>
<td>[img]immagini/spacer.gif[/img]</td>
</tr>
</table>
[img]ritmenu.gif[/img]
<input type="hidden" name="MM_insert" value="insert">
</form>
----------------------------------------------------------------

e invece per sql

--------------------------------------------------
If (CStr(Request("MM_insert")) = "insert") Then

MM_editConnection = MM_autentica_STRING
MM_editTable = "dbo.assegnatario"
MM_editRedirectUrl = "index.asp"
if request.Form("tipi") <> "display: block" then
MM_fieldsStr = "utente|value|cognome|value|nome|value|cp|value|ti pologia|value|note|value"
MM_columnsStr = "utente|',none,'|Cognome|',none,''|Nome|',none,''| num_badge|none,none,NULL|tipologia|none,none,NULL| note|',none,'vuoto'"
else
MM_fieldsStr = "utente|value|cognome1|value|nome1|value|cp1|value |note1|value"
MM_columnsStr = "utente|',none,'|Cognome|',none,''|Nome|',none,''| num_badge|none,none,NULL|note|',none,'vuoto'"
end if
' 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)))
'RESPONSE.write(i+1 & " " & MM_fields(MM_i+1))
'response.write("
")
Next

'response.end

' 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 request.Form("tipi") <> "2" then
MM_editquery2 = "UPDATE db_badge SET stato = 'A' WHERE num_badge=" & Request.Form("cp")
else
MM_editquery2 = "UPDATE db_badge SET stato = 'A' WHERE num_badge=" & Request.Form("cp1")
end if
----------------------------------------------------------------

all'inizio non c'erano 2 IF e poi ho messo IF request.form("tipi") <> "2" then perchè pensavo che dovranno inserire separatamente, non è cambiato per niente e inserisce tutte e due tabelle di campi.....
Ti ringrazio per la vostra pazienza e so che è lungo ma non ho altra scelta.... grazie

[kalosjo]

Per inserire il codice dovresti usare il tasto CODE, in modo che l'indentazione sia rispettata e si capisce meglio...

[gsflash]

Originariamente inviato da kalosjo
Per inserire il codice dovresti usare il tasto CODE, in modo che l'indentazione sia rispettata e si capisce meglio...

Sinceramente non ho capito bene di quello che intendi... Spiegati meglio....
Scusa
Gabry

[kalosjo]

Il tasto CODE del forum, nei tastini in alto.....

[gsflash]

Originariamente inviato da kalosjo
Il tasto CODE del forum, nei tastini in alto.....

dove sta CODE? ho cercato i tastini in alto CODE, ma dove?

[kalosjo]

Eccolo

[gsflash]

Originariamente inviato da kalosjo
Eccolo

Questo non ne ho mai avuto......

ecco il file allegato.

Poi non riesci a capire i codici?
Dove ho sbagliato?
Gabry

[kalosjo]

Non ci siamo capiti, ma va bene lo stesso....

Il codice che hai postato è comunque troppo lungo e contorto, per cui ci vuole un po' per capirlo....