El archivo script en gambas: consulta.cgi
#!/usr/bin/env
gbw2
<%
USE
"gb.db"
USE
"gb.db.sqlite3"
Dim
myreqnombre
as
String
Dim
myreqapellido
as
String
dim
conexion
as
connection
dim
tablacontactos
as
result
dim
sentencia
as
string
myreqnombre
=
Request["nombre"]
myreqapellido
=
Request["apellido"]
conexion=new
connection
conexion.type="sqlite3"
conexion.host="/var/www/base"
conexion.name="agenda"
conexion.open()
if
error
then
print
"Error
al conectarse a la base de datos"
conexion=null
else
print
"<html><body>"
if
myreqnombre<>""
then
print
"El
dato pasado es el nombre..."
print
myreqnombre
print
"<br>"
sentencia="Select
* from lista where nombre like '%"
&
myreqnombre
&
"%'"
print
"<br>
La sentencia que ejecuto es: "
&
sentencia
&
"<br>"
tablacontactos=conexion.Exec(sentencia)
print
"Numero
de registros: " &
tablacontactos.count
&
"<br>"
print
"<TABLE
BORDER=\"1\">"
print
"<TR>"
print
"<th>"
&
tablacontactos["nombre"]
&
"</th>"
&
"<th>"
&
tablacontactos["apellido"]
&
"</th>"
&
"<th>"
&
tablacontactos["telefono"]
&
"</th>"
print
"</TR>"
tablacontactos.movenext()
loop
print
"</TABLE>
"
endif
if
myreqapellido<>""
then
print
"El
dato pasado es el apellido..."
print
myreqapellido
print
"<br>"
sentencia="Select
* from lista where apellido like '%"
&
myreqapellido
&
"%'"
print
"<br>
La sentencia que ejecuto es: "
&
sentencia
&
"<br>"
tablacontactos=conexion.Exec(sentencia)
print
"Numero
de registros: " &
tablacontactos.count
&
"<br>"
print
"<TABLE
BORDER=\"1\">"
do
while
tablacontactos.Available
print
"<TR>"
print
"<th>"
&
tablacontactos["nombre"]
&
"</th>"
&
"<th>"
&
tablacontactos["apellido"]
&
"</th>"
&
"<th>"
&
tablacontactos["telefono"]
&
"</th>"
print
"</TR>"
tablacontactos.movenext()
loop
print
"</TABLE>
"
endif
if
myreqapellido=""
and
myreqnombre=""
then
Print
"Debe
de escribir un criterio"
&
"<br>"
endif
print
"<a
HREF=\"http://127.0.0.1/inicio.html\">
Ir al Inicio</A>"
print
"</body></html>"
%>
Varias cosas a comentar:
- Los script para web, no admiten comentarios, (por eso no he comentado nada del código) por que se genera un error en el servidor y no ejecuta el script
- La orden “USE” debe de ir en mayúscula. Esta orden indica los componentes que vamos a usar en el programa
- La primera línea “#!/usr/bin/env gbw2” indica al servidor que estamos ejecutando un script del tipo de gambas2
- Con <% y %> indicamos que empiezan órdenes en el lenguaje Basic
Captura de pantalla:
No hay comentarios:
Publicar un comentario