27 dicembre 2004 alle 14:27:03

<%
' ************************************************************************
' * ASP-Nuke: Free web portal in ASP *
' ************************************************************************
' * Copyright (c) 2002-2003 by CC (webmaster@tranquillamente.it) *
' * http://www.tranquillamente.it *
' * *
' * This program is free software. You can redistribute it and/or modify *
' * it under the terms of the GNU General Public License as published by *
' * the Free Software Foundation; either version 2 of the License, or *
' * (at your option) any later version. *
' * *
' ************************************************************************
%>
<_Script language="Java_Script">
function MappeWindow() {
window.open("","mappewin","toolbar=no,scrollbars=no,directories=no, status=no, menubar=no, resizable=no, width=550, height=225")
}
</_Script>
<%
Sub DisplayMap()

CreateTopTable "Mappe", GetTranslation ("LANG_MAPPE")

%>
<_form action="http://www.maporama.com/share/Map.asp?PDT=maposearch" method="post" name="FindAdr" onsubmit="MappeWindow()" target="mappewin">
<p style="word-spacing: 0; line-height: 100%; margin-top: 0; margin-bottom: 0">
<input type="hidden" name="_XgoGCAdrCommand" value="run">
<%
Response.Write " <tr class=""tablelinemain"">" & vbCRLF
'Response.Write " <td>"
'Response.Write "Mappe"
'Response.Write "</td>" & vbCRLF
Response.Write " </tr>" & vbCRLF
Response.Write " <tr class=""tableline" & iLine & """>" & vbCRLF
Response.Write " <td class=""small"">"
%>
<font size="1" face="Arial, Helvetica, sans-serif">Riempi i campi sottostanti per avere la mappa. L'unico dato obbligatorio è la città.</font>
<%
Response.Write "</td>" & vbCRLF
Response.Write " </tr>" & vbCRLF
iLine = 2
Response.Write " <tr class=""tableline" & iLine & """>" & vbCRLF
Response.Write " <td class=""small"">"
%>
<font size="1" face="Arial, Helvetica, sans-serif">Indirizzo</font><br>
<input class="cell" type="Text" name="_XgoGCAddress" value="22 Pietro Maroncelli" size="17" maxlength="70">
<%
Response.Write "</td>" & vbCRLF
Response.Write " </tr>" & vbCRLF
iLine = 2
Response.Write " <tr class=""tableline" & iLine & """>" & vbCRLF
Response.Write " <td class=""small"">"
%>
<font size="1" face="Arial, Helvetica, sans-serif">Codice Postale</font><br>
<input class="cell" type="Text" name="Zip" size="10" maxlength="10" value="00100">
<%
Response.Write "</td>" & vbCRLF
Response.Write " </tr>" & vbCRLF
iLine = 2
Response.Write " <tr class=""tableline" & iLine & """>" & vbCRLF
Response.Write " <td class=""small"">"
%>
<font size="1" face="Arial, Helvetica, sans-serif">Città</font><br>
<input class="cell" type="text" name="_XgoGCTownName" value="ROME" size="12" maxlength="70">
<%
Response.Write "<input type=""Image"" name=""I1"" src=""" & GLOBAL_SITE_IMAGES_PATH & "mapogo.gif"" alt=""Ottieni la carta"" value=""submit"" border=""0"" width=""22"" height=""22"" align=""middle"">"
Response.Write "</td>" & vbCRLF
Response.Write " </tr>" & vbCRLF
iLine = 2
Response.Write " <tr class=""tableline" & iLine & """>" & vbCRLF
Response.Write " <td class=""small"">"
%>
<font size="1" face="arial">Paese</font><br>
<select class="cell" name="COUNTRYCODE">
<option value="AD">Andorra</option>
<option value="AT">Austria</option>
<option value="BE">België</option>
<option value="DK">Danmark</option>
<option value="DE">Deutschland</option>
<option value="ES">Espana</option>
<option value="FR" >France</option>
<option value="IT" SELECTED >Italia</option>
<option value="LI">Liechtenstein</option>
<option value="LU">Luxembourg</option>
<option value="NL">Nederland</option>
<option value="PT">Portugal</option>
<option value="CH">Suisse</option>
<option value="SE">Sverige</option>
<option value="UK">United Kingdom</option>
</select>
<%
Response.Write "</td>" & vbCRLF
Response.Write " </tr>" & vbCRLF
iLine = 1
Response.Write " <tr class=""tableline" & iLine & """>" & vbCRLF
Response.Write " <td class=""small"">"
Response.Write "<br><center><img src=""" & GLOBAL_SITE_IMAGES_PATH & "mapoPoweredBy.gif""></center> "
%>
</_form>
<%
Response.Write "</td>" & vbCRLF
Response.Write " </tr>" & vbCRLF
%>
</_form>
<%
'Response.Write "</table><br>"
CreateBottomTable""
End Sub
%>