Asp de veri tabanı bağlantısı acma

[ibrahimkaya396]

arkadaşlar yazmış olduğum bu komutlarla acces veritabanına bilgi kayıdı yapabiliyorsunuz veritabanını dp klasörü içinde uyeler adında olmasına dikkat edin ve IIS de calışıyorsanız okuma ve yazma izinlerinin olamasına dikkat edin

<%
Set conn=server.createobject("adodb.connection")
dsnpath="DRIVER={MICROSOFT ACCESS DRIVER (*.MDB)}; "
dsnpath=dsnpath & "DBQ=" & Server.MapPath("db/uyeler.mdb")
conn.open dsnpath

sql="SELECT*FROM uyeler;"
Set rs=conn.execute(sql)
Do While not rs.eof

if request.form("kadi")=rs("kadi") then
msg="girmis olduğunuz kullanici adi kullanilmaktadir !!!"
%>
<p> </p>
<table border="1" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%"> 
<div align="center">
<p><b><font face="Verdana" size="3" color="#FF0000"><%=msg%></font></b></p>
<p><font size="2" face="Verdana"><b>forma dönmek için</b> <i><a href="Javascript:history.back()">Tıklayınız!!!</a></i></font></p>
</div>
<%
response.end
end if
rs.movenext
loop


sql="insert into uyeler("
sql=sql + "adi"

sql=sql + ") values("
sql=sql + "'" + request.form("adi") + "'" +");"

conn.execute(sql)

msg="uyeliginiz basarili bir sekilde tamamlanmistir !!!"

end if

rs.close
Set rs=nothing
conn.close
Set conn=nothing
%>
<div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="3" color="blue"><b><%=msg%></b>
</font>
<p><b><font size="2" color="#000000" face="Verdana">AnaSayfa'ya Dönmek için </font></b><i><font color="#000000" face="Verdana" size="3"><a href="uye_girisi.asp"><font size="2">Tıklayınız!</font>
</a></font></i></p>
<p> </p>
</div>
</td>
</tr>
</table>


TEŞEKKÜRÜ COK GÖRMEZSİNİZ UMARIM