Foros del Web - Ver Mensaje Individual

uzapuca · #5 (**permalink**) 03/02/2010, 14:56

Cita:

Iniciado por Yefb

Como te dije, si nos muestras el código fuente te podemos ayudar, de los contrario será imposible.
Y no entiendo bien eso del Copy&Paste, ¿Donde copias y donde pegas?

Yefb, gracias por tu rapida respuesta.

Ahora tengo el codigo fuente...es un poco largo, no encontre en el foro una opcion para subir un adjunto por lo que hice una copia aqui. Ahi va una parte por que no me deja pegar todo. El archivo tiene una extension .asp, pero yo sin ser un experto aqui veo codigo HTML

AHI VA....

<%@ LANGUAGE=VBSCRIPT %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Final//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta name="DESCRIPTION" content="----">
<meta name="KEYWORDS" content="cer">
<meta name="AUTHOR" content="(C) 2008 ">
<meta name="GENERATOR" content="Namo WebEditor v4.0">
<title>---- ---- - Página central</title>
<link rel="stylesheet" href="css/global2008.css" type="text/css">
</head>
<STYLE type=text/css>
.tituloopcion3 { FONT-WEIGHT: bold; FONT-SIZE: 12px; COLOR: #ffffff; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif}
.tituloamarillo { FONT-WEIGHT: bold; FONT-SIZE: 16px; COLOR: #74c9be; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif}
.tituloamarillo1 { FONT-WEIGHT: bold; FONT-SIZE: 12px; COLOR: #ffffff; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif}
.tituloproyecto { FONT-WEIGHT: bold; FONT-SIZE: 12px; COLOR: #00308f; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif}
.tituloproyector { FONT-WEIGHT: bold; FONT-SIZE: 12px; COLOR: #ff0000; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif}
.tituloproyecto1 { FONT-WEIGHT: bold; FONT-SIZE: 13px; COLOR: #e24912; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif}
.tituloproyecto2 { FONT-WEIGHT: bold; FONT-SIZE: 15px; COLOR: #ff0000; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif}
.titulonoticias { FONT-WEIGHT: bold; FONT-SIZE: 11px; COLOR: #00308f; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif}
.titulonoticias1 { FONT-WEIGHT: bold; FONT-SIZE: 14px; COLOR: #00308f; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif}
.tituloenlace { FONT-WEIGHT: normal; FONT-SIZE: 12px; COLOR: #00308f; FONT-FAMILY: Arial, Verdana, Helvetica, sans-serif; text-align: right}
.titulocaja { FONT-WEIGHT: bold; FONT-SIZE: 11.5px; COLOR: #00308f; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif}
.titulocaja1 { FONT-WEIGHT: bold; FONT-SIZE: 11.5px; COLOR: #00308f; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif; text-align: center}
.titulocaja2 { FONT-WEIGHT: bold; FONT-SIZE: 11.5px; COLOR: #00308f; FONT-FAMILY: Arial, Verdana, Arial, Helvetica, sans-serif; text-align: center}
.titulonoticias0 { FONT-WEIGHT: bold; FONT-SIZE: 10px; COLOR: #00308f; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif}
.tituloenlace1 { FONT-WEIGHT: bold; FONT-SIZE: 12px; COLOR: #ff0000; FONT-FAMILY: Arial, Verdana, Helvetica, sans-serif; text-align: right}
</style>
<body>
<table border="0" width="745" cellpadding="0" cellspacing="0">
<tr>
<%
'
'declaracion de variables
valrnd = 0
fotos=49
quefoto = 0
variable = ""
'
randomize
valrnd = rnd
quefoto=int((fotos*rnd)+1)
'
if quefoto = 0 then
quefoto = 1
end if
'
if quefoto > fotos then
quefoto = fotos
end if
'
'response.write ("la foto es: ")
'response.write (quefoto) & " "
'response.write (valrnd)
'
' Recupera imagenes desde una base de datos
'
fijo = "http://www.----/imagenes2008/"
'Se crea el objeto conexión.
set con = Server.CreateObject("ADODB.Connection")
'Conexión a la bbdd.
con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & Server.MapPath("imagenes2008/portadas/imagenes.mdb")
' con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & Server.MapPath("imagenes2008/portadasafrica/imagenes_africa.mdb")
'Response.Write ("conexion establecida") & " "
'conexion a la tabla
set rs = con.Execute("select * from foto_azar")
Do while Not rs.eof
if quefoto = rs("id_imagen") then
Nlocalizacion =rs("localizacion")
Nnombre =rs("nombre_imagen")
Ncaracteristicas =rs("caracteristicas")
'
path_imagen=fijo & Nlocalizacion & "/" & Nnombre & Ncaracteristicas
'response.write(" path : " & path_imagen & " ")
%>

<td width="225" align="center" valign="top"><img src="<%=path_imagen%>" border="0"></td>

<%
else
end if
'
rs.movenext
loop
'
'Se cierra la conexión.
con.Close
'Se liberan recursos.
variable= " "
set con = nothing
%>
<td width="3" rowspan="3"></td>

<td width="522" rowspan="3">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td>
<table border="0" width="522" cellpadding="0" cellspacing="0" border="0">
<tr>
<td width="4" rowspan="5"></td>
<td width="514" colspan="3" bgcolor="#f2ae00" class="titulo amarillo"><MARQUEE bgcolor ="#f2ae00" width ="100%" scrolldelay ="140" class="tituloamarillo1">  noticia destacada noticia destacada noticia destacada noticia destacada noticia destacada noticia destacada noticia destacada  </MARQUEE></td>
<td width="4" rowspan="5"></td>
</tr>
<tr>

<td width="510" bgcolor="#f29126" class="titulocaja1">Emergencia Haití ¡Colabora! 

 <a href="notasdeprensa2008/emergencia_haiti_2010.htm" target="_top"><font face="Arial, Verdana, Helvetica" size="1" color="#ffffff" style="TEXT-DECORATION: none" onMouseOver="this.style.color='#00308f'" onMouseOut="this.style.color='#ffffff'" this.style.bold="this.style.bold"> + info...</a>
</td>

Como dije el archivo es mas largo, pero termina como </html>