
<%

class aspXML
 Private top    'Stack current element
 Private TagArray()  'Stack of tags
 Private XML    'XML code
    '>>>>>>>> Setup Initialize event, called automtially when creating an instant of this class using
 '       Set MyXML = new aspXML
 Private Sub Class_Initialize
  Redim TagArray(10)
  top = -1
  XML = "<?xml version=""1.0"" encoding=""ISO-8859-1""?>" & vbCrLf
 End Sub
    '>>>>>>>> Setup Terminate event, called automtially when killing an instant of this class using
 '       Set MyXML = nothing
 Private Sub Class_Terminate
  top = null
  XML = null
  Erase TagArray
 End Sub
 
    '>>>>>>>> Reset the class, as if it was just created, Use with care
 Public Function Reset
  call Class_Terminate
  call Class_Initialize
 End Function
    '>>>>>>>> Open a new element tag
 Public Function OpenTag(tagName)
  tagName = FormatXML(tagName)
  top = top + 1
  if top > ubound(TagArray) then
   ReDim Preserve TagArray(ubound(TagArray) + 10)
  end if
  TagArray(top) = tagName
  XML = XML & "<" & tagName & ">"
  if top = 0 then XML = XML & vbCrLf 'Code format, root tag is on separate line
 end function
    '>>>>>>>> Opens a new tag, add the data, and close the tag
 Public Function QuickTag(tagName, Data)
  tagName = FormatXML(tagName)
  XML = XML & "<" & tagName & ">" & CheckString(Data) & "</" & tagName & ">" & vbCrLf
 end function
    '>>>>>>>> Put an empty tag, uses less code than opening and closing a normal tag (in case, if needed :)
 Public Function EmptyTag(tagName)
  tagName = FormatXML(tagName)
  XML = XML & "<" & tagName & " />" & vbCrLf
 end function
 
    '>>>>>>>> Add an attribute to the last open tag (can be used before or after adding data)
 Public Function AddAttribute(attribName, attribValue)
  lastTag = inStrRev(XML, ">")
  TextRemoved = Right(XML, len(XML) - lastTag)
  XML = Left(XML, lastTag - 1)
  XML = XML & " " & FormatXML(attribName) & "=""" & attribValue & """>"
  XML = XML & TextRemoved
 End function
    '>>>>>>>> Add data to current open tag (automatic check if need CDATA or no)
 Public Function AddData(Data)
  XML = XML & CheckString(Data)
 end function
    '>>>>>>>> Add data to current open tag, formated as XSL date
 Public Function AddDate(strDate)
  if isDate(strDate) then 
   strDate = cDate(strDate)
   XML = XML & year(strDate) & "-" & LeadingZero(month(strDate), 2) & "-" & LeadingZero(day(strDate),2) & "T" & LeadingZero(Hour(strDate),2) & ":" & LeadingZero(Minute(strDate),2) & ":" & LeadingZero(Second(strDate),2)
  end if
 end function
    '>>>>>>>> Add Comment in the current location
 Public Function AddComment(Data)
  XML = XML & "<!--" & Data & "-->"
 end function
 '>>>>>>>> Close last open tag
 Public Function CloseTag()
  tagName = TagArray(top)
  XML = XML & "</" & tagName & ">" & vbCrLf
  top = top - 1
 end function
    '>>>>>>>> Close all open tags, including main root tag
 'after calling this function, it is not recomended opening new
 'tags as XML can only have 1 root element
 Public Function CloseAllTags()
  while (top >= 0)
   tagName = TagArray(top)
   XML = XML & "</" & tagName & ">" & vbCrLf
   top = top - 1
  wend
 end function
    '>>>>>>>> Returns the XML final code
 Public Function GetXML()
  GetXML = XML
 end function
'---------------------------------------------------------------
' Special internal functions
'---------------------------------------------------------------
    '>>>>>>>> Format the tag name if contains special characters
 Private function FormatXML(data)
  if isNumeric(left(data,1)) then
   data = FormatNumericXML(data)
  end if
  data = replace(data, "?", "_x003F_")
  data = replace(data, " ", "_x0020_")
  data = replace(data, "/", "_x002F_")
  data = replace(data, "=", "_x003D_")
  data = replace(data, "%", "_x0025_")
  data = replace(data, "\", "_x005C_")
  data = replace(data, "~", "_x007E_")
  data = replace(data, "@", "_x0040_")
  data = replace(data, "#", "_x0023_")
  data = replace(data, "$", "_x0024_")
  data = replace(data, "%", "_x0025_")
  data = replace(data, "^", "_x005E_")
  data = replace(data, "&", "_x0026_")
  data = replace(data, "*", "_x002A_")
  data = replace(data, "(", "_x0028_")
  data = replace(data, ")", "_x0029_")
  data = replace(data, "+", "_x002B_")
  data = replace(data, "{", "_x007B_")
  data = replace(data, "}", "_x007D_")
  data = replace(data, "|", "_x007C_")
  data = replace(data, "'", "_x0027_")
  data = replace(data, "<", "_x003C_")
  data = replace(data, ">", "_x003E_")
  data = replace(data, ",", "_x002C_")
  data = replace(data, ";", "_x003B_")
     FormatXML = data
 end function
    '>>>>>>>> Format the tag name if starts with digit
 Private function FormatNumericXML(data)
  StrLeft = Left(data, 1)
  StrRight = Right(data, (len(data) - 1))
  ReturnValue = "_x003" & StrLeft & "_" & StrRight
  FormatNumericXML = ReturnValue
 end function
    '>>>>>>>> Format the data with or without CData
 Private function CheckString(data)
  need = false
  if instr(data, "<") then need = true
  if instr(data, "&") then need = true
  if need then
   CheckString = "<![CDATA[" & data & "]]>"
  else
   CheckString = data
  end if
 end function
    '>>>>>>>> Leading Zeros function, for AddDate function
 Private Function LeadingZero(data, numdigits)
  while len(data) < numdigits
   data = "0" & data
  wend
  LeadingZero = data
 End Function
end class

    Dim bol_allEntriesDone
%>

<h1>マイクロマシン/MEMS展</h1>
<table cellspacing="0" cellpadding="0" border="0" width="570">
    <tr>
        <td valign="top" align="left">
        
        <h2>東京ビッグサイト 東ホール, 29.07.2009&nbsp;-&nbsp;31.07.2009</h2><h3>MSA-500 マイクロシステム アナライザ</h3>


<script language="JavaScript">
<!--
function placeAdress(name,domain,label)
    {
    document.write('<br/><b>'+label+'</b><br/>');
    document.write('<a href=\"mailto:' + name + '@' + domain + '\">');
    document.write(name + '@' + domain + '</a>');
    }
    name = "NameDesEmpf&auml;ngers";
    domain = "Domain.de";
    label = "Kontakt";
    if (domain!="Domain.de") {
        if (domain!="") {
    placeAdress(name,domain,label);
    }}
function messageSuccesfullMail(nachricht)
    {
    nachricht = nachricht.replace("&uuml;","ü");
    alert (nachricht);
    window.scrollBy(0,2200);
    }
 // -->
 </script>

 
</td>
        <td valign="top" style="padding:0px 0px 0px 10px">


</td>
    </tr>
</table>

<%
Sub SendMailCDO(aTo, Subject, TextBody, aFrom, charset)
  Const cdoOutlookExvbsss = 2
  Const cdoIIS = 1
  
  'Dim Message As New CDO.Message
  
  'Create CDO message object
  Set Message = CreateObject("CDO.Message")
  With Message
    'Load IIS configuration
    .Configuration.Load cdoIIS
    
    'Set email adress, subject And body
    .To = aTo
    .Subject = Subject
    .TextBody = TextBody
    .BodyPart.Charset = charset
    
    'Set sender address If specified.
    If Len(aFrom) > 0 Then .From = aFrom
    
    'Send the message
    .Send
  End With
End Sub
bol_allEntriesDone = 0
SetLocale "de"
dim datumEndeASP


datumEndeASP = replace("31.07.2009",".","/") 
'response.write "Form invisible Sprache Script de HEUTE " & DATE & " ENDDATUM " & CDate(datumEndeASP) 

if ("invisible" = "visible" ) then
if Request.Form("send") = 1 then
    ' ARE ALL REQUIRED FIELDS FILLED?
    int_minimumCharCount = 1
    if Len(Request.Form("vorname")) > int_minimumCharCount and Len(Request.Form("nachname")) > int_minimumCharCount and Len(Request.Form("firma")) > int_minimumCharCount and Len(Request.Form("telefon")) > int_minimumCharCount and Len(Request.Form("email")) > int_minimumCharCount and instr(Request.Form("email"),"@")<> 0 then
        ' HIDE FORM HTML
        bol_allEntriesDone = 2
        ' CATCH MAIL DATA
        strEmpaenger1 = Request.Form("toEmail")
        strAbsender1 = Request.Form("email")
        strEmpaenger2 = Request.Form("Email")
        strAbsender2 = Request.Form("toemail")
        strBetreff = "Registration: マイクロマシン/MEMS展"
        strBetreffConfirmation = "Your message: マイクロマシン/MEMS展"
        strNachricht = "Anrede: " & Request.Form("anrede") & vbCrLf
        strNachricht = strNachricht & "Vorname *: " & Request.Form("vorname") & vbCrLf
        strNachricht = strNachricht & "Nachname *: " & Request.Form("nachname") & vbCrLf
        strNachricht = strNachricht & "Position: " & Request.Form("Titel") & vbCrLf
        strNachricht = strNachricht & "Firma *: " & Request.Form("firma") & vbCrLf
        strNachricht = strNachricht & "Abteilung: " & Request.Form("abteilung") & vbCrLf
        strNachricht = strNachricht & "Straße: " & Request.Form("strasse") & vbCrLf
        strNachricht = strNachricht & "PLZ: " & Request.Form("PLZOrt") & vbCrLf
        strNachricht = strNachricht & "Ort: " & Request.Form("region") & vbCrLf
        strNachricht = strNachricht & "Land: " & Request.Form("land") & vbCrLf
        strNachricht = strNachricht & "Telefon *: " & Request.Form("telefon") & vbCrLf
        strNachricht = strNachricht & "Fax: " & Request.Form("fax") & vbCrLf
        strNachricht = strNachricht & "E-Mail *: " & Request.Form("email") & vbCrLf

        strNachricht = strNachricht & "-----------------------------------------------------" & vbCrLf
        strNachricht = strNachricht & "Anfrage an:: " & Request.Form("visiting_date") & vbCrLf
        strNachricht = strNachricht & "Zeit Ihres Besuchs: " & Request.Form("visiting_time") & vbCrLf
        strNachricht = strNachricht & "Betreff:" & Request.Form("AnzahlPersonen") & vbCrLf
        strNachricht = strNachricht & "Message: " & Request.Form("nachricht") & vbCrLf
        strNachricht = strNachricht & "-----------------------------------------------------" & vbCrLf
        strNachricht = strNachricht & "Ich möchte gerne zurückgerufen werden: " & Request.Form("telephoneCall") & vbCrLf
        strNachricht = strNachricht & "-----------------------------------------------------" & vbCrLf
        strNachricht = strNachricht & "Ich möchte über Produktneuheiten informiert werden: " & Request.Form("keepUpdatedOnNewProducts")
        SendMailCDO strEmpaenger1, strBetreff, strNachricht, strAbsender1, "utf-8"
        SendMailCDO strEmpaenger2, strBetreffConfirmation, strNachricht, strAbsender2, "utf-8"
 set myXML = new aspXML
 myXML.OpenTag "Email"
 myXML.OpenTag "Message"
 myXML.AddAttribute "date", date()
 myXML.QuickTag "Betreff", "マイクロマシン/MEMS展"
 myXML.QuickTag "salutation", Request.Form("anrede")
 myXML.QuickTag "forename", Request.Form("vorname") 
 myXML.QuickTag "surname", Request.Form("nachname")
 myXML.QuickTag "title", Request.Form("Titel") 
 myXML.QuickTag "company", Request.Form("firma")
 myXML.QuickTag "abteilung", Request.Form("abteilung") 
 myXML.QuickTag "street", Request.Form("strasse")
 myXML.QuickTag "town_and_zipcode", Request.Form("PLZOrt")
 myXML.QuickTag "state", Request.Form("region") 
 myXML.QuickTag "country", Request.Form("land")
 myXML.QuickTag "phone", Request.Form("telefon")
 myXML.QuickTag "fax", Request.Form("fax")
 myXML.QuickTag "email", Request.Form("email")
 myXML.QuickTag "visiting_date", Request.Form("visiting_date")
 myXML.QuickTag "visiting_time", Request.Form("visiting_time")
 myXML.QuickTag "number_of_persons", Request.Form("AnzahlPersonen")
 myXML.QuickTag "text", Request.Form("nachricht")
 myXML.QuickTag "telephon_call", Request.Form("telephoneCall") 
 myXML.QuickTag "keepMeUpdatedOnNewProducts", Request.Form("keepUpdatedOnNewProducts")      
 myXML.CloseTag
  myXML.CloseAllTags
dim timestamp
timestamp = DateDiff("s", CDate(#01/01/1970#), Now)
Set objFs= CreateObject("Scripting.FileSystemObject")
strDateiname = "D:\Polytec_Daten\Websites\polytec\wwwroot\mails_and_more\\" & timestamp & ".xml"
 ' Einen Textstream (objTextStream) zur Textdatei oeffnen 
 Set objTextStream = objFs.CreateTextFile(strDateiname, True)
 ' Inhalt fuer Datei in String strWriteString speichern:
 strWriteString = myXML.GetXML
 ' String in Datei schreiben:
 objTextStream.Write strWriteString
 ' Objekte schliessen
 objTextStream.Close
 Set objTextStream = Nothing
 Set objFs = Nothing
//Response.write myXML.GetXML
Set myXML = nothing
%>
<script language="javascript">
messageSuccesfullMail("Thank you for your registration!");
</script>
<%
        ' CLEAR CACHE
        Set objMail = Nothing
        Set objConfig = Nothing
    else
        bol_allEntriesDone = 1
    end if
end if
if bol_allEntriesDone <> 2 then
%>
<form method="post" name="contact" id="contact">
<input type="hidden" name="send" value="1">
<h1>Online Anmeldung</h1>
<div style="width:722px;_width:570px;"><p>Lust dabei zu sein? Dann melden Sie sich doch einfach direkt &uuml;ber unser Onlinefomular an. Wir werden uns umgehend bei Ihnen f&uuml;r eine Terminbest&auml;tigung melden.</p></div>

<%
    if bol_allEntriesDone = 1 then
        Response.Write("<p style='font-weight:bolder;color:red;width:570px;'>Bitte f&uuml;llen Sie alle Pflichtfelder aus.</p>")
    end if
%>
<table cellspacing="0" cellpadding="0" border="0" width="570" class="formular" style="margin:0px 0px 10px 0px">
    <tr>
        <td valign="top" width="50%"><table cellspacing="0" cellpadding="4" border="0" width="100%">
            <tr class="table-schema1-dark">
                <td nowrap><div id="salutation">Salutation/Title</div></td>
                <td><select name="Anrede"><option selected>選択してください</option><option>博士</option><option>教授</option><option></option><option></option></select></td>
            </tr>
            <tr class="table-schema1-light">
                <td nowrap><div id="firstname">Firstname</div></td>
                <td><input type="text" name="vorname" value="<%=Request.Form("Vorname")%>"></td>
            </tr>
            <tr class="table-schema1-dark">
                <td nowrap><div id="lastname">Surname</div></td>
                <td><input type="text" name="nachname" value="<%=Request.Form("Nachname")%>"></td>
            </tr>
            <tr class="table-schema1-light">
                <td nowrap><div id="jobtitle">Jobtitle</div></td>
                <td><input type="text" name="Titel" value="<%=Request.Form("Titel")%>"></td>
            </tr>
            <tr class="table-schema1-dark">
                <td nowrap><div id="company">Company</div></td>
                <td width="100%"><input type="text" name="firma" value="<%=Request.Form("Firma")%>"></td>
            </tr>
            <tr class="table-schema1-light">
                <td nowrap><div id="department">Department</div></td>
                <td width="100%"><input type="text" name="abteilung" value="<%=Request.Form("Abteilung")%>"></td>
            </tr>
            <tr class="table-schema1-dark">
                <td nowrap><div id="street">Street</div></td>
                <td><input type="text" name="strasse" value="<%=Request.Form("Strasse")%>"></td>
            </tr>
            <tr class="table-schema1-light">
                <td nowrap><div id="city">Zipcode & City</div></td>
                <td><input type="text" name="PLZOrt" value="<%=Request.Form("PLZOrt")%>"></td>
            </tr>
            <tr class="table-schema1-dark">
                <td nowrap><div id="state">State/Province</div></td>
                <td><input type="text" name="region" value="<%=Request.Form("region")%>"></td>
            </tr>
            <tr class="table-schema1-light">
                <td nowrap><div id="country">Country</div></td>
                <td nowrap><select name="Land" id="Land"><option>Afghanistan<option>Albania<option>Algeria<option>American Samoa<option>Andorra<option>Angola<option>Anguilla<option>Antarctica<option>Antigua and Barbuda<option>Argentina<option>Armenia<option>Aruba<option>Australia<option >Austria<option >Azerbaijan<option >Bahamas<option >Bahrain<option >Bangladesh<option >Barbados<option >Belarus<option >Belgium<option >Belize<option >Benin<option >Bermuda<option >Bhutan<option >Bolivia<option >Bosnia and Herzegovina<option >Botswana<option >Bouvet Island<option >Brazil<option >British Indian Ocean Territory<option >Brunei<option >Bulgaria<option >Burkina Faso<option >Burundi<option >Cambodia<option >Cameroon<option >Canada<option >Cape Verde<option >Cayman Islands<option >Central African Republic<option >Chad<option >Chile<option >China<option >Christmas Island<option >Cocos &#40;Keeling&#41; Islands<option >Colombia<option >Comoros<option >Congo<option >Cook Islands<option >Costa Rica<option >Côte d&#39;Ivoire<option >Croatia &#40;Hrvatska&#41;<option >Cuba<option >Cyprus<option >Czech Republic<option >Congo &#40;DRC&#41;<option >Denmark<option >Djibouti<option >Dominica<option >Dominican Republic<option >East Timor<option >Ecuador<option >Egypt<option >El Salvador<option >Equatorial Guinea<option >Eritrea<option >Estonia<option >Ethiopia<option >Falkland Islands &#40;Islas Malvinas&#41;<option >Faroe Islands<option >Fiji Islands<option >Finland<option >France<option >French Guiana<option >French Polynesia<option >French Southern and Antarctic Lands<option >Gabon<option >Gambia<option >Georgia<option >Germany<option >Ghana<option >Gibraltar<option >Greece<option >Greenland<option >Grenada<option >Guadeloupe<option >Guam<option >Guatemala<option >Guinea<option >Guinea-Bissau<option >Guyana<option >Haiti<option >Heard Island and McDonald Islands<option >Honduras<option >Hong Kong SAR<option >Hungary<option >Iceland<option >India<option >Indonesia<option >Iran<option >Iraq<option >Ireland<option >Israel<option >Italy<option >Jamaica<option >Japan<option >Jordan<option >Kazakhstan<option >Kenya<option >Kiribati<option >Korea<option >Kuwait<option >Kyrgyzstan<option >Laos<option >Latvia<option >Lebanon<option >Lesotho<option >Liberia<option >Libya<option >Liechtenstein<option >Lithuania<option >Luxembourg<option >Macao SAR<option >Macedonia, Former Yugoslav Republic of<option >Madagascar<option >Malawi<option >Malaysia<option >Maldives<option >Mali<option >Malta<option >Marshall Islands<option >Martinique<option >Mauritania<option >Mauritius<option >Mayotte<option >Mexico<option >Micronesia<option >Moldova<option >Monaco<option >Mongolia<option >Montserrat<option >Morocco<option >Mozambique<option >Myanmar<option >Namibia<option >Nauru<option >Nepal<option >Netherlands<option >Netherlands Antilles<option >New Caledonia<option >New Zealand<option >Nicaragua<option >Niger<option >Nigeria<option >Niue<option >Norfolk Island<option >North Korea<option >Northern Mariana Islands<option >Norway<option >Oman<option >Pakistan<option >Palau<option >Panama<option >Papua New Guinea<option >Paraguay<option >Peru<option >Philippines<option >Pitcairn Islands<option >Poland<option >Portugal<option >Puerto Rico<option >Qatar<option >Reunion<option >Romania<option >Russia<option >Rwanda<option >Samoa<option >San Marino<option >São Tomé and Príncipe<option >Saudi Arabia<option >Senegal<option >Serbia and Montenegro<option >Seychelles<option >Sierra Leone<option >Singapore<option >Slovakia<option >Slovenia<option >Solomon Islands<option >Somalia<option >South Africa<option >South Georgia and the South Sandwich Islands<option >Spain<option >Sri Lanka<option >St. Helena<option >St. Kitts and Nevis<option >St. Lucia<option >St. Pierre and Miquelon<option >St. Vincent and the Grenadines<option >Sudan<option >Suriname<option >Svalbard and Jan Mayen<option >Swaziland<option >Sweden<option >Switzerland<option >Syria<option >Taiwan<option >Tajikistan<option >Tanzania<option >Thailand<option >Togo<option >Tokelau<option >Tonga<option >Trinidad and Tobago<option >Tunisia<option >Turkey<option >Turkmenistan<option >Turks and Caicos Islands<option >Tuvalu<option >Uganda<option >Ukraine<option >United Arab Emirates<option >United Kingdom<option >United States<option >United States Minor Outlying Islands<option >Uruguay<option >Uzbekistan<option >Vanuatu<option >Vatican City<option >Venezuela<option >Viet Nam<option >Virgin Islands &#40;British&#41;<option >Virgin Islands<option >Wallis and Futuna<option >Yemen<option >Zambia<option >Zimbabwe</select></td>
            </tr>
            <tr class="table-schema1-dark">
                <td nowrap><div id="phone">Phone</div></td>
                <td><input type="text" name="telefon" value="<%=Request.Form("Telefon")%>"></td>
            </tr>
            <tr class="table-schema1-light">
                <td nowrap><div id="fax">Fax</div></td>
                <td><input type="text" name="fax" value="<%=Request.Form("Fax")%>"></td>
            </tr>
            <tr class="table-schema1-dark">
                <td nowrap><div id="email">E-Mail</div></td>
                <td><input type="text" name="email" value="<%=Request.Form("EMail")%>"></td>
            </tr>
            
        </table></td>
        <td><img src="/jpn/_images/pxalpha.gif" width="15" height="1" border="0"></td>
        <td valign="top" width="50%"><table cellspacing="0" cellpadding="4" border="0" width="100%">
            <tr class="<% if "invisible"<>"" then Response.Write "table-schema1-light" else Response.Write "table-schema1-dark" end if %>">
                <td width="10%" nowrap valign="top" style="padding-top:9px;">Anfrage an:</td>
                <td nowrap><select name="visiting_date" size="1">
                    01.01.2000
                </select>
                
                <script>
                    var sSelectedVisitingOptionsEntry = "<% Response.Write Request.Form("visiting_date") %>";
                    if(sSelectedVisitingOptionsEntry!="")
                    {
                        for(i=0;i<document.contact.visiting_date.options.length;i++)
                        {
                            if(document.contact.visiting_date.options[i].text==sSelectedVisitingOptionsEntry)
                            {
                    
                                document.contact.visiting_date.selectedIndex = i;
                            }
                        }
                    }
                </script>
                </td>
            </tr>
            <!--invisible
            <tr class="<% if "invisible"<>"" then Response.Write "table-schema1-dark" else Response.Write "table-schema1-light" end if %>">
                <td width="10%" nowrap valign="top" style="padding-top:9px;">Zeit Ihres Besuchs</td>
                <td nowrap><select name="visiting_time" size="1">
                    <option>09:00 - 09:30
<option>09:30 - 10:00
<option>10:00 - 10:30
<option>10:30 - 11:00
<option>11:00 - 11:30
<option>11:30 - 12:00

<option>14:00 - 14:30
<option>14:30 - 15:00
<option>15:00 - 15:30
<option>15:30 - 16:00
<option>16:00 - 16:30
<option>16:30 - 17:00
<option>17:00 - 17:30
<option>17:30 - 18:00
                </select>
                
                <script>
                    var sSelectedVisitingTimeEntry = "<% Response.Write Request.Form("visiting_time") %>";
                    if(sSelectedVisitingTimeEntry!="")
                    {
                        for(i=0;i<document.contact.visiting_time.options.length;i++)
                        {
                            if(document.contact.visiting_time.options[i].text==sSelectedVisitingTimeEntry)
                            {
                    
                                document.contact.visiting_time.selectedIndex = i;
                            }
                        }
                    }
                </script>


                </td>
            </tr>
            invisible-->
            <tr class="table-schema1-dark">
                <td nowrap><div id="betreff">Subject*</div></td>
                <td><input type="text" name="AnzahlPersonen" value="">
                
                
                </td>

            </tr>
            <tr class="table-schema1-light">
                <td valign="top" nowrap><div id="message">Message</div></td>
                <td><textarea name="nachricht" rows="21"><% =Request.Form("nachricht") %></textarea></td>
            </tr>
        </table></td>
    </tr>
</table>
<input type="checkbox" name="telephoneCall" value="yes">&nbsp;<b><span id="callback">Please contact me via phone.</span></b><br><br>
<input type="checkbox" name="keepUpdatedOnNewProducts" value="yes">&nbsp;<b><span id="informer">Please inform me about new products and/or product news.</span></b><br>
<input type="hidden" name="toEMail" value="info@polytec.de">
<br><input type="image" src="/jpn/_images/kontakformular_senden_jp.gif" border="0">
 
</form>
<%
else
%>
<h1 style="margin-bottom:5px;">Online Anmeldung</h1>
<p style="width:570px; font-weight:bolder;">&lt;P&gt;Vielen Dank f&uuml;r Ihre Anmeldung.&lt;/P&gt;<BR>&lt;P&gt;Folgende Daten sind bei uns eingegangen:&lt;/P&gt;</p>
<table cellspacing="0" cellpadding="0" border="0" width="570" class="formular" style="margin:0px 0px 10px 0px">
    <tr>
        <td valign="top" width="50%"><table cellspacing="0" cellpadding="4" border="0" width="100%">
            <tr class="table-schema1-dark">
                <td nowrap><div id="salutation">Salutation/Title</div></td>
                <td><%=Request.Form("Anrede")%></td>
            </tr>
            <tr class="table-schema1-light">
                <td nowrap><div id="firstname">Firstname</div></td>
                <td><%=Request.Form("Vorname")%></td>
            </tr>
            <tr class="table-schema1-dark">
                <td nowrap><div id="lastname">Surname</div></td>
                <td><%=Request.Form("Nachname")%></td>
            </tr>
            <tr class="table-schema1-light">
                <td nowrap><div id="jobtitle">Jobtitle</div></td>
                <td><%=Request.Form("Titel")%></td>
            </tr>
            <tr class="table-schema1-dark">
                <td nowrap><div id="company">Company</div></td>
                <td width="100%"><%=Request.Form("Firma")%></td>
            </tr>
            <tr class="table-schema1-light">
                <td nowrap><div id="department">Department</div></td>
                <td width="100%"><%=Request.Form("Abteilung")%></td>
            </tr>
            <tr class="table-schema1-dark">
                <td nowrap><div id="street">Street</div></td>
                <td><%=Request.Form("Strasse")%></td>
            </tr>
            <tr class="table-schema1-light">
                <td nowrap><div id="city">Zipcode & City</div></td>
                <td><%=Request.Form("PLZOrt")%></td>
            </tr>
            <tr class="table-schema1-dark">
                <td nowrap><div id="state">State</div></td>
                <td><%=Request.Form("Region")%></td>
            </tr>
            <tr class="table-schema1-light">
                <td nowrap><div id="country">Country</div></td>
                <td><%=Request.Form("Land")%></td>
            </tr>
            <tr class="table-schema1-dark">
                <td nowrap><div id="phone">Phone</div></td>
                <td><%=Request.Form("Telefon")%></td>
            </tr>
            <tr class="table-schema1-light">
                <td nowrap><div id="fax">Fax</div></td>
                <td><%=Request.Form("Fax")%></td>
            </tr>
            <tr class="table-schema1-dark">
                <td nowrap><div id="email">E-Mail</div></td>
                <td><%=Request.Form("EMail")%></td>
            </tr>
            
        </table></td>
        <td><img src="/jpn/_images/pxalpha.gif" width="15" height="1" border="0"></td>
        <td valign="top" width="50%"><table cellspacing="0" cellpadding="4" border="0" width="100%">
            <tr class="table-schema1-dark">
                <td width="10%" nowrap valign="top" style="padding-top:9px;">Anfrage an:</td>
                <td><%=Request.Form("visiting_date")%></td>
            </tr>
            <tr class="table-schema1-light">
                <td width="10%" nowrap valign="top" style="padding-top:9px;">Zeit Ihres Besuchs</td>
                <td><%=Request.Form("visiting_time")%></td>
            </tr>
            <tr class="table-schema1-dark">
                <td nowrap><div id="betreff">Subject</div></td>
                <td><%=Request.Form("AnzahlPersonen")%></td>
            </tr>
            <tr class="table-schema1-light">
                <td valign="top"><div id="message">Message</div></td>
                <td><%=Request.Form("Nachricht")%></td>
            </tr>
        </table></td>
    </tr>
</table> 
<%
end if

end if
%>


<script src="http://www.google-analytics.com/urchin.js" type="text/javascript"></script>
<script type="text/javascript">
_uacct = "UA-1094088-1";
loc = document.location.href;
locationStrings = loc.split("/");
for (i=0; i<locationStrings.length; i++) {
if (locationStrings[i]=="ger")
 _uacct = "UA-1094088-6";
if (locationStrings[i]=="usa")
 _uacct = "UA-1094088-7";
if (locationStrings[i]=="jpn")
 _uacct = "UA-1094088-8";
if (locationStrings[i]=="eur")
 _uacct = "UA-1094088-9";
if (locationStrings[i]=="int")
 _uacct = "UA-1094088-10";
 }
urchinTracker();
function getSelectedCountry() {
    language = "Please Choose";
    locationString = document.location.href;
    if (locationString.indexOf("/ger/")!=-1)
        language = "Germany";
    if (locationString.indexOf("/usa/")!=-1)
        language = "United States";
    if (locationString.indexOf("/jpn/")!=-1)
        language = "Japan";
    if (locationString.indexOf("/fr/")!=-1)
        language = "France";
    for (i=0; i<document.getElementById("Land").options.length; i++) {
        if (document.getElementById("Land").options[i].text==language)
        document.getElementById("Land").options[i].selected = true;
        } 
        
        }
function setLanguageLabels(language) {
 
 labels = new Array();
 labels[0] = "salutation";
 labels[1] = "firstname";
 labels[2] = "lastname"; 
 labels[3] = "jobtitle";
 labels[4] = "company";
 labels[5] = "department";
 labels[6] = "street";
 labels[7] = "city";
 labels[8] = "state";
 labels[9] = "country";
 labels[10] = "phone";
 labels[11] = "fax";
 labels[12] = "email";
 labels[13] = "betreff";
 labels[14] = "message";
 labels[15] = "callback";
 labels[16] = "informer";
 
 lang = new Array();
 lang["ger"] = new Array();
 lang["jpn"] = new Array();
 lang["usa"] = new Array();
 lang["fr"] = new Array();
 
 lang["ger"]["salutation"] = "Anrede/Titel";
 lang["ger"]["firstname"] = "Vorname*";
 lang["ger"]["lastname"] = "Nachname*";
 lang["ger"]["jobtitle"] = "Position";
 lang["ger"]["company"] = "Firma*";
 lang["ger"]["department"] = "Abteilung";
 lang["ger"]["street"] = "Strasse*";
 lang["ger"]["city"] = "PLZ/Stadt*";
 lang["ger"]["state"] = "Bundesland";
 lang["ger"]["country"] = "Land*";
 lang["ger"]["phone"] = "Telefon*";
 lang["ger"]["fax"] = "Fax";
 lang["ger"]["email"] = "E-Mail*";
 lang["ger"]["betreff"] = "Betreff";
 lang["ger"]["message"] = "Ihre Nachricht";
 lang["ger"]["callback"] = "Ich möchte gerne zurückgerufen werden";
 lang["ger"]["informer"] = "Ich möchte über Produktneuheiten informiert werden";

 lang["usa"]["salutation"] = "Salutation/Title";
 lang["usa"]["firstname"] = "First Name*";
 lang["usa"]["lastname"] = "Last Name*";
 lang["usa"]["jobtitle"] = "Job Title";
 lang["usa"]["company"] = "Company*";
 lang["usa"]["department"] = "Department";
 lang["usa"]["street"] = "Street*";
 lang["usa"]["city"] = "City & State(Province)*";
 lang["usa"]["state"] = "Zip Code";
 lang["usa"]["country"] = "Country*";
 lang["usa"]["phone"] = "Telephone*";
 lang["usa"]["fax"] = "Fax";
 lang["usa"]["email"] = "E-Mail*";
 lang["usa"]["betreff"] = "Subject";
 lang["usa"]["message"] = "Message";
 lang["usa"]["callback"] = "Please have a sales manager contact me.";
 lang["usa"]["informer"] = "Please add me to your email distribution list to keep me informed about new products and special Polytec events.";

 lang["jpn"]["salutation"] = "肩書";
 lang["jpn"]["firstname"] = "姓*";
 lang["jpn"]["lastname"] = "名*";
 lang["jpn"]["jobtitle"] = "役職";
 lang["jpn"]["company"] = "会社名*";
 lang["jpn"]["department"] = "部署名";
 lang["jpn"]["street"] = "県*";
 lang["jpn"]["city"] = "市区町村*";
 lang["jpn"]["state"] = "番地およびビル名";
 lang["jpn"]["country"] = "国*";
 lang["jpn"]["phone"] = "電話番号*";
 lang["jpn"]["fax"] = "FAX番号";
 lang["jpn"]["email"] = "Eメールアドレス*";
 lang["jpn"]["betreff"] = "件名";
 lang["jpn"]["message"] = "メッセージ";
 lang["jpn"]["callback"] = "電話希望";
 lang["jpn"]["informer"] = "新製品情報希望";

 lang["fr"]["salutation"] = "Civilité / Titr";
 lang["fr"]["firstname"] = "Nom*";
 lang["fr"]["lastname"] = "Prénom*";
 lang["fr"]["jobtitle"] = "Profession";
 lang["fr"]["company"] = "Société*";
 lang["fr"]["department"] = "Service";
 lang["fr"]["street"] = "Adresse*";
 lang["fr"]["city"] = "Ville*";
 lang["fr"]["state"] = "Postcode";
 lang["fr"]["country"] = "Pays*";
 lang["fr"]["phone"] = "Téléphone*";
 lang["fr"]["fax"] = "Fax";
 lang["fr"]["email"] = "E-mail*";
 lang["fr"]["betreff"] = "Objet";
 lang["fr"]["message"] = "Message";
 lang["fr"]["callback"] = "Je souhaite qu’un ingénieur commercial me contacte";
 lang["fr"]["informer"] = "Merci de m’ajouter à votre liste de distribution pour être informé des nouveaux produits et des événements spéciaux.";


 language = "usa";
 testFolder = document.location.href;
 if (testFolder.indexOf("/ger/")!=-1)
  language = "ger";
 if (testFolder.indexOf("/usa/")!=-1)
  language = "usa";
 if (testFolder.indexOf("/jpn/")!=-1)
  language = "jpn";
 if (testFolder.indexOf("/fr/")!=-1)
  language = "fr";

 for (i=0; i<17; i++) {
  myString = "document.getElementById(labels[i]).innerHTML = lang[language][labels[i]];";
  eval (myString);
  }
getSelectedCountry();
}
onLoad = setLanguageLabels();
</script>