Wat is hier fout aan? - Softwareontwikkeling

vrijdag 30 september 2005 11:42

Acties:

Webcrusader[NL]

Topicstarter

^{<%

dim weeknr, dag, k, t, maand

dim Jarig(100,5), naam(50)

DIM SQL

nu = NOW

jaar= YEAR(nu)

jaarkort=right(jaar,2)

maand= MONTH(nu)

dag= DAY(nu)

startdatum="3-1-2005"

weeknr=int(((DATEDIFF("d",startdatum,nu))/7)+1)

datumnu=WEEKDAYNAME(WEEKDAY(nu))&" "&dag&" "&MONTHNAME(MONTH(nu))&" "&jaar

Dim strCon

' Zet de connectiestring in de variabele. Hier is dit dus een ODBC connectie.

accessDB = server.mappath("Infonet2.mdb")

strCon = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE="

strCon = strCon & accessDB & ";"

' Maak een serverobject aan voor de connectie (ObjectConnectie -> objCon)

Dim objCon

Set objCon = Server.CreateObject ( "ADODB.Connection" )

' Open de verbinding met de database. Voor objCon wordt er een

' verbinding geopend met opgegeven database.

objCon.Open strCon

' De SQL query om de gegevens uit de database te halen.

SQL = "SELECT * FROM Leerling"

' Plaats de gegevens van de SQL Query in de recordset objRec.

set objRec = objCon.execute(SQL)

k=0

While not Rs.EOF

Gebdag=DAY(RS("Gebdatum"))

Gebmaand=Month(RS("Gebdatum"))

Geb_pers=Gebdag&"-"&Gebmaand&"-"&jaar

dagen_verschil=ABS((DATEDIFF("d",nu,Geb_pers)))

rem response.write dagen_verschil

rem response.write jaarkort

rem response.write Geb_pers

if (dagen_verschil < then

k=k+1

Jarig(k,1)=(Rs("Voornaam"))

Jarig(k,2)=(Rs("Tussen"))

Jarig(k,3)=(Rs("Achternaam"))

Jarig_maand=MONTHNAME(MONTH(RS("Gebdatum")))

Jarig_dag=DAY(RS("Gebdatum"))

Jarig(k,4)=Jarig_dag&" "&Jarig_maand

if Jarig(k,2)<>"" then

naam(k) = jarig(k,1)&" "&jarig(k,2)&" "&jarig(k,3)

else

naam(k) = jarig(k,1)&" "&jarig(k,3)

end if

end if

ObjectVerbinding.Close

SET ObjectVerbinding = Nothing

kranttekst=""

FOR t=1 to k

kranttekst=kranttekst&" **"&naam(t)&" "&jarig(t,4)&"** "

NEXT

%>

<html>

<head>

<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">

<meta name="GENERATOR" content="Microsoft FrontPage 4.0">

<meta name="ProgId" content="FrontPage.Editor.Document">

<title>Jarig</title>

</head>

<body bgcolor="#E8FF78">

<table border="0" width="900" height="25">

<tr>

<td width="51" bgcolor="#E8FF78" bordercolor="#FF00FF"><blink>Jarig:</blink></td>

<td width="247" bgcolor="#00FF00" bordercolor="#FF00FF" valign="middle">



<marquee style="color: #000000" bgcolor="#00FF00" width="226" height="23" scrolldelay="150"><%=kranttekst%></marquee>



</td>

<td width="182"></td>

<td width="299">

Week <%=weeknr%> <%=datumnu%></td>

</tr>

</table>



</body>

</html>}

En als ik dus heb zo heb dan geeft hij deze fout;

Soort fout:
Compilatiefout Microsoft VBScript (0x800A040E)
'loop' zonder 'do'
/infodata/onder.asp, line 74
Loop

En als ik dan "Do While not Rs.EOF" doe en onderaan loop, dan krijg ik deze fout;

Soort fout:
Runtimefout Microsoft VBScript (0x800A01A8)
Object vereist: 'Rs'
/infodata/onder.asp, line 40

Weet iemand hoe ik dit kan oplossen?

vrijdag 30 september 2005 11:43

Acties:

whoami

Ja, door te debuggen.
Sorry hoor, maar P&W is een forum waar we je best willen helpen maar niet op deze manier. We gaan hier niet de code voor jou gaan debuggen, dat is nl. iets wat je zelf moet kunnen.
Interpreteer eventuele compiler-errors, ga na op welke lijn je die krijgt, en lees de melding van de compiler/interpreter. Die zeggen meestal wel wat je moet doen.

Het is niet de bedoeling dat je in p&w zomaar een lap code kunt plakken, met de foutmelding, en het dan aan ons overlaten om het op te lossen. Zo werkt het hier niet.

[ Voor 54% gewijzigd door whoami op 30-09-2005 11:44 ]

https://fgheysels.github.io/

vrijdag 30 september 2005 11:44

Acties:

.oisyn

Moderator Devschuur®

Demotivational Speaker

Hier kun je lezen waar je topic aan moet voldoen: P&W FAQ - de "quickstart"

Give a man a game and he'll have fun for a day. Teach a man to make games and he'll never have fun again.