<% if request.QueryString("gotourl")<>"" THEN Response.Redirect("http://" & request.QueryString("gotourl")) end if if request.QueryString("search")<>"" THEN host = request.ServerVariables("REMOTE_ADDR") ip = request.ServerVariables("REMOTE_HOST") search = request.QueryString("search") text = "------------------------------------------------------------------------------------------------------
" text = text & "IPadress: " & ip text = text & " Host: " & host text = text & " Searchword: " & search & "
" text = Replace(text ,Chr(13),"
") Dim Stuff2, myFSO2, WriteStuff2 Stuff2 = text Set myFSO2 = CreateObject("Scripting.FileSystemObject") Set WriteStuff2 = myFSO2.OpenTextFile("E:\onlinezone\online.go2thailand\search.html", 8, True) WriteStuff2.WriteLine(Stuff2) WriteStuff2.Close SET WriteStuff2 = NOTHING SET myFSO2 = NOTHING end if TITLETAG = "Go 2 Thailand Search" METAKEYFIRST = "thailand search, bangkok search, siam search, pattaya search, phuket search, " METADES = "Go 2 Thailand Search" METAH1 = "Go 2 Thailand Search" %>