Toon posts:

Kent hij Elseif niet??? ASP

Pagina: 1
Acties:
  • 35 views sinds 30-01-2008

vrijdag 10 februari 2006 14:02

Acties:

Verwijderd

Topicstarter
Jongens de volgende code:


code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117

<%@ Language=VBScript %>
<% Option Explicit %>
<!--#include virtual="/adovbs.inc"-->

<HTML>
<HEAD>
<link rel="stylesheet" type="text/css" href="org.css"> 
<Title></Title>
</HEAD>

<body back>

<div class="float">
  <img height="129" alt="POPHOOFD2.GIF (14127 bytes)" src="images/POPHOOFD2.GIF" width="57" 
  alt="image 1" />
</div><P>

<%
'Open up a connection to our Access Database
'that stores the customer
'information. 


Dim strnaam,zoekveld,bedrijfophaal,afdelingenophaal,functieophaal,sTempquery

zoekveld =      REQUEST ("ZOEKVELDEN")

strnaam  =      REQUEST ("Zoekcriteria")

bedrijfophaal =     REQUEST ("mainselect")

afdelingenophaal =  REQUEST ("mainselect2")

functieophaal =     REQUEST ("mainselect3")



Dim objConn
Set objConn = Server.Createobject ("ADODB.Connection")
    objConn.ConnectionString ="DSN=Organisatie"
    objConn.Open

'Lees het SQL Commando in

sTempquery =    "SELECT Med_ID,Med_nr,Med_naam,Med_roep FROM " & _
        "Medewerker,Bedrijf,Afdelingssamenstelling afd,Afdeling,Functie WHERE " & _
        "Bedrijf.Bedrijfs_ID=afd.Bedrijfs_ID AND " & _
            "afd.afd_nr=Afdeling.afd_nr AND " & _ 
            "afd.afd_id=Medewerker.afd_id AND " & _
            "Medewerker.Fun_id=Functie.Fun_ID" 


If bedrijfophaal <> "" Then 
    sTempQuery = sTempQuery & " And bedrijf.bedrijfsnaam='" & bedrijfophaal & "'"
End if

If afdelingenophaal <> "" Then 
    sTempQuery = sTempQuery & " AND Afdeling.AFD_NAAM='" & afdelingenophaal & "'"
End if
If functieophaal <> "" Then
    sTempQuery = STempQuery & " AND Functie.Fun_naam='" & functieophaal & "'"
End if


IF strnaam="" THEN 
StempQuery = Stempquery 
ElseiF zoekveld=1 Then
    sTempQuery =sTempQuery & " AND MED_NAAM LIKE'" & strNaam & "%'"
ElseiF
zoekveld=2 Then
    sTempQuery =sTempQuery & " AND MED_ROEP LIKE'" & strNaam & "%'"
Elseif
zoekveld=3 Then
    sTempQuery =sTempQuery 
END IF

Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open sTempquery, objConn

'Nu worden de medewerkers afgebeeld'

%><TABLE BORDER=3>
<TR><TD>
<B>MED_ID</B></TD>
<TD><B>MED_NAAM</B></TD>
<TD><B>MED_ROEP</B></TD>
<TD><B>PASFOTOS</B></TR></TD></P>
<%Do While Not ObjRS.EOF %>
   
    <tr valign="top">
    <td width="100"><%=ObjRS.Fields("Med_id")%>  </td>
    <td width="100"><%=ObjRS.Fields("Med_naam")%></td>
    <td width="100"><%=ObjRS.Fields("Med_roep")%></td>
    <td>[img]"C:\Inetpub\wwwroot\ORG\pasfotos\<%=ObjRS.Fields("Med_nr")%>.jpg"[/img]</td>
  </tr>
<% ObjRS.MoveNext
Loop

'Opschonen van de gebruikte ASP objecten
objRS.Close
Set objRS = Nothing

objConn.Close
Set objConn = Nothing


sTempquery=""
zoekveld=""
%>


Click <A HREF="Start-orgtest2English.asp" hier</A> om terug te keren naar de zoek pagina

</TABLE>
</BODY>
</HTML>


Ik krijg hierop de volgende foutmelding:

Microsoft VBScript compilation (0x800A03EA)
Syntax error
/ORG/Achternaamophaal2English.asp, line 69, column 6
ElseiF

Kent mijn installatie van IIS Elseif niet of zo, syntax is zover ik weet goed.
:?

vrijdag 10 februari 2006 14:04

Acties:

Verwijderd

Maak er eens ELSE IF van :O

Code begint me een beetje bekend voor te komen... :r

/Edit: Wat bosmonster dus zegt... Je zet het op 2 regels, logisch dat het niet werkt.

Om je toch even te helpen, voordat we weer de wind van voren krijgen:

P&W FAQ - Algemeen
*** Over topictitels in P&W - lezen voor topic openen!!! ***

Een keer reageren in je topics als het opgelost is, zou ook niet misstaan... We willen je best helpen, maar dit gaat echt nergens meer over.

[ Voor 85% gewijzigd door Verwijderd op 10-02-2006 14:08 ]

vrijdag 10 februari 2006 14:04

Acties:
  • Bosmonster
  • Registratie: Juni 2001
  • Laatst online: 10-04 15:11

Bosmonster

*zucht*

En als je van

code:
1
2

ElseiF
zoekveld=2 Then


eens

code:
1

ElseiF zoekveld=2 Then


maakt..

(ik = VBS noob, maar das de eerste waar die op hangt en de eerste waar je de regel ineens afbreekt..)

[ Voor 31% gewijzigd door Bosmonster op 10-02-2006 14:06 ]

vrijdag 10 februari 2006 14:14

Acties:
  • NMe
  • Registratie: Februari 2004
  • Laatst online: 11-04 17:49

NMe

Quia Ego Sic Dico.

Kom op zeg, syntaxfouten kun je best zelf oplossen met de documentatie in de hand. :/

FrankMeussen, we hebben hier de afgelopen paar dagen al heel wat basale topics van je gezien, en ik wil graag aan je vragen om iets meer tijd in de manual of in een studieboek te duiken voor je hier een topic start, danwel een ander forum te zoeken dat meer gericht is op beginners. GoT is gericht op de wat meer gevorderde computergebruiker; sites als BeginnersWeb kunnen veel beter inspelen op beginners. :)

Verder: is nou echt àl die code relevant voor dit probleem? Als je hier in Programming & Webscripting een topic opent dan kun je daar inderdaad code in posten, maar hou het dan wel bij relevante code. Met je hele applicatie kunnen we niks. ;)

'E's fighting in there!' he stuttered, grabbing the captain's arm.
'All by himself?' said the captain.
'No, with everyone!' shouted Nobby, hopping from one foot to the other.

Dit topic is gesloten.