
|
|
|
<%
Dim arrDAY, ip
arrDAY = Array("Domenica", "Lunedì", "Martedì", "Mercoledì", "Giovedì", "Venerdì", "Sabato")
Response.Write arrDAY(DatePart("w", Date()) - 1)
Response.write (" ")
Response.write Date()
Response.Write " "
Response.Write " Il tuo IP: "
ip = Request.ServerVariables("REMOTE_ADDR")
Response.Write ip
%>
|