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?