[ASP] Syntax error - Softwareontwikkeling

dinsdag 12 april 2005 20:37

Acties:

Topicstarter

oke dit is me eerste scriptje in asp en is samengesteld uit verschillende scripts die ik aangepast heb. Het gaat niet echt om de netheid als het maar werkt..

ASP:

<%
'Hieronder kun je het pad naar de database instellen
dim strConn
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("mvnoadres.mdb")

'Hier wordt de connectie met de database gemaakt
set adoCn = Server.CreateObject("ADODB.Connection")
set adoRs = Server.CreateObject("ADODB.Recordset")

'Hieronder update hij het barcode veld als op update is geklikt
if request.form("ispostback") = 1 then
    dim strBarcode1 
    strBarcode1 = Request.Form("barcode")
    set updateRS = Server.CreateObject("ADODB.RecordSet")
    updateSQL = "SELECT barcode,bezoekers from mvno2005 where barcode =" & strBarcode1 
    updateRS.Open updateSQL,strConn, 1,2
    updateRS("bezoekers") = request.form("bezoekers")
    updateRS.update
    updateRS.Close
    set updateRS = Nothing
    message = "<p><font color='#FF0000'>Update Successful</font></p>"
end if

'Hieronder vraag je om de twee variabelen die van index.asp komen
dim strSearch
strSearch = request.querystring("search")

'Als er geen zoekwoorden ingevuld zijn
if strSearch = "" then
strSearch = "Je hebt geen zoekterm ingevuld"
end if

'Hier vervang je eventuele tekens die als html en commentaar worden gezien
'Daar kan index.asp op vastlopen
strSearch = replace(strSearch,"<","")
strSearch = replace(strSearch,">","")
strSearch = replace(strSearch,"'","''")

dim strSQL

'Hier is de querystring met een whereclause die verderop wordt uitgelegd
strSQL="SELECT * FROM mvno2005 WHERE barcode = " & strSearch & "" '& whereclause

'Hier wordt de recordset geopend
adoRS.Open strSQL, strConn, 3
%>
<html>
<head>
<title>mvno</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<b>Zoekresultaten voor: </b><i> 
<%=(strSearch)%>
</i> 
<hr>
<%
'Als er geen resultaten zijn gevonden
if adoRs.EOF then
response.write("<b>Geen resultaten gevonden..<b><br><br>")
end if
%>
<%
'Hier begint de loop, zolang er items in de recordset zitten
Do While Not adoRs.EOF
%>
<table border="0">
    <tr> 
      <td valign="top"><b>Barcode:</b> </td>
      <td valign="top"><%=adoRs("barcode")%></td>
    </tr>
    <tr> 
      <td valign="top"><b>Naam:</b> </td>
      <td valign="top"><%=adoRs("naam")%></td>
    </tr>
    <tr> 
      <td valign="top"><b>Tav.:</b> </td>
      <td valign="top"><%=adoRs("tav")%></td>
    </tr>
    <tr> 
      <td valign="top"><b>Adres:</b> </td>
      <td valign="top"><%=adoRs("adres")%></td>
    </tr>
    <tr> 
      <td valign="top"><b>Postcode:</b> </td>
      <td valign="top"><%=adoRs("postcode")%></td>
    </tr>
    <tr> 
      <td valign="top"><b>Plaats:</b> </td>
      <td valign="top"><%=adoRs("woonplaats")%></td>
    </tr>
    <tr> 
      <td valign="top"><b>Aantal bezoekers:</b> </td>
      <td valign="top">
        <form action="search.asp" method="post" name="frm" id="frm">
            <input type="text" name="bezoekers" value="<%=adoRs("bezoekers")%>">
            <input type="hidden" name="barcode" value="<%=adoRs("barcode")%>">
            <input type="hidden" name="ispostback" value="1">
            <input type="submit" value="update">
        </form>
    </td>
    </tr>
</table>
<hr>
<%
'Hier ga je naar het volgende item in de recordset
adoRs.MoveNext 
Loop
%>
<a href="index.asp">opnieuw zoeken</a>
</body>
</html>
<%

'Hier wordt de recordset afgesloten
adoRs.Close 
set adoRs = nothing


%>

ik krijg de volgende foutmelding als ik op het knopje update klik

Error Type:
Microsoft JET Database Engine (0x80040E14)
Syntax error (missing operator) in query expression 'barcode = Je hebt geen zoekterm ingevuld'.
/search/search/search.asp, line 45

POST Data:
bezoekers=3&barcode=2330002&ispostback=1

het vreemde is dat het veld wel correct word geupdate in de database.

verder vind ik 'barcode = Je hebt geen zoekterm ingevuld' vreemd want dit is toch echt 2330002.

ik zit dus zelf het probleem te zoeken in een van de volgende regels.

code:

1 2	updateSQL = "SELECT barcode,bezoekers from mvno2005 where barcode =" & strBarcode1 updateRS.Open updateSQL,strConn, 1,2

ik kom er echter niet uit. ik hoop dat iemand me kan helpen!

dinsdag 12 april 2005 20:43

Acties:

Verwijderd

Zit je fout niet elders bij die andere sqlstring van lijn 42 ?

Ik vind

& strSearch & "" '&

nogal raar klinken... en & en dan 2x " en dan ' en weer een &

[ Voor 20% gewijzigd door Verwijderd op 12-04-2005 20:44 ]

dinsdag 12 april 2005 20:45

Acties:

WvdWest

Kan het zijn dat barcode gewoon geen waarde heeft? Heb je al geprobeerd zowel de waarde van barcode als de querystring uit te schrijven? Dan kan je zien wat je probeert uit te voeren. Vermoedelijk zit het in de waarde van barcode

I'm not a complete idiot - several parts are missing.

dinsdag 12 april 2005 20:48

Acties:

Huppie

Het is dan eigenlijk een debug-vraagje

maar ik denk dat je je antwoord hierin kunt vinden

ASP:

42	strSQL="SELECT * FROM mvno2005 WHERE barcode = '" & strSearch & "'" '& whereclause

edit:
Even aangeven dat het om regel 42 gaat.

[ Voor 40% gewijzigd door Huppie op 12-04-2005 21:09 ]

Proud member of TCF - D2OL is zooooo 2005

dinsdag 12 april 2005 21:04

Acties:

rewind.

Topicstarter

Verwijderd schreef op dinsdag 12 april 2005 @ 20:43:
Zit je fout niet elders bij die andere sqlstring van lijn 42 ?

Ik vind

& strSearch & "" '&

nogal raar klinken... en & en dan 2x " en dan ' en weer een &

die ' heb ik er zelf neergezet omdat ik wat erachter staat niet gebruik nog vergeten weg te halen.

dinsdag 12 april 2005 21:13

Acties:

Huppie

Hmmm....ik krijg het idee dat ik niet duidelijk ben geweest

Betere uitleg:
Anders probeer je dit eens:
dit:

ASP:

42	strSQL="SELECT * FROM mvno2005 WHERE barcode = " & strSearch & "" '& whereclause

veranderen in:

ASP:

42	strSQL="SELECT * FROM mvno2005 WHERE barcode = '" & strSearch & "'" '& whereclause

Proud member of TCF - D2OL is zooooo 2005

dinsdag 12 april 2005 21:23

Acties:

Creepy

Tactical Espionage Splatterer

Huppie schreef op dinsdag 12 april 2005 @ 20:48:
Het is dan eigenlijk een debug-vraagje

Precies. Daarnaast post je (Stoney178 dus, niet Huppie

) een gigantische lap code. Blijkbaar heb je zelf niet echt een idee waar het mis gaat anders had je alleen de relevante code gepost

Debuggen doen we hier in eerste instantie zelf. Als je er dan nog niet uitkomt is een topic openen prima, maar geef dan wel aan wat je zelf hebt gedaan om het op te lossen en waar je zelf denkt dat de fout ongeveer zit. Geef daarbij de relevante (dus niet alle!) code.

Zie ook P&W FAQ - De "quickstart" voor hoe we een startpost eigenlijk zouden willen zien en zie ook P&W FAQ - Leer **** debuggen!!, want debuggen hoort er nu eenmaal bij

[ Voor 4% gewijzigd door Creepy op 12-04-2005 22:01 ]

"I had a problem, I solved it with regular expressions. Now I have two problems". That's shows a lack of appreciation for regular expressions: "I know have _star_ problems" --Kevlin Henney