March 29th, 2001, 04:02 AM
|
|
Contributing User
|
|
Join Date: Dec 2002
Posts: 14,575
Time spent in forums: < 1 sec
Reputation Power: 22
|
|
|
Rowset does not support scrolling backward
<i><b>Originally posted by : zaqi (z4q1@link.net.id)</b></i><br />Some body can help me please...!!<br /><br />when i run it<br /><br />Microsoft OLE DB Provider for ODBC Drivers error '80040e29' <br /><br />Rowset does not support scrolling backward. <br /><br />and my script....<br /><br /><% Option Explicit %><br /><%<br /> Dim objConn<br /> Set objConn = Server.CreateObject("ADODB.Connection")<br /> ObjConn.Open "PROVIDER=MSDASQL;driver={SQL Server};server=SERVER;uid=SA;pwd=;database=BUMIPUT ERA;"<br /><br />%><br /><html><br /><head><br /><title>Untitled Document</title><br /><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><br /></head><br /><body bgcolor="#FFFFFF" text="#000000"><br /><%<br /> Dim adOpenDynamic, adLockOptimistic, adCmdTable<br /> adOpenDynamic = 0<br /> adLockOptimistic = 1<br /> adCmdTable = 2<br /> Dim strCriteria, strNoPolis<br /> strNoPolis = Request.Form("NoPolis")<br /><br /> Dim objRS<br /> Set objRS = Server.CreateObject("ADODB.Recordset")<br /> objRS.Open "PolisAsuransi", objConn, adOpenDynamic, adLockOptimistic, adCmdTable<br /> <br /> strCriteria = "NoPolis='" & strNoPolis & "'"<br /> objRs.MoveNext<br /> objRS.Find strCriteria<br /> If objRS.EOF Then<br /> Response.Redirect "Cari.asp"<br /> Else<br /> Response.Write "<b>No Polis :</b>" & objRS("NoPolis") & "<BR>" &_<br /> "<b>Nama :</b>" & objRS("Nama") & "<BR>"<br /> End If<br /> objRS.Close<br /> SetobjRS = Nothing<br />%><br /><br /></body><br /></html><br /><br /><br />
|
ASP Free Forums Sponsor:
Del.icio.us
Digg
Google
Spurl
Blink
Furl
Simpy
Y! MyWeb
Linear Mode
