Current File : C:/Inetpub/vhosts/derecha3kmotor.com/httpdocs/2023/control/cabecera.asp

<%


idbloger=session("bloger")
nombrebloger=session("nombre")

conexion="PROVIDER=SQLOLEDB;DATA SOURCE=147.135.183.197;UID=webweb;PWD=Cocococo1;DATABASE=webweb"

tabla="usuarios"

if idbloger<>"" then

' CONSULTO ENTRADAS PUBLICADAS

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open(conexion)
sSQL="Select * From " & tabla & " where bloger='" & idbloger & "'"
set RS = Conn.Execute(sSQL)

lecturas=rs("contador")

Conn.Close

else
end if
%>
<div align="center">
  <center>
  <table border="0" cellspacing="0" cellpadding="10" width="100%" background="cabecera.jpg" height="60">
    <tr>
      <td>
        <table border="0" width="100%" cellspacing="0" cellpadding="0">
			<tr>
				<td width="15">&nbsp;</td>
				<td align="center" valign="top">
				<i><b>
                <font face="Trebuchet MS" color="#FFFFFF">Bienvenido <%=nombrebloger%> (<%=lecturas%>)</font></b></i></td>
				<td width="175">
				<table border="0" width="100%" cellspacing="0" cellpadding="2">
					<tr>
						<td>
						<p align="center">
                        <font face="Trebuchet MS" size="2" color="#FFFFFF">?2001-2009 
				MotorCanario</font></td>
					</tr>
					<tr>
						<td>
						<p align="right"><font face="Trebuchet MS" size="1">
						<a target="_top" href="panelblogs.asp"><font color="#000000">volver</font></a></font></td>
					</tr>
				</table>
				</td>
			</tr>
		</table>
		</td>
    </tr>
  </table>
  </center>
</div>