Inserindo no DB sem botão

[Superwagtel 1]

Olá pessoal, tenho um DB access e preciso fazer com que o usuario insira seus dados no DB sem o usu do botão no <form>

 

Sei que o código para inserir com o botão é assim:

<%If (CStr(Request("MM_insert")) = "form1") Then  If (Not 
MM_abortEdit) Then    ' execute the 
insert    Dim MM_editCmd    Set MM_editCmd 
= Server.CreateObject ("ADODB.Command")    
MM_editCmd.ActiveConnection = MM_Celtaluz_STRING    
MM_editCmd.CommandText = "INSERT INTO EmailMarketingContador (Nome, Empresa, 
email, Fone) VALUES (?, ?, ?, ?)"    MM_editCmd.Prepared = 
true    MM_editCmd.Parameters.Append 
MM_editCmd.CreateParameter("param1", 202, 1, 50, Request.Form("nome")) ' 
adVarWChar    MM_editCmd.Parameters.Append 
MM_editCmd.CreateParameter("param2", 202, 1, 50, Request.Form("empresa")) ' 
adVarWChar    MM_editCmd.Parameters.Append 
MM_editCmd.CreateParameter("param3", 202, 1, 255, Request.Form("email")) ' 
adVarWChar    MM_editCmd.Parameters.Append 
MM_editCmd.CreateParameter("param4", 202, 1, 255, Request.Form("fone")) ' 
adVarWChar    MM_editCmd.Execute    
MM_editCmd.ActiveConnection.Close    ' append the query 
string to the redirect URL    Dim 
MM_editRedirectUrl    MM_editRedirectUrl = "http://www.wagtel.com/celtaluz2/pg_produtos.asp?Pagina=Sports"    
If (Request.QueryString <> "") Then      If 
(InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) 
Then        MM_editRedirectUrl = 
MM_editRedirectUrl & "?" & 
Request.QueryString      
Else        MM_editRedirectUrl = 
MM_editRedirectUrl & "&" & 
Request.QueryString      End 
If    End If    
Response.Redirect(MM_editRedirectUrl)  End IfEnd If%>

Mas como faço para inserir os dados sem o botão, semdo que os dados virão por URL?

 

[xanburzum 169]

este dados serão preenchidos em um formulário ?

se for vc pode fazer com o evento onblur do último campo, ou seja, quando ele sair do último campo vc executa a função. Você pode fazer de diversas formas.