Llamar sentencia sql desde un boton...

[garciamod270304]

Ante todos amigos del foro, espero esten todos bien. Necesito que al dar click a un boton(Agregar), me ejecute una sentencia sql(Incluir). Este es mi código de prueba para agregar un registro:

<%
Dim VarIdProducto

set con = server.CreateObject("ADODB.Connection")con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & server.MapPath("bdsiop.mdb")
set rs = server.CreateObject("ADODB.Recordset")
sql = "Select * From pedidos Order By id_pedidos"
rs.open sql,con,1,2

VarIdPedido = 1
rs.addnew
rs.fields("id_pedidos") = VarIdPedido
rs.update
rs.close
con.close
Set rs=Nothing
Set con=Nothing
%>