Torgath
Mitglied
Hab ein kleines Problem...
Ich will mittels VBScript eine kleine SQL-Abfrage machen, was eigentlich nicht weiter schwierig wäre, wenn nicht drei Frage-Felder zur Verfügung stehen würden...
Hier mein Code:
Mein Problem ist nun diese Fehlermeldung:
Fehlertyp:
Kompilierungsfehler in Microsoft VBScript (0x800A0401)
Anweisungsende erwartet
/Project1/list.asp, Zeile 12, Spalte 78
ors.Open "Select * from adressbook where name = " & chr(34) & vname & chr(34) " and firstname = " & chr(34) & vfirstname & chr(34) " and plz = " & chr(34) & vplz & chr(34),ocn,1,1
-----------------------------------------------------------------------------^
Was genau ist falsch?
Danke für eine baldige Antwort...
MfG Torgath
Ich will mittels VBScript eine kleine SQL-Abfrage machen, was eigentlich nicht weiter schwierig wäre, wenn nicht drei Frage-Felder zur Verfügung stehen würden...
Hier mein Code:
Code:
<%@ Language=VBScript %>
<%
dim vname
dim vfirstname
dim vplz
vname = Request("fname")
vfirstname = Request("ffirstname")
vstreet = Request("fplz")
set ors = CreateObject("ADODB.RECORDSET") 'ors = objetrecordset
set Ocn = CreateObject("ADODB.Connection") 'ocn = objectconnect
ocn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\ad.mdb;"'Verbindung zur Datenbank wird erstellt
ors.Open "Select * from adressbook where name = " & chr(34) & vname & chr(34) " and firstname = " & chr(34) & vfirstname & chr(34) " and plz = " & chr(34) & vplz & chr(34),ocn,1,1
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<table border=1>
<tr>
<th bgcolor="#b9b9b9" colspan="9">Adressliste</th>
</tr>
<tr>
<td>Vorname</td>
<td>Name</td>
<td>Strasse</td>
<td>Nummer</td>
<td>PLZ</td>
<td>Ort</td>
<td>Telefon</td>
<td>Fax</td>
<td>E-Mail</td>
</tr>
<%
while not ors.EOF
Response.Write("<tr>")
Response.Write("<td>")
Response.Write ors("firstname")
Response.Write("</td>")
Response.Write("<td>")
Response.Write ors("name")
Response.Write("</td>")
Response.Write("<td>")
Response.Write ors("street")
Response.Write("</td>")
Response.Write("<td>")
Response.Write ors("number")
Response.Write("</td>")
Response.Write("<td>")
Response.Write ors("plz")
Response.Write("</td>")
Response.Write("<td>")
Response.Write ors("location")
Response.Write("</td>")
Response.Write("<td>")
Response.Write ors("phone")
Response.Write("</td>")
Response.Write("<td>")
Response.Write ors("fax")
Response.Write("</td>")
Response.Write("<td>")
Response.Write ors("e-mail")
Response.Write("</td>")
Response.Write("</tr>")
ors.MoveNext
wend
%>
</table>
</BODY>
</HTML>
Mein Problem ist nun diese Fehlermeldung:
Fehlertyp:
Kompilierungsfehler in Microsoft VBScript (0x800A0401)
Anweisungsende erwartet
/Project1/list.asp, Zeile 12, Spalte 78
ors.Open "Select * from adressbook where name = " & chr(34) & vname & chr(34) " and firstname = " & chr(34) & vfirstname & chr(34) " and plz = " & chr(34) & vplz & chr(34),ocn,1,1
-----------------------------------------------------------------------------^
Was genau ist falsch?
Danke für eine baldige Antwort...
MfG Torgath