response.write c_lang("Word to search") &":<br><nobr>" ' Wort anzeigen For x = 1 To len(Session("hm_word")) letter = mid(Session("hm_word"),x,1) If letter = " " Then ' Leerstelle response.write "</nobr> <nobr>" Elseif asc(lcase(letter)) < 97 OR asc(lcase(letter)) > 122 Then ' Sonderzeichen response.write letter &" " ElseIf instr(1,Session("hm_letters"),letter,1) = 0 Then ' noch nicht gefunden response.write "_ " needed = needed + 1 Else response.write letter &" " End If Next response.write "</nobr></td></tr>"& vbCrLf &"<tr><td style=""padding-left: 15px"" valign=""bottom"">"& vbCrLf
If needed = 0 Then ' Gewonnen response.write c_lang("Guessed") &"! <a href="".?id="& u_id &"&thread="& thread_id &""" target=""_parent"">"& c_lang("cont") &"</a><br><br><br>"& vbCrLf Session("hm_status") = "won" Else response.write "<table style=""border: 2px outset #FFFFFF""><tr>" ' Buchstabe auswählen response.write "<caption>"& c_lang("your choice") &":</caption>" For x = 65 To 90 response.write "<th>" If NOT InStr(1,Session("hm_letters"),chr(x),1) = 0 Then response.write "<s>"& chr(x) &"</s>" Else response.write "<a href=""?id="& u_id &"&thread="& thread_id &"&letter="& chr(x) &"&color="& color &"&size="& size &"&lang="& lang &"&gif="& gif &""">"& chr(x) &"</a>" End If response.write "</th>" If x = 77 Then response.write "</tr><tr>" Next response.write "</tr></table>"& vbCrLf End If response.write "</td></tr></table>"& vbCrLf