Que opinan de mi codigo y como mejorarlo

[th3r0rn]

Hola, m gustaria le hecharan un vistaso a mi codigo y me dijeran que puedo mejorar de el ya que yo lo siento muy "sucio".
Explico:
Este codigo lo que haxce es ejecutar un procedure que busca datos por tiempo real, es decir la hora actual, pero si no se encuentran datos en esa hora lo que hace es cerrar la conexion con la DB y abrir otra para consultar datos por la hora anterior actual, y ara esto siempre y cuando no encuentre datos en la hora actual:

Código ASP:

'########################################## L15 SUR #######################################################################################
    linea15s="L15s"
        SET conexion15s=Server.CreateObject("ADODB.Connection")
    conexion15s.Open "PROVIDER=SQLOLEDB; DATA SOURCE=VALP-MESSRV02;UID=sa;PWD=messrv;DATABASE=wasp "
            SET registros15s=Server.CreateObject("ADODB.RecordSet")
         registros15s.open"EXEC monitor '"&fecha&"','"&linea15s&"','"&horamia&"'",conexion15s
        
         SET conexionAVG15s=Server.CreateObject("ADODB.Connection")
    conexionAVG15s.Open "PROVIDER=SQLOLEDB; DATA SOURCE=VALP-MESSRV02;UID=sa;PWD=messrv;DATABASE=wasp "
            SET registrosAVG15s= Server.CreateObject("ADODB.RecordSet")
        
        registrosAVG15s.open"SELECT AVG(PESO)as promedio,o.linea from Optimas as o INNER JOIN pesos as p on o.codigo =p.codoptima WHERE fecha >='"&fecha&"' AND hora='"&horamia&"' AND o.linea='L15S' GROUP BY LINEA",conexionAVG15s
    
        do while not registrosAVG15s.eof
        promedio=cint(registrosAVG15s.fields("promedio"))
                
    if registros15s.eof then
    conexion15s.close
    SET conexion15s=Server.CreateObject("ADODB.Connection")
    conexion15s.Open "PROVIDER=SQLOLEDB; DATA SOURCE=VALP-MESSRV02;UID=sa;PWD=messrv;DATABASE=wasp "
            SET registros15s=Server.CreateObject("ADODB.RecordSet")
    registros15s.open"EXEC monitor '"&fecha&"','"&linea15s&"','"&hora2&"'",conexion15s
        response.write("EXEC monitor '"&fecha&"','"&linea15s&"','"&hora2&"'")
        do while not registros15s.eof
        
                    target=cint(registros15s.fields("target"))'## Definicion de variable Target
                    OP=(promedio-target)/target  '### Definicion de operacion de la variable OP para ser mostrada en la tabla
                    saving=(PROMEDIO-target)*NumBolsas '### Definicion y operacion de la variable SAVING para mostrar en la tabla
        response.write("<tr>")
        response.write("<td>"&registros15s.fields("linea")&"</td>")
        response.write("<td>"&registros15s.fields("peso")&"</td>")
        response.write("<td>"&registros15s.fields("target")&"</td>")
        response.write("<td>"&registros15s.fields("marca")&"</td>")
        response.write("<td>"&registros15s.fields("vaso")&"</td>")
        'response.write("<td>"&registros6n.fields("fecha")&"</td>")
        response.write("<td>"&fechahoy&" "&hora&":"&minuto&"</td>") 
        response.write("<td><h3>"&registros15s.fields("totality")&"</h3></td>")
        response.write("<td>"&registrosAVG15s.fields("promedio")&"</td>")
        if OP<=0 then response.write("<td>"&op&"<img src='http://www.pact-oil.co.uk/images/error.gif'</a></td>") else response.write("<td>"&op&"<img src='http://www.hospitalsierrallana.com/imagenes/gif_ok.gif'</a></td>") end if
            if saving <0 then
        response.write("<td bgcolor= '#FF0000'>  "&saving&" KG</td>")   
        elseif saving >0 then   
        response.write("<td bgcolor='#00FF00'>"&saving&" KG</td>") 
        elseif saving=0 then
        response.write("<td>"&saving&" KG</td>") 
        end if
        response.write("</tr>")
registros15s.movenext
    loop
        
        conexion15s.close
    else
    
        do while not registros15s.eof
        
                    target=cint(registros15s.fields("target"))'## Definicion de variable Target
                    OP=(promedio-target)/target  '### Definicion de operacion de la variable OP para ser mostrada en la tabla
                    saving=(PROMEDIO-target)*NumBolsas '### Definicion y operacion de la variable SAVING para mostrar en la tabla
        response.write("<tr>")
        response.write("<td>"&registros15s.fields("linea")&"</td>")
        response.write("<td>"&registros15s.fields("peso")&"</td>")
        response.write("<td>"&registros15s.fields("target")&"</td>")
        response.write("<td>"&registros15s.fields("marca")&"</td>")
        response.write("<td>"&registros15s.fields("vaso")&"</td>")
        'response.write("<td>"&registros6n.fields("fecha")&"</td>")
        response.write("<td>"&fechahoy&" "&hora&":"&minuto&"</td>") 
        response.write("<td><h3>"&registros15s.fields("totality")&"</h3></td>")
        response.write("<td>"&registrosAVG15s.fields("promedio")&"</td>")
        if OP<=0 then response.write("<td>"&op&"<img src='http://www.pact-oil.co.uk/images/error.gif'</a></td>") else response.write("<td>"&op&"<img src='http://www.hospitalsierrallana.com/imagenes/gif_ok.gif'</a></td>") end if
            if saving <0 then
        response.write("<td bgcolor= '#FF0000'>  "&saving&" KG</td>")   
        elseif saving >0 then   
        response.write("<td bgcolor='#00FF00'>"&saving&" KG</td>") 
        elseif saving=0 then
        response.write("<td>"&saving&" KG</td>") 
        end if
        response.write("</tr>")
registros15s.movenext
    loop
        
        conexion15s.close
        
end if
registrosAVG15s.movenext
    loop
        
        conexionAVG15s.close
 

Saludos