Witajcie.
Mam jeden problem. W pliku default.asp wklejonym ponizej mam zrobiony odczyt z bazy danych mysql, z ktorej pobierana sa dane. Dawno nie bawilem sie w Classic ASP, podpowiedzcie jakis przyklad co dopisac, aby z poziomu tej stronki bylo mozliwe dodanie rekordu oraz usuniecie go z bazy. Jakies pole z wyborem rekordu i operacja do zrealizowania. Dzieki!

 <%@ Language=VBScript %>
<%Dim sConnection, objConn , objRS
Session.Abandon
sConnection = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=localhost; DATABASE=test; UID=root;PASSWORD=root; Charset=latin2; stmt=SET NAMES latin2"
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open(sConnection) %>

<head>
	<meta http-equiv="Content-Type" content="text/html; charset=iso8859-2"/>

	<title>Sklep Muzyczny</title>
	<link rel="stylesheet" href="style.css" type="text/css" charset="iso8859-2" />
	
</head>

<body>

  <div id="wrapper">
    <h1><em>Sklep</em> Muzyczny</h1>
    <div id="nav">
      <ul>
        <a><li><span>01</span> O SKLEPIE</li>
        <li><span>02</span> GALERIA</li>
        <li><span>03</span> MUZYKA</li>
        <li><span>04</span> ARTYSCI</li>
        <li><span>05</span> KONTAKT</li></a>
      </ul>
    </div>
    <div id="topcon">
      <div id="topcon-inner">
        <h2>Witamy w sklepie muzycznym</h2>
		<form action="logowanie2.asp" method="post"><br>
		&nbsp;&nbsp;Login:	
		&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
		&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
		Haslo:<br>
		&nbsp;
		<input name="login" type="text" size="10">&nbsp;&nbsp;&nbsp;
		<input name="haslo" type="password" size="10">&nbsp;&nbsp;&nbsp;
		<input type="submit" value="login">
		</form>
	</div>
    </div>
    <div id="content">
      <div id="body">
        <div class="box" id="news">
          <div class="box-t"><div class="box-r"><div class="box-b"><div class="box-l">
          <div class="box-tr"><div class="box-br"><div class="box-bl"><div class="box-tl">

            <h2>WIADOMOSCI i WYDARZENIA</h2>

            <h3>07.01.2011</h3>
             <p>Czesław Niemen<br>Nowe wersje starych nagrań oraz niepublikowane nigdy dotąd utwory muzyk przedstawił w rozbudowanych wersjach elektroniczno-wokalnych. Pokazują one mało znany okres działalnosci artysty z połowy lat 80tych i jego fascynacje wchodzącymi wtedy nowymi technikami nagraniowymi. </p>
            <p class="more"></p>

            <div class="hr-yellow"> </div>

            <h3>08.01.2011</h3>
            <p>Jako PERFECT istnieja już od 30 lat, a wciaz maja niespozyta energię! Udowadniaja to na swoim kolejnym studyjnym albumie! 30 rok działalnosci artystycznej był dla nich bardzo pracowity, nie zwolnili tempa! Nie tylko nagrali nowa płytę, ale również dużo koncertowali zarówno w wielu miastach Polski jak i poza granicami kraju m.in. w USA, Kanadzie i w Niemczech.</p>
            <p class="more">more...</p>

          </div></div></div></div>
          </div></div></div></div>
        </div>
        <div class="box" id="hits">
          <div class="box-t"><div class="box-r"><div class="box-b"><div class="box-l">
          <div class="box-tr"><div class="box-br"><div class="box-bl"><div class="box-tl">

            <h2>TOP LISTA</h2>

            <h3>TOP ALBUMY</h3>
            <img src="images/pic_1.jpg" width="63" height="91" alt="Pic 1" class="right" />
             <ul>
<% Set objRS = objConn.Execute("select tytul  from album ") 

Response.Write "<li>1. " & objRS.Fields("tytul") & "</li>" 
objRS.MoveNext
Response.Write "<li>2. " & objRS.Fields("tytul") & "</li>" 
objRS.MoveNext
Response.Write "<li>3. " & objRS.Fields("tytul") & "</li>" 
objRS.MoveNext
Response.Write "<li>4. " & objRS.Fields("tytul") & "</li>" 
objRS.MoveNext
Response.Write "<li>5. " & objRS.Fields("tytul") & "</li>" 
objRS.MoveNext


Set objRS = Nothing%>
            </ul>
             <div class="hr-yellow"> </div>
            
            <h3>TOP ARTYSCI</h3>
            <img src="images/pic_2.jpg" width="63" height="81" alt="Pic 2" class="right" />
            <ul>

<% Set objRS = objConn.Execute("SELECT grupa FROM test.muzyk") 

Response.Write "<li>1. " & objRS.Fields("grupa") & "</li>" 
objRS.MoveNext
Response.Write "<li>2. " & objRS.Fields("grupa") & "</li>" 
objRS.MoveNext
Response.Write "<li>3. " & objRS.Fields("grupa") & "</li>" 
objRS.MoveNext
Response.Write "<li>4. " & objRS.Fields("grupa") & "</li>" 
objRS.MoveNext
Response.Write "<li>5. " & objRS.Fields("grupa") & "</li>" 
objRS.MoveNext

objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing %>

            </ul>
          </div></div></div></div>
          </div></div></div></div>
        </div>
        <div class="box" id="new">
          <div class="box-t"><div class="box-r"><div class="box-b"><div class="box-l">
          <div class="box-tr"><div class="box-br"><div class="box-bl"><div class="box-tl">

            <h2>NOWOSCI</h2>
            
            <h3>Sonia</h3>
            <img src="images/pic_3.jpg" width="66" height="52" alt="Pic 3" class="right" />
            <p>Nowy super album juz u nas w sklepie.</p>
            
            <h3>Maecenas</h3>
            <img src="images/pic_4.jpg" width="66" height="52" alt="Pic 4" class="right" />
            <p>Kolejna plyta do nabycia tylko u nas.</p>
            
            <h3>Fort MInor</h3>
            <img src="images/pic_5.jpg" width="66" height="52" alt="Pic 5" class="right" />
            <p>Teraz takze w naszym sklepie hit!!!</p>
            
          </div></div></div></div>
          </div></div></div></div>
        </div>
        <div class="clear"> </div>
      </div>
      <div id="footer">
        <ul>
         
        </ul>
        <p>Gracjan Tyczynski</p>
      </div>
    </div>
  </div>

</body>
</html>