bildirgec.org

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

<form method="POST" action="default.asp?graffiti=goster">
 <input type="text" name="tagtag" size="20">
 <input type="submit" value="Gönder" name="B1">
</form>

<%
if Request.QueryString("graffiti")="goster" then
%>
<% 
kelime = Request.Form("tagtag") 
if kelime = "" then
Response.Write "Metin Kutusu Boş Bırakılmış.."
Response.End

response.end
end if
for i = 1 to Len(kelime)
x = Mid(kelime,i,1)
if uCase(x) = x and isnumeric(x) = false then
response.write "<img src='http://arsiv.pilli.com/http://arsiv.pilli.com/harfler/"& x &".jpg'>"
else
response.write "<img src='http://arsiv.pilli.com/http://arsiv.pilli.com/harfler/"& x &".jpg'>"
end if
next
%>

<%end if%>