<% Response.Redirect "/reporte" Response.End() envio_id = Request.QueryString("reporte_id") '============================================= If Not isNumeric(envio_id) Then Response.Redirect "http://www.cadal.org?error=Verificar_Link" Response.End() End If '============================================= If len(envio_id) > 4 Then Response.Redirect "http://www.cadal.org?error=Verificar_Link" Response.End() End If '============================================= sql = "SELECT contenido from html_template WHERE envio_id = "&envio_id&"" Set rs = Server.CreateObject("ADODB.Recordset") rs.open sql, html_template If Not rs.EOF Then contenido = rs.Fields("contenido") Else Response.Write "No hay envíos con ese ID" End If Response.Write contenido rs.Close Set rs = Nothing %>