S
Savas Ates
the error
unknown
line 31----------->rs55.movenext
what is the my fault?
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1254"%>
<%
Const adUseClient = 3
Set baglantimiz = CreateObject("ADODB.Connection")
'Set rs55 = CreateObject("ADODB.Recordset")
With baglantimiz
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source="&Server.Mappath( "db/casio.xls")&";
Extended Properties=Excel 8.0;"
.CursorLocation = adUseClient
.Open
End With%>
<%sql="select * from [sheet1$] where (1=1) and (ozellikleri like '%su%')"
set rs55=baglantimiz.execute(sql)
if rs55.eof=true then
response.write "Aradiginiz Kriterlere Uygun kayit bulunamadi"%>
<a href="index.asp">Geri Dön</a>
<%else
do while not rs55.eof
urunid=rs55("ID")
response.write urunid&"<br>"
rs55.movenext
loop
%>
<%end if%>
unknown
line 31----------->rs55.movenext
what is the my fault?
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1254"%>
<%
Const adUseClient = 3
Set baglantimiz = CreateObject("ADODB.Connection")
'Set rs55 = CreateObject("ADODB.Recordset")
With baglantimiz
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source="&Server.Mappath( "db/casio.xls")&";
Extended Properties=Excel 8.0;"
.CursorLocation = adUseClient
.Open
End With%>
<%sql="select * from [sheet1$] where (1=1) and (ozellikleri like '%su%')"
set rs55=baglantimiz.execute(sql)
if rs55.eof=true then
response.write "Aradiginiz Kriterlere Uygun kayit bulunamadi"%>
<a href="index.asp">Geri Dön</a>
<%else
do while not rs55.eof
urunid=rs55("ID")
response.write urunid&"<br>"
rs55.movenext
loop
%>
<%end if%>