Hola atodos, alguien me puede ayudar con este scrip....estoy loco
<%
'GUARDAR VARIABLE DEL FORMULARIO
Strvar = Request.Form("VF_ID")
'Conectamos a nuestra BD.
set Oconn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject ("ADODB.RecordSet")
oConn.Open "Facturas_Access_2002"
'Creando Instruccion a ejecutar en la Base de Datos
VS_ComandoSQL = " select "
VS_ComandoSQL = VS_ComandoSQL & " id_canasta, "
VS_ComandoSQL = VS_ComandoSQL & " monto "
VS_ComandoSQL = VS_ComandoSQL & " from "
VS_ComandoSQL = VS_ComandoSQL & " FACTURAS "
VS_ComandoSQL = VS_ComandoSQL & " WHERE"
VS_ComandoSQL = VS_ComandoSQL & " ID_CANASTA='"& Strvar &"'"
'VS_ComandoSQL = VS_ComandoSQL & " order by"
'VS_ComandoSQL = VS_ComandoSQL & " clcb_nmb "
'response.write(VS_ComandoSQL)
'Ejecutando Instruccion
set RS_Cursor = oCONN.Execute(VS_ComandoSQL)
VS_MsgErr = ""
'Comprobado si ha habido error al ejecutar la Instruccion
if oCONN.errors.count > 0 then
VS_MsgErr = replace(Err.Description," ","_")
else
'Si no hay datos se devuelve false
if RS_Cursor.BOF and RS_Cursor.EOF then
Vs_MsgErr = "No_Existen_Registros"
else
'Identificando la cantidad de registros procesados
VN_Indice = 0
RS_Cursor.MoveFirst
do while not RS_Cursor.EOF
VN_indice = VN_indice + 1
'response.write(RS_Cursor.Fields("clcb_cdg&qu ot;)+"-")
'response.write(RS_Cursor.Fields("clcb_nmb&qu ot;)+"<br>")
RS_Cursor.MoveNext
loop
'Tomo los datos recogidos de la BdD
VN_NumRows = VN_indice
RS_Cursor.MoveFirst
VS_Data = RS_Cursor.GetRows(VN_NumRows)
end if
end if
%>
Necesito, que me digan si esta guardando bien la variable del formulario...
