17/11/2006, 05:18
|
| | | Fecha de Ingreso: septiembre-2005
Mensajes: 202
Antigüedad: 19 años, 7 meses Puntos: 0 | |
| este es el codigo:
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
If (Request.QueryString("dia") <> "") Then
Recordset1__MMColParam = Request.QueryString("dia")
End If
%>
<%
dias = request.querystring("dias")
mes = request.querystring("mes")
ano = request.querystring("ano")
dia = dias & "/" & mes & "/" & ano
%>
<%
Dim Recordset1
Dim Recordset1_cmd
Dim Recordset1_numRows
Set Recordset1_cmd = Server.CreateObject ("ADODB.Command")
Recordset1_cmd.ActiveConnection = MM_aluja_STRING
Recordset1_cmd.CommandText = "SELECT * FROM articulo WHERE dia = ? ORDER BY id_articulo DESC"
Recordset1_cmd.Prepared = true
Recordset1_cmd.Parameters.Append Recordset1_cmd.CreateParameter("param1", 135, 1, -1, Recordset1__MMColParam) ' adDBTimeStamp
Set Recordset1 = Recordset1_cmd.Execute
Recordset1_numRows = 0
%> |