MYSQL DE İŞLEM YAPMAK YADA BILGI ALMAK VERITABANı BAĞLANTıSıNı KAPATMAK

<%
   Baglanti.Execute ”INSERT INTO uyeler (uye) VALUES(”Onurlu Dünya”);”
%>

<%
   Sorgu = ”SELECT uye FROM uyeler ORDER BY id;”
   Set Kayit = Baglanti.Execute( Sorgu )

   If Kayit.eof and Kayit.bof Then
      Response.Write ”(Kayıt Yok)<br />”
   Else
      DO WHILE Not Kayit.Eof
         Response.Write ”Hoşgeldiniz :” & Kayit(”uye”) & ”<br />”
         Kayit.movenext
      LOOP
   End if%>

<%
   Baglanti.Close
%>