ayuda muy urgente con variable

[hugorei]

Estoy trabajando con dos variables de session :
session ("variable") = regUsername
Session("nombre") =variable

Una rescata el nombre del usuario la otra rescata el nombre de un producto que en realidad es un numero .

uan vez que tengo la variable la trabajo a nivel local asi :

Dim sNombre

sNombre=Session("Nombre")

Luego esta variable la imprimo y me sale el valor correctamente , el tema surge cuando quiero insertar esta variable a una base de datos , no me la ingresa es decir no me toma ningun valor en la base de datos , les muestro el codigo completo para que me digan por favor donde esta el error, que hago mal ???

<%Response.Buffer = true
session ("variable") = regUsername
Session("nombre") =variable

Dim sNombre

sNombre=Session("Nombre")

%>



<%

dim cnn,rst
' Creamos la conexión a la base de datos sin DSN
set cnn = Server.CreateObject("ADODB.Connection")
set rst = Server.CreateObject("ADODB.RecordSet")
cnn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Server.MapPath("base.mdb"))
sqltext = "SELECT * FROM preguntas"
sql="select max(id) from preguntas"

rst.Open sqltext,cnn,3,3

'Recogemos los datos y valido el campo pregunta

usuario="variable"
ProductoID="sNombre"
Pregunta=Request.Form("pregunta")


if pregunta = "" then
error = "Debe completar todos los datos."
Response.Write error


Response.End
end if

'Si está todo correcto, procedemos a ingresar los datos a la base de datos

rst.AddNew
rst("usuario")= Categoria / aca lo mismo en blanco /
rst("producto_id") =sNombre / aca nada en blanco /
rst("pregunta") = pregunta / esto me lo toma ok viene de un formulario/


rst.update

'Terminamos e imprimimos un mensaje
Response.Write "su pregunta fue ingresada satifactoriamente"
%>