Recuperación Agenda
viernes, 04 de octubre de 2013

ANTARES
usuario: 14247575H
clave: 06albert

For i=1 To Len(coordinador)
valor=Asc(Mid(coordinador,i,1))
If valor>64 And valor<123 then
coordinador=coordinador&Mid(coordinador,i,1)
End if
Next

EXPEDIENTE ALBERTO TACHON
http://gestion.ehu.es/gaur
por google: gaur
resultado: g.a.u.r.
usuario : dni alberto (sin letra) 16084040
pass: 99999999

filter:shadow(color=black);

http://www.desarrolloweb.com/comunidad/panel-control/
flissbis@gmail.com
bisfliss

writing-mode:tb-rl;filter:flipv fliph;

http://www.maderasardu.com/ubicacion.htm

Editplus 3 Registration code:-
Name: mydaj[ROR]
S/n: B4FAA-123D8-31REA-AEOD4-D4R48




opcion 1



opcion 2



opcion 3


Aquí hay un body con su onunload




Emperador de los Franceses

Function ReadJPG(file)
Const maxJpegSearch = 2048
Dim fso, ts, s, HW, nbytes, x, SOF
HW = Array("","")
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile(Server.MapPath("/" & file), 1)
s = ts.Read(maxJpegSearch)
ts.Close
for x = 1 to Len(s) - 1
if Asc(Mid(s, x, 1)) = &hFF then
if Asc(Mid(s, x + 1, 1)) >= &hC0 AND _
Asc(Mid(s, x + 1, 1)) <= &hCF AND _
Asc(Mid(s, x + 1, 1)) <> &hC4 then
SOF = x
exit for
end if
end if
next
if SOF > 0 then
s = Mid(s, SOF + 5, 4)
HW(0) = HexToDec(HexAt(s,3) & HexAt(s,4))
HW(1) = HexToDec(HexAt(s,1) & HexAt(s,2))
else
HW(0) = -1
HW(1) = -1
end if
ReadJPG = HW
End Function

graphic="images/learnaspiconmain.gif"
HW = ReadImg(graphic)
Response.Write graphic & " Dimensions: " & HW(0) & "x" & HW(1) & "
"
response.write " response.write height=""" & HW(0) & """
response.write width=""" & HW(0) & "">"

http://ryanfait.com/resources/footer-stick-to-bottom-of-page/
* {
margin: 0;
}
html, body {
height: 100%;
}
.wrapper {
min-height: 100%;
height: auto !important;
height: 100%;
margin: 0 auto -4em;
}
.footer, .push {
height: 4em;
}
a partir de aquí viene código html, que se visualiza como tal, pero que si se mira el código en editar...






Your website content here.





Copyright (c) 2008






http://10.96.113.62/CT/socket.asp

CreateObject("MSWinsock.Winsock")

http://www.elguruprogramador.com.ar/
/articulos/
introduccion-a-los-sockets-en-php.htm

http://www.comsoltech.com/products/
/components/aspsocketobjects/

set s = createObject("comSocket.SocketObj")
if not s.connect("www.yahoo.com",80) then
errMsg = "Socket connected OK"
else
errMsg = "Error is " & s.err
end if

http://www.programacionweb.net/articulos
/articulo/?num=159

Todo lo relacionado con:
show processlist
show tables from espejo
show databases

El código va de...

Set conn = Server.CreateObject("ADODB.connection")
Set rs = Server.CreateObject("ADODB.Recordset")
on error resume next
conn.Open "espejo"
if conn.State=0 then
response.write "Conexión KO"
else
response.write "Conexión OK"
end if
response.write "

"
'sql="show databases"
'sql="show processlist"
sql="show tables from espejo"
rs.activeconnection=conn
rs.open sql

For i = 0 to RS.Fields.Count - 1
Response.Write RS(i).name & "-"
Next

response.write "
"

while not rs.eof

For i = 0 to RS.Fields.Count - 1
Response.Write RS(i) & "-"
Next
response.write "
"

rs.movenext
wend
rs.close
conn.close

Código para comprobar si está abierta una conexión

Set conn = Server.CreateObject("ADODB.connection")
on error resume next
conn.Open "winest"
if conn.State=0 then
'Conexión KO
else
'Conexión
end if
response.write conn.state
conn.close

#web - #truco - #codigo - #javascript
© Zalberto | enero - 2026