nie çalışmasın? The king is bleeding.

bu çalışıyomu? Holocaust The Late Night Hacker

destroyerin verdiğiyle gverinkinin arasında ne fark var açıklarmısınız? Im Boned, All Boned.

peki sayfadan gelen yanıtı nasıl alıyoruz projeyi holocaust@w. cn adresine yollarmısın Holocaust The Late Night Hacker

Belki lazım olur Visual kodları:If Text1. Text = "" Or Text2. Text = "" ThenMsgBox "Lütfen tüm alanları doldurunuz.."ElseIf Text1. Text = " " Or Text2. Text = " " ThenMsgBox "Boş bırakmayınız!"ElseInet1. OpenURL ("http://site.com/kaydet. asp?isminiz=" & Text2 & "&soyisminiz=" & Text1 & "&mail=" & Text3)End IfKaydet. asp :<%response. buffer=true dosya = Server. MapPath Bcumle = "DRIVER= ;DBQ=" & dosyaSet baglanti = Server. Createobject baglanti. Open Set kayit = Server. Createobject kayit. open "SELECT FROM bilgiler", baglanti, 1, 3kayit. addnewkayit = Request. querystring kayit = Request. querystring kayit = Request. querystring kayit = DateAdd("h", 8, now kayit. updatekayit. CloseSet kayit = Nothingbaglanti. CloseSet baglanti = Nothing%>Bilgiler. asp :<% dosya = Server. MapPath Bcumle = "DRIVER= ;DBQ=" & dosyaSet baglanti = Server. Createobject baglanti. Open Bcumle,1,3set kayit = Server. CreateObject kayit. open "SELECT FROM bilgiler", baglanti,1%><%if kayit. recordcount = "0" thenresponse. write "<center><font size=2 face=Verdana color=#333333>Bilgi bulunamadi!</Font><br><hr size=1></center>"end ifisminiz = Replace(isminiz,"<html>","html", 1, -1)soyisminiz = Replace(soyisminiz,"<html>","html", 1, -1)mail = Replace(mail,"<html>","html", 1, -1)While Not kayit. eofResponse. Write("<center><font size=2 face=Verdana color=#333333>İsminiz: " & kayit & "<br>Soyisminiz: " & kayit & "<br>Mail: " & kayit & "<br>Tarih:" & kayit & "<br>ID:" & kayit & "<hr color=#CCCCCC size=1 width=60% ></font></center>") kayit. MoveNext Wend%><center><font size="2" face="Verdana" color="#333333">Toplam bilgi:<%=kayit. recordcount%></font></center><%kayit. CloseSet kayit = Nothingbaglanti. CloseSet baglanti = Nothing%>

saol hoca işime yarıycak... Abra Kadabra

Zamaninda cok aramistim :) belki arayan vardir paylasim. 'Forma bir inet1 bir de command1 ekleyin. const header="Content-Type: application/x-www-form-urlencoded" Private Sub Command1_Click dim vtdata Inet1. Execute "http://localhost/test. asp", "post","user=gver&password=123456", headerDo While Inet1. StillExecuting 'DoEventsLoopvtData = Inet1. GetChunk(1024, icString)End Sub The king is bleeding.

Sağolasın gver, başka post yolları bulmuştum, bu da basite benziyor. Deneyecem. instagram.com/yks. rehberlik >> YKS Rehberlik ve Eğitim Koçluğu için takipte kalın ;)