<% Response.Expires=0 ltype = Request("lingua") IDcat= Request("IDcat") IF ltype="" then ltype="IT" end if function nomecat(nome) Set rsnc = Server.CreateObject("ADODB.Recordset") sql = "SELECT * FROM cat WHERE IDcat = " & nome &"" rsnc.open sql, conn, 1, 3 if rsnc.eof then else nomecat = rsnc("nomecat") end if rsnc.close set rsnc=nothing end function %> Immobiliare CAPITAL


Via C. Colombo 268 - 30015 Sottomarina di Chioggia (VE) - Tel e Fax 041 492648