Problemas con la insercion de datos

[rezocrew]

hola resulta que tengo el sgte codigo para la conexion y la insercion de datos en una base de datosde un odbc llamado sqlserver


<% dsn_sys = "CL-RRAMIREZ"
dsn_use = "sa"
dsn_pas = "atava6og"
'dsn_tbl = "gen34s2k7"
dsn_tbl = "DBAcu"
my_tpcn = "2"

Set Sys_conn = Server.CreateObject("ADODB.Connection")

select case my_tpcn

case "0" : ' String de Coneccion ODBC ( Oracle -- Sql )

Sys_conn.Open "DSN="& dsn_sys &";", dsn_use , dsn_pas

case "1" : ' String de Coneccion Coneccion Oledb Oracle

Sys_conn.Open "Provider=MSDAORA.1;Data Source="& dsn_sys &";User Id="& dsn_use &";Password="& dsn_pas

case "2" : ' String de Coneccion Coneccion Oledb SQL

Sys_conn.Open "Provider=SQLOLEDB;Data Source="& dsn_sys &";Initial Catalog="& dsn_tbl &";User Id="& dsn_use &";Password="& dsn_pas

end select


Dim Nom, Pass, Listado, Op1, Op2
Nom = Request.Form("nombre")
Pass = Request.Form("pass")
Listado = Request.Form("lista")
Op1 = Request.Form("opcion1")
Op2 = Request.Form("opcion2")

QRY= "insert into C_usuarios (Nombre,Apaterno,Amaterno) values ('&nombre&','&pass&','&lista&') "


Response.Write("<b>Nombre : <b/>"&Nom&"<br/>")
Response.Write("<b>Pass : <b/>"&Pass&"<br/>")
Response.Write("<b>Opcion : <b/>"&Listado&"<br/>")
Response.Write("<b>Interés 1 : <b/>"&Op1&"<br/>")
Response.Write("<b>Interés 2 : <b/>"&Op2)
%>


no se que estare haciendo mal, en la qry C_usuarios es el nombre de la tabla
Nombre, Apaterno y Amaterno son los nombres de las columnas de la tabla C_usuarios y nombre pass y lista son ,los nombres de los imput de la cajas de texto de mi pagina , lo peor es que no me genera ningun error pero cuando reviso la tabla a travez del sql server no hay ningun cambio entonces no se ke sera :( ayudenme por favor.