Ver Mensaje Individual
  #3 (permalink)  
Antiguo 19/07/2005, 05:04
Silvy
 
Fecha de Ingreso: mayo-2005
Mensajes: 57
Antigüedad: 19 años, 11 meses
Puntos: 0
ahi esta el codigo

ok, lo siento. Ahi va mi codigo:

<html>

<head>
<meta http-equiv="Content-Language" content="es">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Pagina nueva 1</title>
</head>

<body bgcolor="#B9E9FF">

<p align="left"><font color="#0033CC" size="4">&nbsp;&nbsp;&nbsp; Bienvenido al espacio del
Profesor</font><font size="4">&nbsp;</font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nb sp
<font color="#FFFFFF">&nbsp;</font><font color="#0033CC"><b><a href="marco.asp">Logout</a></b></font></p>


<BR><font color="#0033CC"><BR>
</font>
<p align="center"><B><font color="#0033CC" size="2"><a href="crearcurso.asp">
<font color="#0033CC">AÑADIR UN CURSO </font></a> </p>
<BR>


<% Set Ob_Conn=Server.CreateObject("ADODB.Connection")
Ob_Conn.Open "SNS"
Set Ob_RS= Ob_Conn.Execute ("SELECT * FROM Cursos")
Num_Campos= Ob_RS.Fields.Count
Num_Otra=Num_Campos
Otra= Campo %>

<% IF NOT Ob_RS.Eof THEN %>
<CENTER>
<TABLE BORDER= 1>
<TR>
<% FOR Campo=0 TO Num_Campos - 1 %>
<TH bgcolor="#4E9FC7" align="center"> <b> <font face="Book Antiqua" size="2" color="#000080"> <%= UCase(Ob_RS (Campo).Name) %> </font> </b> &nbsp;</TH>


<% NEXT
DO UNTIL Ob_RS.Eof %>
<TR>
<% FOR Campo=0 TO 0 %>
<TD bgcolor="#4E9FC7" align="center"> <b><font face="Book Antiqua" color="#E6F1FF" size="2"> <A HREF="<%= Ob_RS(Campo) %>.asp"><%= Ob_RS(Campo) %> </font></b> &nbsp;</TD>
<% FOR Otra=1 TO Num_Otra -1 %>
<TD bgcolor="#4E9FC7" align="center"> <b><font face="Book Antiqua" color="#E6F1FF" size="2"><%= Ob_RS(Otra) %> </font></b> &nbsp;</TD>
<% NEXT%>
<% NEXT%>
<%Ob_RS.MoveNext
LOOP

ELSE%>
<p align="center"> <font size="2"> <%Response.Write "<font color='#000080'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<B>" & "NO HAY NINGUN CURSO EN LA BASE DE DATOS" & "</font></B>"%></font></p>

<%END IF %>

<%Ob_RS.Close
Ob_Conn.Close %>

<TR>
</font></b>

<p align="justify">&nbsp;</p>
<p align="justify">&nbsp;&nbsp;&nbsp; <font color="#0033CC"><b>Las negociaciones
que en este momento tiene en curso son las siguientes:</b></font></p>
<p align="justify">&nbsp;</p>



</body>

</html>

Muchas gracias ante todo, tengo que decir que estoy empezando con asp y programando paginas y anda un poco perdidilla .

Gracias!, espero me podais ayudar.