Principiante !!!! AYUDA!!!
Publicado por Juan Manuel (4 intervenciones) el 06/08/2004 15:58:33
hola estoy empezando con ASP y Vbscript
En el Head puse esta funcion que llena una tabla desde un store procedure de sql server y la llamo desde un boton con el metodo onClick
Esta funcion funciona di la dejo en el BODY pero necesito llamarla con el boton
eN EL body LA UTLIZABA CON <% %>
Y me dice error de pagian en el browser
alguien puede ayudarme ????????
La funcion es la siguinte
<SCRIPT LANGUAGE = "VBScript">
SUB llenarGrilla()
Dim cn,cm ,rs,cont
Set cn = Server.CreateObject("ADODB.Connection")
Set cm = Server.CreateObject("ADODB.Command")
cn.open "DRIVER={SQL Server};SERVER=SistemasJulio;UID=SA;PWD=xxx;DATABASE=telefonos"
cm.CommandText = "s_Find_Internos"
cm.CommandType = adCmdStoredProc
Set cm.ActiveConnection = cn
rs.CursorLocation = adUseClient
rs.Open cm, , adOpenForwardOnly, adLockReadOnly
Set rs.ActiveConnection = Nothing
cont = 0
rs.MoveFirst
do while not(rs.EOF)
<tr>
<td><span ID="Interno"> = rs.Fields("int_Interno") </span></td>
<td><span ID="Servicio"> = rs.Fields("ser_Descripcion") </span></td>
<td><span ID="Division"> = rs.Fields("int_division") </span></td>
<td><span ID="Piso"> = rs.Fields("int_ubicacion") </span></td>
</tr>
rs.MoveNext
cont = cont + 1
loop
cn.close
END SUB
</SCRIPT>
En el Head puse esta funcion que llena una tabla desde un store procedure de sql server y la llamo desde un boton con el metodo onClick
Esta funcion funciona di la dejo en el BODY pero necesito llamarla con el boton
eN EL body LA UTLIZABA CON <% %>
Y me dice error de pagian en el browser
alguien puede ayudarme ????????
La funcion es la siguinte
<SCRIPT LANGUAGE = "VBScript">
SUB llenarGrilla()
Dim cn,cm ,rs,cont
Set cn = Server.CreateObject("ADODB.Connection")
Set cm = Server.CreateObject("ADODB.Command")
cn.open "DRIVER={SQL Server};SERVER=SistemasJulio;UID=SA;PWD=xxx;DATABASE=telefonos"
cm.CommandText = "s_Find_Internos"
cm.CommandType = adCmdStoredProc
Set cm.ActiveConnection = cn
rs.CursorLocation = adUseClient
rs.Open cm, , adOpenForwardOnly, adLockReadOnly
Set rs.ActiveConnection = Nothing
cont = 0
rs.MoveFirst
do while not(rs.EOF)
<tr>
<td><span ID="Interno"> = rs.Fields("int_Interno") </span></td>
<td><span ID="Servicio"> = rs.Fields("ser_Descripcion") </span></td>
<td><span ID="Division"> = rs.Fields("int_division") </span></td>
<td><span ID="Piso"> = rs.Fields("int_ubicacion") </span></td>
</tr>
rs.MoveNext
cont = cont + 1
loop
cn.close
END SUB
</SCRIPT>
Valora esta pregunta


0