ayuda muy urgente con variable

[lexus]

no se si sea por esto pero tienes un espacio donde te puse de color rojo, depronto es por esto qeu no te funciona.. intenta sin el espacio y nos dices a ver que pasa..

otra cosa que te recomiendo que uses es option explicit asi sabras si hay variables mal definidas o repetidas o algo asi..



<%Response.Buffer = true
session ("variable") = regUsername ' asi: session("variable")
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

' no se estas asignaciones porqqeu las haces con comillas, no deberian estar 'en comillas porque las toma como si fueran cadenas no variables

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"
%>