uguronline
22.05.2006, 21:12
arkadaşlar benim amacım default.asp'e db'den bilgi çekip, o bilgilere tıklanıldığında git.asp sayfasının açılmasını sağlamak. o sayfadada yine aynı db'den başka bilgiler yazacak. scripti uplaod ettim indirip bana düzgün halini gödnerirseniz sevinicem
________________________
default.asp
<%
Set baglanti = Server.CreateObject("ADODB.Connection")
baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPaş("db.mdb")
set uguronline = Server.CreateObject("ADODB.RecordSet")
SQL = "Select * from tablo ORDER BY ID"
uguronline.open SQL,baglanti,1,3
syf = Request.QueryString("syf")
If syf="" Then syf="1"
uguronline.pagesize = 5 'bir sayfada kaç kayıt olacak
uguronline.absolutepage = syf
sayfa_sayisi = uguronline.pagecount
for i=1 to uguronline.pagesize
If uguronline.eof Then exit for%>
<html>
<head>
<table border="0" cellpadding="1" cellspacing="1" id="table1"><tr>
<td><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">
Açıklama<font color="#000000">: </font>
<a href="git.asp?id=<%=uguronline("id")%>">
<span style="text-decoration: none"> <%=uguronline("isim")%></span></a></fon t></td></tr>
<%uguronline.movenext
Next
%>
________________________
git.asp
<% Response.Buffer=True%>
<% id=request.querystring("id")%>
<%Set baglanti = Server.CreateObject("ADODB.Connection")
baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPaş("db.mdb")
set uguronline = Server.CreateObject("ADODB.RecordSet")
SQL = "Select * from tablo where ID="&id
uguronline.open SQL,baglanti,1,3
if uguronline.eof or uguronline.BOF şen
Response.Write "Böyle Bir Dosya Yoktur."
uguronline.Update
end if %>
<%=uguronline("tanim")%>
________________________
hata şu şekilde
Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][ODBC Microsoft Access Sürücüsü] Çok az parametre. 1 bekleniyor.
/Default.asp, line 6
http://www.hemenpaylas.com/download/772767/wwwroot.zip.html
________________________
default.asp
<%
Set baglanti = Server.CreateObject("ADODB.Connection")
baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPaş("db.mdb")
set uguronline = Server.CreateObject("ADODB.RecordSet")
SQL = "Select * from tablo ORDER BY ID"
uguronline.open SQL,baglanti,1,3
syf = Request.QueryString("syf")
If syf="" Then syf="1"
uguronline.pagesize = 5 'bir sayfada kaç kayıt olacak
uguronline.absolutepage = syf
sayfa_sayisi = uguronline.pagecount
for i=1 to uguronline.pagesize
If uguronline.eof Then exit for%>
<html>
<head>
<table border="0" cellpadding="1" cellspacing="1" id="table1"><tr>
<td><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">
Açıklama<font color="#000000">: </font>
<a href="git.asp?id=<%=uguronline("id")%>">
<span style="text-decoration: none"> <%=uguronline("isim")%></span></a></fon t></td></tr>
<%uguronline.movenext
Next
%>
________________________
git.asp
<% Response.Buffer=True%>
<% id=request.querystring("id")%>
<%Set baglanti = Server.CreateObject("ADODB.Connection")
baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPaş("db.mdb")
set uguronline = Server.CreateObject("ADODB.RecordSet")
SQL = "Select * from tablo where ID="&id
uguronline.open SQL,baglanti,1,3
if uguronline.eof or uguronline.BOF şen
Response.Write "Böyle Bir Dosya Yoktur."
uguronline.Update
end if %>
<%=uguronline("tanim")%>
________________________
hata şu şekilde
Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][ODBC Microsoft Access Sürücüsü] Çok az parametre. 1 bekleniyor.
/Default.asp, line 6
http://www.hemenpaylas.com/download/772767/wwwroot.zip.html