form: dopo inserimento dati nel db chiudi finestra

[naps]

Salve a tutti voi!

Vorrei sapere una cosa,
come posso far in modo che una volta che l'utente
compila un form e clicca su inserisci, mi registri prima i dati nel db
e poi mi chiuda la finestra.
si puo'?
premetto la pagina e' stata costruita con DreamwerMX
percio nell' ACTION della form richiama: [B<%=MM_editAction%>[/B]

vi posto anche il codice che viene richiamato:

<%
' *** Insert Record: set variables

If (CStr(Request("MM_insert")) = "form1") Then

  MM_editConnection = MM_connessione_utenti_STRING
  MM_editTable = "login"
  MM_editRedirectUrl = ""
  MM_fieldsStr  = "nome|value|cognome|value|company|value|citta|value|email|value|nota|value|password|value|attiva|value|dataora|value"
  MM_columnsStr = "nome|',none,''|cognome|',none,''|company|',none,''|citta|',none,''|email|',none,''|nota|',none,''|password|',none,''|attiva|',none,''|data|',none,NULL"

  ' 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
%>

oppure secondo voi devo operare con un'altra tecnica?

scusatemi di questo post un po' lungo...

[naps]

potrei mettere un:

<script language="javascript">
window.close();
</script>

inserendolo nella parte in grassetto :

<%
' *** Insert Record: set variables

If (CStr(Request("MM_insert")) = "form1") Then

  MM_editConnection = MM_connessione_utenti_STRING
  MM_editTable = "login"
  MM_editRedirectUrl = "" 
  MM_fieldsStr  = " nome|value|cognome|value|company|value|c
 itta|value|email|value|nota|value|passwo
rd|value|attiva|value|dataora|value"
  MM_columnsStr = " nome|',none,''|cognome|',none,''|company
 |',none,''|citta|',none,''|email|',none,
 ''|nota|',none,''|password|',none,''|att
iva|',none,''|data|',none,NULL"

  ' 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
%>