lo que yo quiero hacer es esto
<%
dim nmesantes
nmesantes=month(dateadd("m",-1,now()))
usuario = session("nombre")
puntodeventa = session("puntoventa")
Fecha = FormatDateTime(Date,2)
nmes = month(fecha)
tiempo= Time()
estado=("pendiente")
nestado=("hecho")
dim estado, nestado, imprimio
set oConexion=server.createobject ("ADODB.CONNECTION")
oConexion.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& server.mappath("db/base.mdb")
sqlstr="select * from servicios_"&nmes&" where id="&request.querystring("id")
set ors=oConexion.execute(sqlstr)
if not ors.eof then
sqlstr1="update servicios_"&nmes&" set estado='" & nestado & "', imprimio= '" & usuario & "',fecha2= '"&Date()&"',hora2='"&Time()&"' where id="&request.querystring("id")
set ors1=oConexion.execute(sqlstr1)
else
sqlstr2="update servicios_"&nmesantes&" set estado='" & nestado & "', imprimio= '" & usuario & "',fecha2= '"&Date()&"',hora2='"&Time()&"' where id="&request.querystring("id")
set ors2=oConexion.execute(sqlstr2)
endif
oConexion.Close
%>
pero algo esta mal y no se que es
