<% Response.Buffer = TRUE Response.ContentType ="text/vnd.wap.wml" %> <% dim imgext dim fso dim ImgSrc dim path_translated select case nHandsetType case H_Legacy, H_Undefined imgext = ".wbmp" case H_Basic, H_Advanced imgext = ".jpg" end select %>

Questo e' il sito wap dell'Hotel Truciolini di Arezzo

<% if (nHandsetType=H_Advanced) or (nHandsetType=H_Basic) then ImgSrc = "index.images/LOGO_H_T" Set fso = CreateObject("Scripting.FileSystemObject") path_translated = Request.ServerVariables("PATH_TRANSLATED") If fso.FileExists(Left(path_translated,InStrRev(path_translated,"\")) & Replace (ImgSrc & ".jpg","/","\")) Then imgext = ".jpg" Else imgext = ".wbmp" End If set fso = nothing end if %>

<%Response.write ("LOGO_H_T")%>

Servizi.wml

Dove_siamo.wml

Prezzi.wml

Lotto.wml

Ristorante.wml

<%Response.write ("........") %>

<% select case nHandsetType case H_Legacy, H_Undefined Response.write ("Vodafone") case H_Basic, H_Advanced Response.write (" Vodafone live!") end select%>