Salve ragazzi avrei la ncessità di inserire dei dati in una tabella.
Il problema nasce dal fatto chei i dati vengono mostrati all'interno di un form e accanto a ognuno di loro ho un check.
Questo perchè nella tabella dovranno essere inseriti solo i dati con il check fleggato.
Poichè avevo trvato la soluzione per eliminare i dati con il check (Funziona tutto alla perfezione) ho provato ad adattare lo script per l'inserimento ma mi da errore.

La tabella ha i seguenti campi
id_login-----contatore
username------testo
password------testo
opzione-------si/no

Questo è il form:
codice:
<form action="inserisci.asp" method="post" name="form1" target="_self" id="form1" onsubmit="return Controlla(this)">
      <table width="300" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td colspan="3" align="center" class="titoli">Gestione dati tabella utenti </td>
        </tr>
        <tr>
          <td colspan="3" align="left" class="testo">[img]immagini/null.gif[/img]</td>
        </tr>
        <tr>
          <td colspan="3" align="right" class="testo">Inserisci nuovo Utente </td>
        </tr>
        <tr>
          <td colspan="3" align="left" class="testo">[img]immagini/null.gif[/img]</td>
        </tr>
        <tr>
          <td width="130" align="left" class="testo">Username</td>
          <td width="130" align="left" class="testo">Password</td>
          <td width="40" align="left" class="testo"></td>
        </tr>
        <tr>
          <td colspan="3" align="left" class="testo">[img]immagini/null.gif[/img]</td>
          </tr>
        <% 
While ((Repeat1__numRows <> 0) AND (NOT rsLogin.EOF)) 
%>
		<tr>
<td align="left" class="testo"><label>
<input name="username" type="text" class="testo" id="username" value="<%=(rsLogin.Fields.Item("username").Value)%>" size="20" />
</label></td>
          <td align="left" class="testo"><label>
          <input name="password" type="text" class="testo" id="password" value="<%=(rsLogin.Fields.Item("password").Value)%>" size="20" />
          </label></td>
          <td align="center" class="testo"><label>
            <input name="id_login" type="checkbox" id="id_login" value="<%=(rsLogin.Fields.Item("id_login").Value)%>" />
          </label></td>
        </tr>
        
        <tr>
          <td colspan="3" align="left" class="testo">[img]immagini/null.gif[/img]</td>
</tr>
<% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  rsLogin.MoveNext()
Wend
%>
        <tr>
          <td colspan="3" align="left" class="testo">[img]immagini/null.gif[/img]</td>
        </tr>
        <tr>
          <td colspan="3" align="right" class="testo" height="10"><input name="chk" type="checkbox" id="chk" onClick="checkAll(this.checked)">
            <span id="sel">Seleziona tutti</span></td>
          </tr>
        <tr>
          <td colspan="3" align="left" class="testo">[img]immagini/null.gif[/img]</td>
        </tr>
        <tr>
          <td colspan="3" align="center" class="testo"><label>
            <input name="elimina" type="submit" class="testo" id="elimina" value="Inserisci i dati selezionati" />
          </label></td>
        </tr>
      </table>
</form>
Mentre questa è la pagine che fa l'inserimento dei dati:
codice:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%
  ' Creo un oggetto Connection
  Dim cn
  Set cn = Server.CreateObject("ADODB.Connection")

  ' Apro la connessione
  cn.Open str_cn

  ' Recupero gli ID dal modulo HTML
  Dim id_login
  id_login = Request.Form("id_login")

  ' Verifico che vengano indicati dei record da cancellare
  If id_login = "" Then
    Response.Write "Nessun dato specificato"
  Else
    ' Dichiaro le variabili che mi servono
    Dim i, x
    ' Instanzio un contatore numerico
    i = 0
    ' Divido i dati recuperati in un array di stringa
    x = Split(id_login, ", ")
    ' Cancello con un ciclo tutti i dati specificati
    For i = 0 to UBound(x)
      cn.Execute = "INSERT INTO login (password,username) VALUES '('"& request.form("username") &"', '"& request.form("password") &"')'
 WHERE id_login = " & x(i)
    Next
    ' Lancio un messaggio a video
    Response.Write "Inserimento avvenuto con successo"
  End If
  ' Un po di pulizia...
  cn.Close
  Set cn = Nothing
%>
Lerrore che mi restituisce è il seguente (SQL Errata):
codice:
Microsoft VBScript compilation error '800a0409' 

Unterminated string constant 

/check/inserisci.asp, line 27 

cn.Execute = "INSERT INTO login (password,username) VALUES '('"& request.form("username") &"', '"& request.form("password") &"')'
Potreste cortesemente aiutarmi?