ID Página

[orchating]

Si estoy haciendo todo lo que me decis y nada de nada ahora mismo tengo este codigo:

Código:

<!-- #include virtual="/includes/funciones.asp" -->
<!-- #include virtual="/includes/configuracion.asp" -->
<%
'Creamos la conexion con el objeto
set dbConn = server.CreateObject("adodb.connection")
'Conectamos con la BBDD
dbConn.open("/Data/bdchame.mdb")
Set rs1 = dbConn.Execute("SELECT * FROM GC_Espectaculos WHERE IdEspectaculo=" & Request.QueryString("IdEspectaculo"))
%>
<script language="javascript">

function validacion(form){

if (form.DiaI.value==form.DiaF.value && form.MesI.value==form.MesF.value && form.AnioI.value>=form.AnioF.value)
{
	alert("Fecha de finalización inválida.");
	return false;
}

return true;
}

</script>

<!-- #include virtual="/includes/header_admin.asp" -->

<br />
<h1>Modificar Espectaculos</h1>
<form id="form1" name="form1" method="post" action="" >
<!--onsubmit="javascript: return validacion(this);">-->
<%
'Conectamos con la BBDD
rs1.open ("SELECT * FROM GC_Espectaculos WHERE IdEspectaculo=" & Request.QueryString("IdEspectaculo"))
%>

<table border='0' cellpadding='0'>
<tr>
<td width="175"><strong>Link</strong></td>
<td width="175"><input name="Vinculo" type="text" id="Link" VALUE="<%=rs1.Fields("vinculo")%>"></td>
<td width="250"><span class="Estilo2"></span></td>
</tr>
<tr>
<% 
Sql = "SELECT * FROM "&PREFIJO_TABLAS&"Espectaculos "
Sql = Sql & "WHERE Vigente " 'AND FechaFin >= #"&FechaInicioHoy&"# "
Sql = Sql & "ORDER BY FechaInicio"
Set Rec = Conn.Execute (Sql)
%>
<td><strong>Contacto</strong></td>

<td><input name="Contacto" type="text" id="Link3" VALUE="<%=rs1("Contacto")%>"></td>

<td><span class="Estilo2">* Email del contacto </span></td>
</tr>

<tr>

<td><strong>Fecha Inicio </strong></td>

<td>

<select name="DiaI"><%=ComboFecha(DiaI, "d", 1, 31)%></select> /

<select name="MesI"><%=ComboFecha(MesI, "m", 1, 12)%></select> /

<select name="AnioI"><%=ComboFecha(AnioI, "a", 2005, Year(Date)+3)%></select>

</td>

<td><span class="Estilo2">* Cuando inicia el curso dd/mm/aaaa </span></td>

</tr>

<tr>

<td><strong>Fecha Fin</strong></td>

<td>

<select name="DiaF"><%=ComboFecha(DiaF, "d", 1, 31)%></select> /

<select name="MesF"><%=ComboFecha(MesF, "m", 1, 12)%></select> /

<select name="AnioF"><%=ComboFecha(AnioF, "a", 2005, Year(Date)+3)%></select>

</td>

<td><span class="Estilo2">* Cuando finaliza dd/mm/aaaa </span></td>

</tr>

<%

For i = 1 To IDIOMA_CANTIDAD

If (Eval("IDIOMA_"&i&"_ACTIVO")) Then

%>

<!--<tr><td colspan="3" class="Titulo-Idioma">&nbsp;&nbsp;<%=Eval("IDIOMA_"&i&"_NOMBRE") %></td></tr>-->

<tr>

<td><strong>Ciudad</strong></td>

<td><input type="text" name="Ciudad_<%=Eval("IDIOMA_"&i&"_PREFIJO")%>" id="Lugar" VALUE="<%=rs1.Fields("Ciudad_es")%>"></td>

<td><span class="Estilo2">* La ciudad donde dara el Espectaculo</span></td>

</tr>

<tr>

<td><strong>Teatro</strong></td>

<td><input name="Lugar_<%=Eval("IDIOMA_"&i&"_PREFIJO")%>" type="text" id="Escuela" VALUE="<%=rs1.Fields("Lugar_es")%>"></td>

<td><span class="Estilo2">* Nombre del Teatro</span></td>

</tr>

<tr>

<td><strong>Nombre del Espectáculo</strong></td>

<td><input name="Espectaculo_<%=Eval("IDIOMA_"&i&"_PREFIJO")%>" type="text" id="Espectaculo" VALUE="<%=rs1.Fields("Espectaculo_es")%>"></td>

<td>&nbsp;</td>

</tr>

<%

End If

Next

%>

<tr>

<td><input type="submit" name="Submit" value="Agregar espectáculo" /></td>

<td>&nbsp;</td>

<td>&nbsp;</td>

</tr>

</table>
</form>
<%
rs1.close
SET conn = Nothing
%>

en los includes es donde abro la base de datos y valido el formulario.