Asp classico dentro pagina aspx

[mcviper909]

Salve a tutti

E' possibile inserire un pezzo di codice asp classico in una pagina aspx?

Sto facendo una gestione di aree aziendali e dovrei utilizzare l'optgroupo per i menu a tendina.

Utilizzarlo nelle dropdownlist è molto complicato e non riesco a dargli esattamente la gerarchia ch e mi serve.
Siccome ho una pagina asp che fa proprio questo vorrei inserire il codice nella mia pagina aspx.

Premetto che so che posso utilizzare la mia pagina asp linkandola semplicemente, ma il problema è che sto utilizzando le master page e quindi la mia pagina asp sarebbe totalmente fuori contesto in quanto non la posso associare alla mia master page.

Grazie

[mcviper909]

Posso almeno tradurlo in qualche modo per poterlo far diventare asp.net?

   <% 
            Dim rs, strsql, rsCenCo, rsCenCoFog
    		set rs = server.CreateObject("ADODB.Recordset")
			StrSql = "SELECT DISTINCT IDDIREZIONE AS CODICE, DESCRDIREZIONE AS DESCRIZIONE  FROM AOG_ANAGDIREZIONI ORDER BY IDDIREZIONE"
			rs.open StrSql, cn
			Do While Not rs.eof
				%>
				<optgroup class="IntestazioneTabellaOffice" label="<%=rs("DESCRIZIONE")%>">
				<%
				set rsCenCo = server.CreateObject("ADODB.Recordset")
				Response.Write StrSql
				StrSql = "SELECT DISTINCT * FROM AOG_ANAGFUNZIONI WHERE IDDIREZIONE = '" & Trim(rs("CODICE")) & "' AND IDPADRE = 0 ORDER BY IDFUNZIONE"
				rsCenCo.open StrSql, cn
				Do While Not rsCenCo.eof
					set rsCenCoFog = server.CreateObject("ADODB.Recordset")
					StrSql = "SELECT DISTINCT * FROM AOG_ANAGFUNZIONI WHERE IDPADRE = '" & Trim(rsCenCo("IDFUNZIONE")) & "' ORDER BY IDFUNZIONE"
					rsCenCoFog.open StrSql, cn
					If Not rsCenCoFog.Eof Then
						%>
						<optgroup class="IntestazioneTabellaOffice" label="----<%=rsCenCo("DESCRFUNZIONE")%>">
						<%
						Do While Not rsCenCoFog.eof
								%>
								<option class="text_box" value="<%=Trim(rsCenCoFog("IDFUNZIONE"))%>" <%If CentroDiCosto = Trim(rsCenCoFog("IDFUNZIONE")) Then Response.Write "selected" End If%>><%=rsCenCoFog("DESCRFUNZIONE")%></option>
								<%
							rsCenCoFog.movenext
						loop
							%>
			            </optgroup>
							<%
						Else
						%>
						<option class="text_box" value="<%=Trim(rsCenCo("IDFUNZIONE"))%>" <%If CentroDiCosto = Trim(rsCenCo("IDFUNZIONE")) Then Response.Write "selected" End If%>><%=rsCenCo("DESCRFUNZIONE")%></option>
						<%
					End If
					rsCenCoFog.close
					set rsCenCoFog = nothing
					rsCenCo.movenext
				loop
				rsCenCo.close
				set rsCenCo = nothing
				%>
				</optgroup>
				<%
				rs.movenext
			loop
			rs.close
			set rs = nothing
			%>

Questa è la porzione di codice....