serramenti torino - serramenti in alluminio torino - serramenti in alluminio legno - serramenti in pvc torino - porte blindate torino - porte interne torino - cancelletti torino - tende da sole torino - verande torino - tapparelle torino - persiane torino - gelosie torino - zanzariere torino

CATALOGO

Nel nostro sito potrete trovare informazioni sulla nostra azienda e le nostre attività .
Approfondire meglio cosa facciamo e soprattutto cosa possiamo fare per voi.

Questo sito vi consentirà  di conoscerci meglio e di entrare in qualsiasi momento in contatto con noi
per ricevere maggiori informazioni.


Serramenti

Porte Interne

Porte Blindate

Verande
Tende da sole

Tapparelle
Zanzariere

Cancelletti di Sicurezza

PROMOZIONI

<% strnewsf="news" if request.querystring("pageno")<>"" then strpageno1="pageno="& request.querystring("pageno") &"&" else strpageno1="" end if Dim Currpage, pageLen, lastNumber, PageRem, PageTen Dim connection, recordset, sSQL, sConnString, next10, prev10, P Dim RSPrevPage, RSNextPage, start If IsEmpty(Request.Querystring("PageNo")) then CurrPage = 1 Else CurrPage = Cint(Request.Querystring("PageNo")) End If Function getNext10(num) pageLen = len(num) If pageLen = 1 Then next10 = 10 Else If pageLen>1 Then pageRem = 10 pageTen = right(num, 1) next10 = num + pageRem - pageTen End If End If getNext10 = next10 End Function Function getPrev10(num) pageLen = len(num) If pageLen = 1 then prev10 = 1 Else If pageLen>1 then lastNumber = right(num, 1) prev10 = num - lastNumber - 10 End If End If If prev10 = 0 then prev10 = 1 End If getPrev10 = prev10 End Function strtime=formatDatetime(time(),vbShorttime) Set Recordset = Server.CreateObject("ADODB.Recordset") sSQL="SELECT * FROM news where vetrina=1 order by datenews desc" Recordset.CursorLocation = 3 Recordset.open sSQL, connectuser Recordset.PageSize = 100 if not Recordset.eof then Recordset.AbsolutePage = CurrPage next10 = getNext10(CurrPage) prev10 = getPrev10(CurrPage) Function RemoveHtmlTag(txt) Set objRE = createObject("VBScript.RegExp") objRE.Pattern = "\<[^\>]*\>" objRE.Global = true objRE.IgnoreCase = true RemoveHtmlTag = objRE.Replace(txt,"") End Function Do Until Recordset.AbsolutePage <> CurrPage OR Recordset.Eof 'sText = RemoveHtmlTag(Recordset("txtnews")) sText = Recordset("txtnews") iMaxChar = 250 sResult = sText If Len(sResult) > iMaxChar Then If InStr(iMaxChar, sResult, " ") > 0 Then sResult = Left(sResult, InStr(iMaxChar, sResult, " ")) & "..." End If End If fString=Recordset("titlenews") fString = replace(fString, " ","_") fString = replace(fString, " ","_") fString = replace(fString, "'","_") fString = Replace(fString, "&", "") fString = Replace(fString, ",", "_") fString = Replace(fString, ";", "_") fString = Replace(fString, ".", "_") stringcatf=fString %>

<% if Recordset("newsimg")<>"" then imgname=Recordset("newsimg") imgpath=Server.MapPath("/public/dps/"&strnewsf&"/"& imgname &"") Set objImageSize = New ImageSize With objImageSize .ImageFile = imgpath strimgh=.ImageWidth strimgw=.ImageHeight End With if strimgw=0 or strimgh=0 then imgname="_immagine_non_disponibile.jpg" strthbimgw=240 strthbimgh=150 else Set objImageSize = Nothing strtemph="150" moltiplica=strtemph * 100 dividi=moltiplica/strimgh moltiplica2=strimgw * dividi strtempw=moltiplica2/100 maxsizew="240" if int(strtempw)>int(maxsizew) then moltiplica1=maxsizew * 100 dividi1=moltiplica1/strtempw moltiplica21=strtemph * dividi1 strtemph=moltiplica21/100 strtempw=maxsizew end if if int(strimgh)>int(strimgw) then strthbimgw=formatnumber(strtempw,0) strthbimgh=formatnumber(strtemph,0) else strthbimgw=formatnumber(strtempw,0) strthbimgh=formatnumber(strtemph,0) end if end if %> <% else %> <% end if %>

<%=Recordset("titlenews") %>
<%=Recordset("txtnews")%>

<% Recordset.MoveNext Loop end if %> <% recordset.close set recordset=nothing %>
<% ConnectUser.close set ConnectUser=nothing %>