Make your own free website on Tripod.com
Tengo varias semanas tratando de resolver este error, pero ya no se que puedo hacer mas que colocarles el còdigo:

ERROR

Microsoft JET Database Engine error '80040e10'

No value given for one or more required parameters.

/doctormisterio/hist.asp, line 84


y el CODIGO:

<%
Dim oConn, RS, registros, azar, dia, mes
fecha = Date()
datos= Server.MapPath ( "db/musicum.mdb" )
Set oConn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.Recordset")
oConn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data source="&datos&";"
sql = "SELECT * FROM Efeme WHERE mesid = '" & Month(fecha) & "' AND dia ='" & Day(fecha) & "'"
RS.OPEN sql, oConn, 1, 1
intTotalRecords = RS.RecordCount
Randomize()
intRandomNumber = Int((intTotalRecords * Rnd))
RS.Move intRandomNumber
%>
<HTML>
<HEAD>
<TITLE>Biblioteca Virtual de M&uacute;sica - Historia</TITLE>

<LINK href="style.css" rel=stylesheet>
</HEAD>
<BODY bgColor=#d2cfbc leftMargin=0 topMargin=0 marginwidth="0" marginheight="0">
<TABLE align="center" cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD vAlign=top align=left width="9%">&nbsp;</TD>
<TD colspan="2" align=left vAlign=bottom><BR> <BR> <IMG height=1 src="multi/imag/pixel_rot.gif" width=700></TD>
<TD vAlign=top align=left width="9%">&nbsp;</TD>
</TR>
<TR>
<TD vAlign=top align=left width="9%" height=69>&nbsp;</TD>
<TD height=69 align=left vAlign="center"><IMG
height=4 src="multi/imag/blank.gif" width="20" border=0> <IMG height=61 src="multi/imag/logo.gif" width="43" border="0">
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </TD>
<TD align=left vAlign="center">
<%
response.write "<SPAN class=heads>Hoy en la Historia</SPAN><br>"
response.write "<SPAN class=subheads>" & RS.fields("mes") & ", " & RS.fields("dia") & " - " & RS.fields("anno") & "</SPAN><br>"
response.write "<SPAN class=text>" & RS.fields("evento") & "</SPAN><br>"
%>
</TD>
<TD vAlign=top align=left width="0%" height=69>&nbsp;</TD>
</TR>
<TR>
<TD vAlign=top align=left width="9%" height=17>&nbsp;</TD>
<TD height=17 colspan="2" align=left vAlign=top> <!--#include file="menu.htm" --> </TD>
<TD vAlign=top align=left width="0%" height=17>&nbsp;</TD>
</TR>
<TR>
<TD vAlign=top align=left width="9%">&nbsp;</TD>
<TD colspan="2" align=left vAlign=top><IMG height=1
src="multi/imag/pixel_rot.gif" width=700></TD>
<TD vAlign=top align=left width="0%">&nbsp;</TD>
</TR>
<TR>
<TD vAlign=top align=left width="9%"><IMG height=350
src="multi/imag/blank.gif" width=8></TD>
<TD colspan="2" align=left vAlign=top> <TABLE width="95%" border=0 align="center" cellPadding=0 cellSpacing=3>
<TBODY>
<TR>
<TD width=18 height=393> <P><SPAN class=text><IMG height=8 src="multi/imag/blank.gif"
width=17></SPAN></P>
<P>&nbsp;</P></TD>
<TD vAlign=top align=left width=200>
<SPAN class=subheads>Historia de la M&uacute;sica</SPAN><BR>
<br>
</P>
<%
sql = "SELECT * FROM Hist ORDER BY Nombre"
Set RS = oConn.Execute(sql)
while (not RS.Eof)
Response.Write "<A href='hist.asp?pais=" & RS("Id") & "'>" & RS("Nombre") & "</a><br>"

RS.MoveNext
wend

%>
</TD>
<TD vAlign=top align=left width=429 height=393> &nbsp;
<%
if request.querystring("pais") <> "" then

sql = "SELECT * FROM Hist WHERE pais = '" & request.querystring("pais") & "'"
Set RS = oConn.Execute(sql)

response.write "<SPAN class=text>" & RS.fields("Nombre") & "</SPAN><br><br>"

else
response.Write "<br>"
end if
%>
</TD>
</TR>
</TBODY>
</TABLE>
<P><SPAN class=text><IMG height=8 src="multi/imag/blank.gif"
width=23>Sitio diseñado por <A href="http://www.rhum.com/" target=_blank>RhumDesign</A>
y Construido por <A href="http://ideefixe.rhum.com/" target=_blank>IdéeFixe</A></SPAN>
</P></TD>
<TD vAlign=top align=left width="0%">&nbsp;</TD>
</TR>
<TR>
<TD width="9%" height="57" align=left vAlign=top>&nbsp;</TD>
<TD colspan="2" align=left vAlign=bottom><SPAN class=text></SPAN><IMG height=1
src="multi/imag/pixel_rot.gif" width=700></TD>
<TD vAlign=top align=left
width="0%">&nbsp;</TD>
</TR>
</TBODY>
</TABLE>
<%
RS.Close
oConn.close
Set RS = Nothing
Set oConn = Nothing
%>
</BODY></HTML>