Toon posts:

[ASP] Script ombouwen

Pagina: 1

Acties:

35 views sinds 30-01-2008
Reageer

maandag 14 januari 2002 13:43

Acties:

Verwijderd

Topicstarter

Wie kan mij het volgende uitleggen om onderstaande ASP-Scritp zó om te bouwen dat hij niet ALLE records uit de database (GeleKaart) vertoond, maar alleen als er bij de "Afsluitdatum" niets is ingevuld.

Ik heb zelf een "If else end if" gemaakt, dit werkt wel, maar dan werkt het stukje code niet meer om maar bijv. 5 record per pagina te geven. Hij geeft er dan wel 5 maar als je naar de andere pagina's gaat klopt het niet meer.

Wie kan mij helpen om dit aan te passen!

Alvast bedankt voor de moeite

ASP-Script wat ik nu gebruikt:

<% Session.LCID = 1043 %>
<meta http-equiv="Content-Language" content="nl">
<title>GTI - GeleKaart</title>
<body bgproperties="fixed" background="../images/gr_wt_achter.gif">
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2">
<tr>
<td width="36%">
[img]"../images/logo_schaduw.gif"[/img]</td>
<td width="64%">GeleKaart 
<a href="GeleKaart.asp">Hoofdmenu</a>
\ <a href="ogk.asp">Onderhoud gele kaarten</a> \ 
Alle ordernummers</td>
</tr>
</table>
</div>
<div align="center">
<hr>
</div>
 
<%
'---- CursorTypeEnum Values ----
Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3

'---- LockTypeEnum Values ----
Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3
Const adLockBatchOptimistic = 4

'---- CommandTypeEnum Values ----
Const adCmdUnknown = &H0008
Const adCmdText = &H0001
Const adCmdTable = &H0002
Const adCmdStoredProc = &H0004
Const adCmdFile = &H0100
Const adCmdTableDirect = &H0200

Dim PageLength, NumPages, CurrentPage

Select Case Request.Cookies("GTIGK")("AantalPP")
Case "5"
PageLength = 5
Case "10"
PageLength = 10
Case "15"
PageLength = 15
Case "20"
PageLength = 20
Case "25"
PageLength = 25
Case "30"
PageLength = 30
Case "40"
PageLength = 40
Case "50"
PageLength = 50
Case "999999"
PageLength = 999999
Case else
PageLength = 15
end Select

If Request.QueryString("page") = "" Then
CurrentPage = 1
Else
CurrentPage = CInt(Request.QueryString("page"))
End If

SQL_STRING = "SELECT * FROM GeleKaart ORDER BY OrderNummer"

DSN_CONN_STRING="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN_CONN_STRING=DSN_CONN_STRING & "DBQ=" & server.mappath("dbase/GeleKaart.mdb")

set DB_CONN=server.createobject("ADODB.Connection")
DB_CONN.Open DSN_CONN_STRING

Set RS = Server.CreateObject("ADODB.Recordset")
RS.PageSize = PageLength
RS.CacheSize = PageLength

RS.Open SQL_STRING, DB_CONN, adOpenStatic, adLockReadOnly, adCmdText

NumPages = RS.PageCount

If CurrentPage > NumPages Then CurrentPage = NumPages
If CurrentPage < 1 Then CurrentPage = 1

If NumPages = 0 Then
Response.Write "Geen records gevonden."
Else
RS.AbsolutePage = CurrentPage
%>
<div align="center">
<center>
<table border=0 cellpadding="4">
<tr>
<td bgcolor="#000080"><%=RS("OrderNummer").name %></td>
<td bgcolor="#000080"><%=RS("Opdrachtgever").name %></td>
<td bgcolor="#000080"><%=RS("ProjectNaam").name %></td>

</tr>
<%
' Lees de records
RecordCount = 0
Do While RecordCount < PageLength And Not RS.eof
%>
<tr>
<td Style="cursor:hand" OnClick="javascript:location.href='ogk_bekijken.asp?terug=ogk_ao.asp?<%=Request.ServerVariables("QUERY_STRING")%>&onum=<%=RS("OrderNummer")%>'" valign=top bgcolor="#FFFFCC"><%=RS("OrderNummer")%></td>
<td Style="cursor:hand" OnClick="javascript:location.href='ogk_bekijken.asp?terug=ogk_ao.asp?<%=Request.ServerVariables("QUERY_STRING")%>&onum=<%=RS("OrderNummer")%>'" valign=top bgcolor="#FFFFFF"><%=RS("Opdrachtgever")%></td>
<td Style="cursor:hand" OnClick="javascript:location.href='ogk_bekijken.asp?terug=ogk_ao.asp?<%=Request.ServerVariables("QUERY_STRING")%>&onum=<%=RS("OrderNummer")%>'" valign=top bgcolor="#FFFFCC"><%=RS("ProjectNaam")%></td>
</tr>
<%
RecordCount = RecordCount + 1
RS.movenext
loop
End If

RS.close
set RS = nothing
DB_CONN.close
set DB_CONN = nothing
%>

<tr><td align="left" colspan="5">
<hr noshade size="1" color="#000000">
</td>
</tr>

<tr><td align="center" colspan="5" valign="top">


<%
If CurrentPage > 1 then %>
<a href="ogk_ao.asp?page=<%=CurrentPage - 1%>"><-- vorige</a>
<%End If%>
<% if NumPages > 1 then %>
<%For i = 1 to NumPages %>
<%if i = CurrentPage then%>
| <%=i%>
<%else%>
| <a href="ogk_ao.asp?page=<%=i%>"><%=i%></a>
<%end if%>
<% next %>|
<%end if%>
<%
If CurrentPage < NumPages Then %>
<a href="ogk_ao.asp?page=<%=CurrentPage + 1%>">volgende --></a>
<%
End If
%>
</table>

<a href="cookies.asp?CookieAanpassen=1&redir=ogk_ao.asp">
Persoonlijke instellingen wijzigen</a>
<hr>
<table border="0" cellspacing="0" width="100%" id="AutoNumber5" cellpadding="0">
<tr>
<td width="100%">
Copyright © 2001
- <a style="TEXT-DECORATION: none" href="mailto:mpolderdijk@gti-group.com">
Maarten Polderdijk</a> 
GTI Rotterdam Industrie bv 
Afd. ICT-Beheer
</td>
</tr>
</table>
</div>

maandag 14 januari 2002 13:59

Acties:

Verwijderd

Wat klopt er dan niet meer..? Geeft ie een foutmelding ofzo..?

maandag 14 januari 2002 14:04

Acties:

NightBird

DPC-Crew Coding

Voeg es het volgende stukje toe aan je query:
WHERE Afsluitdatum <> ""

WatHoorJeWaar · Asobakken
Eerdere projecten: Leading Courses · Brandstof-zoeker.nl · Voertuig-zoeker.nl

maandag 14 januari 2002 14:12

Acties:

RRX

@life-

Op maandag 14 januari 2002 14:04 schreef NightBird het volgende:
Voeg es het volgende stukje toe aan je query:
WHERE Afsluitdatum <> ""

<> kan ook met !=

mijn T.net systeemspecspagina

maandag 14 januari 2002 14:48

Acties:

Blue-eagle

Topicstarter: probeer eens een site door te lopen over SQL. In de faq van dit forum staat er vast wel wat over. Dat scheelt je een hoop performance.

maandag 14 januari 2002 14:58

Acties:

Verwijderd

Topicstarter

Ik krijg fouten:

Als ik onderstaande regel gebruikt:

SQL_STRING = "SELECT * FROM GeleKaart ORDER BY OrderNummer" WHERE Afsluitdatum <> ""

Krijg ik de volgende foutmelding: (Logish)
Expected end of statement

/GeleKaart/ogk_go.asp, line 75

SQL_STRING = "SELECT * FROM GeleKaart ORDER BY OrderNummer" WHERE Afsluitdatum <> ""
------------------------------------------------------------^

Maar al gebruik ik:
SQL_STRING = "SELECT * FROM GeleKaart ORDER BY OrderNummer WHERE Afsluitdatum <> """

Dan krijg ik de volgende foutmelding:

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access 97 Driver] Syntax error (missing operator) in query expression 'OrderNummer WHERE Afsluitdatum <> "'.

En ik heb nog een aantal varianten gebruikt, maar geen van alle correct, ik ben niet een Super-ASP'er, dus kunnen jullie het niet even die regel voorkouwen :-)

M.vr.gr,

Maarten Polderdijk

maandag 14 januari 2002 15:14

Acties:

Verwijderd

Topicstarter

Het is gelukt met een omweg:

SQL_STRING = "SELECT * FROM GeleKaart WHERE Afgesloten LIKE '" & "0" & "' ORDER BY OrderNummer"

En dan heb ik als ik in de database een nieuwe/wijzigt en er wordt NIETS ingevuld dan zet hij bij Afgesloten een 0 anders een 1.

Wel een omweg, maar werkt wel!

maandag 14 januari 2002 15:19

Acties:

Fatamorgana

Fietsen is gezond.

Misschien had het zo ook gegaan: SQL_STRING = "SELECT * FROM GeleKaart ORDER BY OrderNummer" WHERE Afsluitdatum NOT IS NULL"

Of zo: SQL_STRING = "SELECT * FROM GeleKaart ORDER BY OrderNummer" WHERE Afsluitdatum <> ''"

Let vooral op '' dat dit geen dubbele quote is, maar 2 enkele. Tevens zou je een dubbele quote moeten kunnen escapen zodat dit ook werkt. Misschien iets als:
SQL_STRING = "SELECT * FROM GeleKaart ORDER BY OrderNummer" WHERE Afsluitdatum <> \"\""

Of zo iets.

maandag 14 januari 2002 15:21

Acties:

MPEG

Op maandag 14 januari 2002 14:12 schreef RRX het volgende:

[..]

<> kan ook met !=

!= hoort bij C/C++

Standaard SQL ondersteund != niet

AMD 64 X2 4800+ @2,41Ghz,
2048MB DDRRAM,
ATI X800GTO,
2x Samsung 930BF 19" TFT

maandag 14 januari 2002 16:50

Acties:

Annie

amateur megalomaan

Even voor de zekerheid onderstaande nog eens aanhalen (goed bedoeld):

Op maandag 14 januari 2002 14:48 schreef Blue-eagle het volgende:
Topicstarter: probeer eens een site door te lopen over SQL. In de faq van dit forum staat er vast wel wat over. Dat scheelt je een hoop performance.

dan kan je ook meteen de volgorde van een select statement nazoeken (en is die omweg waarschijnlijk ook niet nodig):
SELECT ... FROM ... WHERE ... ORDER BY ...

Today's subliminal thought is:

Pagina: 1

Reageer