<% Function OkuURL Dim oXMLHttp on error resume Next Set oXMLHttp = Server. CreateObject("MSXML2. XMLHTTP") oXMLHttp. Open "GET" , Trim , false oXMLHttp. send If oXMLHttp. status = 200 Then OkuURL = oXMLHttp. responseText ElseIf oXMLHttp. status = 404 Then OkuURL = "Sayfa Bulunamadi." ElseIf oXMLHttp. status = 500 Then OkuURL = "Sayfada ic sunucu hatasi." Else OkuURL = "HATA. HATA KODU = " & oXMLHttp. status End If Set oXMLHttp = Nothing End Function if Len(Request. Form > 0 Then Response. write OkuURL(Request. form else %> <form method="post"> <input type="text" name="URL" id="URL"> <input type="submit" name="submit" id="submit" value="Kaydet"> </form> <% end if %> Bu fonksion ile sayfa kodlarini almayi yaptim ama sorunum sayfadaki jpg gif css gibi islemleri gosteremiyorum bu mantik ile. yapmak istediğim sey. bir cesit toplist uygulamasi yazdim. ama her ay'n 15'nde sitenin default sayfasinin bir mirror'unu alip arsive koyup sitedeki gelismeleri gostermek istiyorum. ama Css - js ve images lerin gozukmediği icin bir anlami olmuyor sizin onereceğiniz bir mantik varmi acaba? Bu Yüce Türk Milleti ne ihanetler grdü hepsinin üstesinden gelmeyi başararak tarihe nice zaferler yazdırdı. Bu Millet Kuva-yı milliye hareketini yeniden başlatır. Sivas Kongresini yeniden toplar, Ya İstiklal, Ya lüm diye haykırır ve gereğini yapar. Türk Milleti ihaneti ve hainleri hiç affetmez. Dileğimiz odur ki bu iş sandıkta bitsin, aksi halde "sürüye dalmayı gze alan Kurt, çobanın da, kpeğinde hesabını yapmaz."