Hola
podrias poner el codigo entre las etiquetas de php que estan mas arriba cuando creas un temas, pa asi leer el codigo de mejor formas, mira de esta forma.
Código PHP:
<%
Dim informe_ref, hoja
informe_ref = Request.QueryString("cedula_ref")
NIF = Request.QueryString("NIF")
cargo = Request.QueryString("cargo")
hoja=Right(informe_ref,7)
' Conexión a BBDD
Dim conexion, RS1, oConn
oConn = Server.MapPath("/DesarrolloUrbana/Info_Base.mdb")
Set conexion = Server.CreateObject("ADODB.Connection")
conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & oConn & ";"
Set RS1= conexion.Execute("SELECT * FROM web Where REFCATPARC1='"&informe_ref&"' AND NUM_CARGO='"&cargo&"' AND NIF_TITUL='"&NIF&"';")
If (RS1.EOF = false) then
Response.Write "<center>"
Response.Write "<BR><BR><BR><BR><BR><b>NO EXISTEN ENTRADAS EN LA BASE DE DATOS</b>"
Response.Write "<BR><BR>"
Response.Write "<img src='../../DisplayStyle/volver.jpg' alt='Volver' border='0' onClick='javascript:window.history.back();' width='50' height='50' align='middle'>"
Response.Write "</center>"
ELSE
Response.Redirect("informe.asp?informe_ref="&informe_ref&"&NIF="&nif&"&cargo="&cargo&"")
%>
<body bgcolor="#FFFFFF" text="#000000">
</body>
<%
' liberamos y cerramos la BBDD
RS1.Close
Set RS1 = Nothing
conexion.Close
Set conexion = Nothing
%>
<%End If%>