Error en conexion ???

[Gaby_Corr]

HOla que tal, de nuevo con problemas, solo me gustaria saber que es lo que tengo mal en el siguiente codigo,y gracias adelantadas :



Dim cn
Dim rs
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & ";Data Source=" & Server.Mappath("\db\" + "stands.mdb") & ";" & "Persist Security Info=False;Jet OLEDB:Database Password="

rs.ActiveConnection = cn
rs.Source = "SELECT * FROM stands " & " WHERE stand IN (" & request.form("combo") & ")"
cn.Execute "UPDATE stands Set ocupado=1" & " WHERE stand IN (" & request.form("combo") & ")"

rs.CursorType = 2
rs.CursorLocation = 2
rs.LockType = 3
rs.open
do while not rs.EOF
descrip = rs("pabellon")
loop
rs.Close
Set rs = Nothing
,
ya que me marca error en la linea de :rs.ActiveConnection = cn, y me pone que
Object required: ''

que puede ser ???

[jasp22]

no has instanciado el recordset.

set rs = server.createobject("ADODB.RecordSet").

Un saludo.

[orharo2003]

Dim rs quien es ?????

[jasp22]

dim rs
¿Que quien es?¿Diras que es?. Es la forma de declarar una variable en asp.

[orharo2003]

ups, si no me dices ni en cuenta

por favor master, lo que me refiero es de que rs donde está ????? , mejor usar option explicit

<% OPTION EXPLICIT %>

para no caer en esto.

[Gaby_Corr]

pues que me ha marcado error, de nuevo !!

Error Type:
Microsoft VBScript compilation (0x800A03F2)
Expected identifier
/expos/HTML/enviar.asp, line 78, column 48
set rs = server.createobject("ADODB.RecordSet").


Dim rs
Set cn = Server.CreateObject("ADODB.Connection")
set rs = server.createobject("ADODB.RecordSet").

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & ";Data Source=" & Server.Mappath("\db\" + "stands.mdb") & ";" & "Persist Security Info=False;Jet OLEDB:Database Password="


rs.Execute "SELECT * FROM stands " & " WHERE stand IN (" & request.form("combo") & ")"

[orharo2003]

entonces como te que do el codigo completo ?

[Gaby_Corr]

ups, tenia un punto de mas, pero tengo esto, pero no se que tengo mal

Dim cn
Dim rs
Set cn = Server.CreateObject("ADODB.Connection")
set rs = server.createobject("ADODB.RecordSet")
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & ";Data Source=" & Server.Mappath("\db\" + "stands.mdb") & ";" & "Persist Security Info=False;Jet OLEDB:Database Password="

rs.Execute "SELECT * FROM stands " & " WHERE stand IN (" & request.form("combo") & ")"
cn.Execute "UPDATE stands Set ocupado=1" & " WHERE stand IN (" & request.form("combo") & ")"

do while not rs.EOF
descrip = rs("pabellon")
loop
rs.Close
Set rs = Nothing

[orharo2003]

Iniciado por Gaby_Corr

ups, tenia un punto de mas, pero tengo esto, pero no se que tengo mal

Dim cn
Dim rs
Set cn = Server.CreateObject("ADODB.Connection")
set rs = server.createobject("ADODB.RecordSet")
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & ";Data Source=" & Server.Mappath("\db\" + "stands.mdb") & ";" & "Persist Security Info=False;Jet OLEDB:Database Password="

rs.Execute "SELECT * FROM stands " & " WHERE stand IN (" & request.form("combo") & ")"
cn.Execute "UPDATE stands Set ocupado=1" & " WHERE stand IN (" & request.form("combo") & ")"

do while not rs.EOF
descrip = rs("pabellon")
loop
rs.Close
Set rs = Nothing

si lo quitas que pasa ????

[Gaby_Corr]

si quito el select, no me hace nada

[orharo2003]

Te dejo una referencia : http://www.aspfacil.com/articulos/040401.asp

Dim cn
Dim rs
Set cn = Server.CreateObject("ADODB.Connection")
set rs = server.createobject("ADODB.RecordSet")
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & ";Data Source=" & Server.Mappath("\db\" + "stands.mdb") & ";" & "Persist Security Info=False;Jet OLEDB:Database Password="
sql="SELECT * FROM stands " & " WHERE stand IN (" & request.form("combo") & ")"

rs.open sql,cn

cn.Execute "UPDATE stands Set ocupado=1" & " WHERE stand IN (" & request.form("combo") & ")"

do while not rs.EOF
descrip = rs("pabellon")
loop
rs.Close
Set rs = Nothing

ahora si.

[Gaby_Corr]

bueno asi lo puse, pero si me hace el update, pero me aparece una pagina que ha excedido el tiempo de respuesta, algo asi, que puede ser, ??'


Error Type:
Active Server Pages, ASP 0113 (0x80004005)
The maximum amount of time for a script to execute was exceeded. You can change this limit by specifying a new value for the property Server.ScriptTimeout or by changing the value in the IIS administration tools.

[orharo2003]

Iniciado por orharo2003

Te dejo una referencia : http://www.aspfacil.com/articulos/040401.asp

Dim cn
Dim rs
Set cn = Server.CreateObject("ADODB.Connection")
set rs = server.createobject("ADODB.RecordSet")
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & ";Data Source=" & Server.Mappath("\db\" + "stands.mdb") & ";" & "Persist Security Info=False;Jet OLEDB:Database Password="
sql="SELECT * FROM stands " & " WHERE stand IN (" & request.form("combo") & ")"

rs.open sql,cn

cn.Execute "UPDATE stands Set ocupado=1" & " WHERE stand IN (" & request.form("combo") & ")"

do while not rs.EOF
descrip = rs("pabellon")
rs.movenext
loop
rs.Close
Set rs = Nothing

ahora si.

Entra en un ciclo sin fin.
That's it !!

[Gaby_Corr]

ok, eso era!!!!!

Muchisimas gracias!!! ORHARO !!!!!

saludos