<%@LANGUAGE = VBScript%>
<%
Dim pag, title, meta_description, meta_keywords
pag = Server.HTMLEncode(Request.QueryString("pag"))
Select Case pag
Case "homepage" :
title = "La mia Homepage"
meta_description = "Ecco qui la mia homepage"
meta_keywords = "homepage, home page, index"
Case "servizi" :
title = "I miei servizi"
meta_description = "I servizi che offro"
meta_keywords = "servizi, servizi offerti, servizio, offerte"
Case "contatti" :
title = "La pagina dei contatti"
meta_description = "Da qui puoi contattarmi via email"
meta_keywords = "contatti, contatto, email, e-mail"
Case Else :
Response.Write "Errore 404 - File Not Found"
Response.End
End Select
%>
<html><head>
<title><%=title%></title>
<meta name="description" content="<%=meta_description%>">
<meta name="keywords" content="<%=meta_keywords%>">
</head><body>
<h1><%=title%></h1>
<%If pag = "homepage" Then%>
<p>...</p>
<%ElseIf pag = "servizi" Then%>
<p>...</p>
<%ElseIf pag = "contatti" Then%>
<p>...</p>
<%End If%>
</body>
</html>