Correzione Codice Asp

[elbaforum]

Ciao a Tutti, stò realizzando una nuova directory è non riesco a modificare un file in modo che riesca a visualizzare il link diretto al sito, riuscite a modificare il codice qui in basso:

Questo è un file da includere nella pagina iniziale dove saranno visualizzati gli ultimi siti della directory.

Dim niRec
Dim nititle, dosep
Dim niActive
Dim niCurUrl
Dim nicount
nicount = 0



Set niRec = Server.CreateObject("ADODB.RecordSet")
if cint(wnnum) = 0 then
	wnnum = 1
end if
niRec.Open "SELECT TOP " & wnnum & " linkid, title, linktype, hits, datein, dhitsin, catid FROM links WHERE active = " & myTrue &" ORDER BY datein DESC, linkid DESC;", objConn, 3, 3, 1
niActive = Request.Cookies("alezawins")("new")

if niActive = "" then
	niActive = 1
end if

niCurUrl = "http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("SCRIPT_NAME")

%>

<table border="0" width="100%" cellspacing="0" cellpadding="0" style="<%= LV_AWtstyle%>">
	<tr>
		<td bgcolor="#88BDFF"><font face="<%= LV_AWfont%>" size="<%= LV_AWfsize%>" color="<%= LV_AWfcolor%>"><%= Replace(LV_NLtitle, "<NUM>", wnnum)%> </font></td>
		<td bgcolor="#88BDFF">
			<p align="right">[img]images/incp-up.gif[/img]" WIDTH="15" HEIGHT="15"><%
			if niActive = 1 then
			%>">[img]images/incp-min.gif[/img]" WIDTH="15" HEIGHT="15"><%
			end if
			if niActive = 0 then
			%>">[img]images/incp-restore.gif[/img]" WIDTH="15" HEIGHT="15"><%
			end if
			%></td>
	</tr>
	<tr>
		<td width="100%" colspan="2">[img]images/trans-emp.gif[/img] </td>
	</tr>
	<tr><%if niActive = 1 then%>
		<td width="100%" colspan="2">
<%
		Response.Write LV_NLStemplate
		While ( NOT niRec.EOF ) AND ( nicount < wnnum )
			nicount = nicount + 1
			nititle = niRec("title")
			if len(nititle)+6 > LV_NMmaxchars then
				dosep = false
				nititle = left(nititle, LV_NMmaxchars-3) & "..."
				nidescription = ""
			else
				dosep = true
				if len(nititle)+3+len(nidescription) > LV_NMmaxchars then
					nidescription = left(nidescription, LV_NMmaxchars-3-len(nititle)) & "..."
				end if										
			end if
			Dim nilinkHTML
			nilinkHTML = LV_NLtemplate
			if niRec("linktype") = 0 then
				nilinkHTML = Replace(nilinkHTML , "<TARGET>", "_blank")
			else
				nilinkHTML = Replace(nilinkHTML , "<TARGET>", "_self")
			end if
			nilinkHTML = Replace(nilinkHTML, "<URL>","redir.asp?link=" & niRec("linkid") & "&tree=" & niRec("catid"))
			nilinkHTML = Replace(nilinkHTML, "<TITLE>", noNull(nititle) )
			nilinkHTML = Replace(nilinkHTML, "<LINK>","" & nititle & "")
			nilinkHTML = Replace(nilinkHTML, "<HITSIN>", comdel(niRec("dhitsin")))
			nilinkHTML = Replace(nilinkHTML, "<HITS>", comdel(niRec("hits")))
			nilinkHTML = Replace(nilinkHTML, "<DAY>",day(niRec("datein")))
			nilinkHTML = Replace(nilinkHTML, "<MONTH>",month(niRec("datein")))

			
			Response.Write nilinkHTML

			niRec.MoveNext
		Wend
		Response.Write LV_NLFtemplate
		%>
		 
		</td><%end if%>
	</tr>
</table>
<%
Set niRec = Nothing
%>

Vi ringrazio e spero possiate aiutarmi.

Ciao Andrea