onuda şu şekilde veriyim sana
default.asp ni şu şekilde yaparsan eğer önceki eklenenleride listeliyor ve yeni eklenenleride listeliyor..
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-9">
<script>
function yeni_nesne(){
var nesneyarat;
/*@cc_on @*/
/*@if (@_jscript_version >= 5) try { nesneyarat = new ActiveXObject("Msxml2.XMLHTTP"); }
catch (e) {
try { nesneyarat = new ActiveXObject("Microsoft.XMLHTTP"); }
catch (E) { nesneyarat = false; }
}@end @*/
if (!nesneyarat && typeof XMLHttpRequest!='undefined') {
try {
nesneyarat= new XMLHttpRequest();
} catch (e) {
nesneyarat=false;
}
}
return nesneyarat;
}
function AoL(id,cikti,hedef) {
var aktifform = document.getElementById(id);
var ekranayaz = document.getElementById(cikti);
var ciktiver = new String("");
var name, value;
for(var I = 0; I < aktifform.elements.length; I++){
name = aktifform.elements[i].name;
value = aktifform.elements[i].value;
ciktiver += escape(name) +'='+ encodeURIComponent(value) +'&';
}
var nesneiste = new yeni_nesne();
nesneiste.open("post", hedef, true);
nesneiste.setRequestHeader("Content-type", "application/x-www-form-urlencoded; charset=iso-8859-9");
nesneiste.send(ciktiver);
nesneiste.onreadystatechange = function() {
if (nesneiste.readyState == 4 && nesneiste.status == 200) {
ekranayaz.innerHTML = nesneiste.responseText;
}
else { ekranayaz.innerHTML = ''; }
}
return false;
}
</script>
</head>
<body>
<form id="form" onsubmit="return AoL(this.id,'sonuc','ajax.asp')">
<input type="text" name="adsoyad" id="adsoyad" />
<input type="submit" value="Gönder" />
</form>
<div id="sonuc"></div>
<%
response.charset = "iso-8859-9"
mysql_server = "localhost"
mysql_user = "root"
mysql_pass = "root"
mysql_db = "deneme"
Connection_DSN= "DRIVER={MySQL ODBC 5.1 Driver}; SERVER="&mysql_server&"; UID="&mysql_user&"; pwd="&mysql_pass&";db="&mysql_db&"; stmt=SET NAMES 'Latin5'"
Set tech= Server.CreateObject("ADODB.Connection")
tech.Open Connection_DSN
Set rs = tech.Execute("INSERT INTO deneme (deneme) VALUES ('" & request.form("adsoyad") & "')")
response.charset = "iso-8859-9"
Set rs =tech.Execute("Select * from deneme order by id desc")
do while not rs.eof
%>
<%=rs("deneme")%><br>
<%
rs.movenext
loop
%>
</body>
</html>