Notifikationer

Markér alle som læst Log ud

asker Nybegynder

26. juli 2003 - 19:00 Der er 86 kommentarer og
1 løsning

Får en fejl End

Her er min kode som giver den her fejl

Fejltype:
Der opstod en Microsoft VBScript-kompileringsfejl (0x800A03F4)
'If' var ventet
/ss/search.asp, line 125, column 3
End
--^

********************************************************

<% Response.Buffer = True
Session.LCID=1030 'Dansk dato format %>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Søgeresultat</title>
<link rel="stylesheet" type="text/css" href="Style.css">
</head>
<body>

<%
' Henter værdien fra soeg.htm
fraDag = Replace(Trim(Request.Form("fraDag")),"'","")
fraMaaned = Replace(Trim(Request.Form("framaaned")),"'","")
fraAar = Replace(Trim(Request.Form("fraaar")),"'","")

tilDag = Replace(Trim(Request.Form("tilDag")),"'","")
tilMaaned = Replace(Trim(Request.Form("tilmaaned")),"'","")
tilAar = Replace(Trim(Request.Form("tilaar")),"'","")

navn = Replace(Trim(Request.Form("navn")),"'","''")
strKeyword = Replace(Trim(Request.Form("Keyword")),"'","''")

fraDato = ""
tilDato = ""
if isDate(fraDag&"-"&fraMaaned&"-"&fraAar) then
fraDato = fraAar & "-" & fraMaaned & "-" & fraDag
end if
if isDate(tilDag&"-"&tilMaaned&"-"&tilAar) then
tilDato = tilAar & "-" & tilMaaned & "-" & tilDag
end if

sqlWHERE = ""
if strKeyword <> "" then
sqlWHERE = sqlWHERE & "("
sqlWHERE = sqlWHERE & "(Adresse LIKE '%" & strKeyword & "%')"
sqlWHERE = sqlWHERE & " OR (Bynavn LIKE '%" & strKeyword & "%')"
sqlWHERE = sqlWHERE & " OR (Beskrivelse LIKE '%" & strKeyword & "%')"
sqlWHERE = sqlWHERE & ")"
end if
if fraDato <> "" AND tilDato <> "" then
if sqlWHERE <> "" then sqlWHERE = sqlWHERE & " AND "
sqlWHERE = sqlWHERE & "(dato >= #" & fraDato & "# AND dato <= #" & tilDato & "#)"
end if
if navn <> "" then
if sqlWHERE <> "" then sqlWHERE = sqlWHERE & " AND "
sqlWHERE = sqlWHERE & "(navn = '" & navn & "')"
end if

strSQL = "SELECT DocumentID, Navn, barcode, Adresse, Bynavn, Beskrivelse, Dato FROM indexTbl"
if sqlWHERE <> "" then strSQL = strSQL & " WHERE " & sqlWHERE

'Her til angiver jeg søgeresultatet

' Skaber DSNLess forbindelse til DBen laver en konektion til min database
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("Dokument.mdb")
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN

' Skaber et recordset udfra SQL strengen
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
' Hvis der er fundet poster på søgningen
Response.Write "Søgeresultat"
'Her ændre jeg senere udsendet på visningen ved border
'Response.Write "<table border=1>"
' Overskriften vær opmærksom på at den rykker sig hvis feltet er tomt ser på det senere
%>
<table width="630" border="0" align="left">
<% do until rs.eof %>

<tr>
<td width="250" valign="middle" colspan="2"> <% response.write ""& rs("kommune")&"" %>

</td>
<tr>
<td bgcolor="#0066FF" width="180">Navn</td>
<td bgcolor="#0066FF" width="64">Adresse</td>
<td bgcolor="#0066FF" width="53">By</td>
<td bgcolor="#0066FF" width="48">Beskrivelse</td>
<td bgcolor="#0066FF" width="50">Dato</td>
</tr>

<%

' Response.Write "<tr><th>Navn</th><th>Adresse</th><th>By</th><th>Beskrivelse</th><th>Dato</th></tr>"
Do While Not rs.EOF

%>

<td bgcolor="#CFDDDE" align="center" width="64"><%=rs1("Kontant")%></td>
<td bgcolor="#CFDDDE" align="center" width="53"><%=rs1("Brutto")%></td>
<td bgcolor="#CFDDDE" align="center" width="48"><%=rs1("Netto")%></td>
<td bgcolor="#CFDDDE" align="center" width="50"><%=rs1("Udbet")%></td>
<td bgcolor="#CFDDDE" align="center" width="39"><%=rs1("Vær")%></td>
<td bgcolor="#CFDDDE" align="center" width="42"><%=rs1("Kvm")%></td>
<td bgcolor="#CFDDDE" align="center" width="51"><%=rs1("Grund")%></td>
<td bgcolor="#CFDDDE" align="center" width="55"><%=rs1("Sagsnr")%></td>

<%

' Response.Write "<tr><td>" & rs("Navn") & "</td>"
' Response.Write "<td>" & rs("Adresse") & "</td>"
' Response.Write "<td>" & rs("Bynavn") & "</td>"
' Response.Write "<td>" & rs("Beskrivelse") & "</td>"
' Response.Write "<td>" & rs("Dato") & "</td>"
' Response.Write "<td>" & rs("barcode") & "</td></tr>"
rs1.movenext
loop
rs.movenext
loop
%>

</table>

</body>
<% conn.close

set conn = nothing %>

' rs.MoveNext
' Loop
' Response.Write "</table>"
'Else
' Hvis der ikke er fundet poster på søgningen
' Response.Write "Der er ikke fundet noget på denne søgning"
'End If

' Rydder op efter mig
'myConn.Close
'Set myConn = Nothing
'%>

'</body></html>

Synes godt om

longshanks Nybegynder

26. juli 2003 - 19:10 #1

mangler du ikke et end if her

<% conn.close

set conn = nothing
end if %>

Synes godt om

asker Nybegynder

26. juli 2003 - 19:13 #2

Fejltype:
Der opstod en Microsoft VBScript-kompileringsfejl (0x800A0412)
Det skal være den første sætning på linjen
/ss/search.asp, line 123, column 19
set conn = nothing end if
------------------^

Synes godt om

asker Nybegynder

26. juli 2003 - 19:14 #3

Og hvis jeg rykker den ned

set conn = nothing
end if %>

så får jeg den her fejl
Fejltype:
Der opstod en Microsoft VBScript-kørselsfejl (0x800A01A8)
Et objekt er obligatorisk: ''
/ss/search.asp, line 121

Synes godt om

nmh Nybegynder

26. juli 2003 - 19:16 #4

det sidste end if skal være på sin egen linie.

Synes godt om

asker Nybegynder

26. juli 2003 - 19:24 #5

Ja det har jeg prøvet ny fejl

Fejltype:
Der opstod en Microsoft VBScript-kørselsfejl (0x800A01A8)
Et objekt er obligatorisk: ''
/ss/search.asp, line 121

Synes godt om

medions Nybegynder

26. juli 2003 - 19:27 #6

Prøv at erstat din SQL med dette:

strSQL = "SELECT DocumentID, [Navn], barcode, [Adresse], Bynavn, [Beskrivelse], Dato FROM indexTbl"
if sqlWHERE <> "" then strSQL = strSQL & " WHERE " & sqlWHERE

Hvad er der evt. i linje 121?

//>Rune

Synes godt om

asker Nybegynder

26. juli 2003 - 19:32 #7

Hej Rune

ny fejl

Fejltype:
Der opstod en Microsoft VBScript-kørselsfejl (0x800A01A8)
Et objekt er obligatorisk: ''
/ss/search.asp, line 122

På linje 121 <% conn.close

Synes godt om

asker Nybegynder

26. juli 2003 - 19:43 #8

Kan i ikke hjælpe mig?

Synes godt om

nmh Nybegynder

26. juli 2003 - 19:54 #9

Vis linie 118 til 124 her.

Synes godt om

asker Nybegynder

26. juli 2003 - 19:59 #10

Her

</table>

</body>
<% conn.close

set conn = nothing

***********************

Og her er hele koden

<% Response.Buffer = True
Session.LCID=1030 'Dansk dato format %>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Søgeresultat</title>
<link rel="stylesheet" type="text/css" href="Style.css">
</head>
<body>

<%
' Henter værdien fra soeg.htm
fraDag = Replace(Trim(Request.Form("fraDag")),"'","")
fraMaaned = Replace(Trim(Request.Form("framaaned")),"'","")
fraAar = Replace(Trim(Request.Form("fraaar")),"'","")

tilDag = Replace(Trim(Request.Form("tilDag")),"'","")
tilMaaned = Replace(Trim(Request.Form("tilmaaned")),"'","")
tilAar = Replace(Trim(Request.Form("tilaar")),"'","")

navn = Replace(Trim(Request.Form("navn")),"'","''")
strKeyword = Replace(Trim(Request.Form("Keyword")),"'","''")

fraDato = ""
tilDato = ""
if isDate(fraDag&"-"&fraMaaned&"-"&fraAar) then
fraDato = fraAar & "-" & fraMaaned & "-" & fraDag
end if
if isDate(tilDag&"-"&tilMaaned&"-"&tilAar) then
tilDato = tilAar & "-" & tilMaaned & "-" & tilDag
end if

sqlWHERE = ""
if strKeyword <> "" then
sqlWHERE = sqlWHERE & "("
sqlWHERE = sqlWHERE & "(Adresse LIKE '%" & strKeyword & "%')"
sqlWHERE = sqlWHERE & " OR (Bynavn LIKE '%" & strKeyword & "%')"
sqlWHERE = sqlWHERE & " OR (Beskrivelse LIKE '%" & strKeyword & "%')"
sqlWHERE = sqlWHERE & ")"
end if
if fraDato <> "" AND tilDato <> "" then
if sqlWHERE <> "" then sqlWHERE = sqlWHERE & " AND "
sqlWHERE = sqlWHERE & "(dato >= #" & fraDato & "# AND dato <= #" & tilDato & "#)"
end if
if navn <> "" then
if sqlWHERE <> "" then sqlWHERE = sqlWHERE & " AND "
sqlWHERE = sqlWHERE & "(navn = '" & navn & "')"
end if

strSQL = "SELECT DocumentID, [Navn], barcode, [Adresse], Bynavn, [Beskrivelse], Dato FROM indexTbl"
if sqlWHERE <> "" then strSQL = strSQL & " WHERE " & sqlWHERE

'Her til angiver jeg søgeresultatet

' Skaber DSNLess forbindelse til DBen laver en konektion til min database
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("Dokument.mdb")
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN

' Skaber et recordset udfra SQL strengen
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
' Hvis der er fundet poster på søgningen
Response.Write "Søgeresultat"
'Her ændre jeg senere udsendet på visningen ved border
'Response.Write "<table border=1>"
' Overskriften vær opmærksom på at den rykker sig hvis feltet er tomt ser på det senere
%>
<table width="630" border="0" align="left">
<% do until rs.eof %>

<tr>
<td width="250" valign="middle" colspan="2"> <% response.write ""& rs("Navn")&"" %>

</td>
<tr>
<td bgcolor="#0066FF" width="180">Navn</td>
<td bgcolor="#0066FF" width="64">Adresse</td>
<td bgcolor="#0066FF" width="53">By</td>
<td bgcolor="#0066FF" width="48">Beskrivelse</td>
<td bgcolor="#0066FF" width="50">Dato</td>
</tr>

<%

' Response.Write "<tr><th>Navn</th><th>Adresse</th><th>By</th><th>Beskrivelse</th><th>Dato</th></tr>"
'Do While Not rs.EOF

%>

<td bgcolor="#CFDDDE" align="center" width="64"><%=rs("Navn")%></td>
<td bgcolor="#CFDDDE" align="center" width="53"><%=rs("Adresse")%></td>
<td bgcolor="#CFDDDE" align="center" width="48"><%=rs("Bynavn")%></td>
<td bgcolor="#CFDDDE" align="center" width="50"><%=rs("Beskrivelse")%></td>
<td bgcolor="#CFDDDE" align="center" width="39"><%=rs("Dato")%></td>
<td bgcolor="#CFDDDE" align="center" width="42"><%=rs("Barcode")%></td>

<%

' Response.Write "<tr><td>" & rs("Navn") & "</td>"
' Response.Write "<td>" & rs("Adresse") & "</td>"
' Response.Write "<td>" & rs("Bynavn") & "</td>"
' Response.Write "<td>" & rs("Beskrivelse") & "</td>"
' Response.Write "<td>" & rs("Dato") & "</td>"
' Response.Write "<td>" & rs("barcode") & "</td></tr>"
' rs1.movenext
'loop
rs.movenext
loop
%>

</table>

</body>
<% conn.close

set conn = nothing
end if %>

' rs.MoveNext
' Loop
' Response.Write "</table>"
'Else
' Hvis der ikke er fundet poster på søgningen
' Response.Write "Der er ikke fundet noget på denne søgning"
'End If

' Rydder op efter mig
'myConn.Close
'Set myConn = Nothing
'%>

'</body></html>

Synes godt om

nmh Nybegynder

26. juli 2003 - 20:03 #11

Bruger du ikke en editor, der kan tælle linier?
Vis kun linierne omkring den fejlbehæftede linie.

Synes godt om

nielle Nybegynder

26. juli 2003 - 20:36 #12

Når du åbner din connection kalder du den MyConn:

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

Derfor skal den selvfølgelig hedde det hele vejen!

<% conn.close

set conn = nothing
end if %>

- giver f.eks. ikke mening, og det er det som den brokker sig over!

Synes godt om

asker Nybegynder

26. juli 2003 - 20:36 #13

Jov Jov

Her er den

Fejlen:
Fejltype:
Der opstod en Microsoft VBScript-kørselsfejl (0x800A01A8)
Et objekt er obligatorisk: ''
/ss/search.asp, line 122

Og her er koden

115 rs.movenext
116 loop
117 %>
118
</table>

</body>
<% conn.close

set conn = nothing
125 end if %>

Synes godt om

nielle Nybegynder

26. juli 2003 - 20:38 #14

Burde du ikke rydde gevaldigt op i din kode? Der er f.eks. massere af html-felj og alle de der udkommenterde linjer burde væk.

Synes godt om

nielle Nybegynder

26. juli 2003 - 20:39 #15

Ret til:

<% MyConn.close

set MyConn = nothing
end if %>

Synes godt om

nmh Nybegynder

26. juli 2003 - 20:40 #16

Sådan:
myConn.close
myConn=nothing

Synes godt om

nmh Nybegynder

26. juli 2003 - 20:42 #17

Jeg kunne ikke se dit svar mens jeg skrev.

Synes godt om

asker Nybegynder

26. juli 2003 - 20:44 #18

nmh - selvfølgelig jeg store idiot

Bliv lige hængende

Synes godt om

nielle Nybegynder

26. juli 2003 - 20:44 #19

Heller ikke mit 20:36:41 ? ;^)

Synes godt om

nmh Nybegynder

26. juli 2003 - 20:46 #20

nej det har jeg ikke set i "virvaret"

Synes godt om

asker Nybegynder

26. juli 2003 - 21:07 #21

Jeg smider lige ekstra 30 point på det her spørgsmål

Hvordan er nu jeg kun sætter overskriften i toppen og ikke som nu for hvert resultat

Og jeg har ryddet lidt op i koden
**********************************************************
<% Response.Buffer = True
Session.LCID=1030 'Dansk dato format %>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Søgeresultat</title>
<link rel="stylesheet" type="text/css" href="Style.css">
</head>
<body>

<%
' Henter værdien fra soeg.htm
fraDag = Replace(Trim(Request.Form("fraDag")),"'","")
fraMaaned = Replace(Trim(Request.Form("framaaned")),"'","")
fraAar = Replace(Trim(Request.Form("fraaar")),"'","")

tilDag = Replace(Trim(Request.Form("tilDag")),"'","")
tilMaaned = Replace(Trim(Request.Form("tilmaaned")),"'","")
tilAar = Replace(Trim(Request.Form("tilaar")),"'","")

navn = Replace(Trim(Request.Form("navn")),"'","''")
strKeyword = Replace(Trim(Request.Form("Keyword")),"'","''")

fraDato = ""
tilDato = ""
if isDate(fraDag&"-"&fraMaaned&"-"&fraAar) then
fraDato = fraAar & "-" & fraMaaned & "-" & fraDag
end if
if isDate(tilDag&"-"&tilMaaned&"-"&tilAar) then
tilDato = tilAar & "-" & tilMaaned & "-" & tilDag
end if

sqlWHERE = ""
if strKeyword <> "" then
sqlWHERE = sqlWHERE & "("
sqlWHERE = sqlWHERE & "(Adresse LIKE '%" & strKeyword & "%')"
sqlWHERE = sqlWHERE & " OR (Bynavn LIKE '%" & strKeyword & "%')"
sqlWHERE = sqlWHERE & " OR (Beskrivelse LIKE '%" & strKeyword & "%')"
sqlWHERE = sqlWHERE & ")"
end if
if fraDato <> "" AND tilDato <> "" then
if sqlWHERE <> "" then sqlWHERE = sqlWHERE & " AND "
sqlWHERE = sqlWHERE & "(dato >= #" & fraDato & "# AND dato <= #" & tilDato & "#)"
end if
if navn <> "" then
if sqlWHERE <> "" then sqlWHERE = sqlWHERE & " AND "
sqlWHERE = sqlWHERE & "(navn = '" & navn & "')"
end if

strSQL = "SELECT DocumentID, [Navn], barcode, [Adresse], Bynavn, [Beskrivelse], Dato FROM indexTbl"
if sqlWHERE <> "" then strSQL = strSQL & " WHERE " & sqlWHERE

'Her til angiver jeg søgeresultatet

' Skaber DSNLess forbindelse til DBen laver en konektion til min database
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("Dokument.mdb")
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN

' Skaber et recordset udfra SQL strengen
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
' Hvis der er fundet poster på søgningen
Response.Write "Søgeresultat"
'Her ændre jeg senere udsendet på visningen ved border

%>
<table width="630" border="0" align="left">
<% do until rs.eof %>

<tr>

<td bgcolor="#0066FF" width="180">Navn</td>
<td bgcolor="#0066FF" width="64">Adresse</td>
<td bgcolor="#0066FF" width="53">By</td>
<td bgcolor="#0066FF" width="48">Beskrivelse</td>
<td bgcolor="#0066FF" width="100">Dato</td>
<td bgcolor="#0066FF" width="150">Link</td>
</tr>

<td bgcolor="#CFDDDE" align="center" width="64"><%=rs("Navn")%></td>
<td bgcolor="#CFDDDE" align="center" width="53"><%=rs("Adresse")%></td>
<td bgcolor="#CFDDDE" align="center" width="48"><%=rs("Bynavn")%></td>
<td bgcolor="#CFDDDE" align="center" width="50"><%=rs("Beskrivelse")%></td>
<td bgcolor="#CFDDDE" align="center" width="100"><%=rs("Dato")%></td>
<td bgcolor="#CFDDDE" align="center" width="150"><%=rs("Barcode")%></td>

<%
rs.movenext
loop
Else
' Hvis der ikke er fundet poster på søgningen
Response.Write "Der er ikke fundet noget på denne søgning"
End If
' Rydder op efter mig
%>

</table>

</body>

<% Myconn.close

set Myconn = nothing %>

Synes godt om

nielle Nybegynder

26. juli 2003 - 21:11 #22

=== Ret fra ===

<table width="630" border="0" align="left">
<% do until rs.eof %>

<tr>

<td bgcolor="#0066FF" width="180">Navn</td>
<td bgcolor="#0066FF" width="64">Adresse</td>
<td bgcolor="#0066FF" width="53">By</td>
<td bgcolor="#0066FF" width="48">Beskrivelse</td>
<td bgcolor="#0066FF" width="100">Dato</td>
<td bgcolor="#0066FF" width="150">Link</td>
</tr>

=== Til ===

<table width="630" border="0" align="left">
<tr>

<td bgcolor="#0066FF" width="180">Navn</td>
<td bgcolor="#0066FF" width="64">Adresse</td>
<td bgcolor="#0066FF" width="53">By</td>
<td bgcolor="#0066FF" width="48">Beskrivelse</td>
<td bgcolor="#0066FF" width="100">Dato</td>
<td bgcolor="#0066FF" width="150">Link</td>
</tr>

<% do until rs.eof %>

Synes godt om

nmh Nybegynder

26. juli 2003 - 21:15 #23

Til Asker:
Giv Nielle alle pointene. Han arbejder virkelig for sagen.

Synes godt om

asker Nybegynder

26. juli 2003 - 21:18 #24

Ja det nu sætter den kun en overskrift - men resultatet sætter den ved siden af hinaden istedet

Synes godt om

asker Nybegynder

26. juli 2003 - 21:19 #25

Nej bland du dig bare nmh

Synes godt om

nielle Nybegynder

26. juli 2003 - 21:21 #26

Som allerede nævnt har du MASSER ag html-fejl.

=== Ret fra ===

<td bgcolor="#CFDDDE" align="center" width="64"><%=rs("Navn")%></td>
<td bgcolor="#CFDDDE" align="center" width="53"><%=rs("Adresse")%></td>
<td bgcolor="#CFDDDE" align="center" width="48"><%=rs("Bynavn")%></td>
<td bgcolor="#CFDDDE" align="center" width="50"><%=rs("Beskrivelse")%></td>
<td bgcolor="#CFDDDE" align="center" width="100"><%=rs("Dato")%></td>
<td bgcolor="#CFDDDE" align="center" width="150"><%=rs("Barcode")%></td>

=== Ret til ===

<tr>
td bgcolor="#CFDDDE" align="center" width="64"><%=rs("Navn")%></td>
<td bgcolor="#CFDDDE" align="center" width="53"><%=rs("Adresse")%></td>
<td bgcolor="#CFDDDE" align="center" width="48"><%=rs("Bynavn")%></td>
<td bgcolor="#CFDDDE" align="center" width="50"><%=rs("Beskrivelse")%></td>
<td bgcolor="#CFDDDE" align="center" width="100"><%=rs("Dato")%></td>
<td bgcolor="#CFDDDE" align="center" width="150"><%=rs("Barcode")%></td>
</tr>

Synes godt om

nielle Nybegynder

26. juli 2003 - 21:23 #27

Ups, der smuttede lige en start '<':

=== Ret til ===

<tr>
<td bgcolor="#CFDDDE" align="center" width="64"><%=rs("Navn")%></td>
<td bgcolor="#CFDDDE" align="center" width="53"><%=rs("Adresse")%></td>
<td bgcolor="#CFDDDE" align="center" width="48"><%=rs("Bynavn")%></td>
<td bgcolor="#CFDDDE" align="center" width="50"><%=rs("Beskrivelse")%></td>
<td bgcolor="#CFDDDE" align="center" width="100"><%=rs("Dato")%></td>
<td bgcolor="#CFDDDE" align="center" width="150"><%=rs("Barcode")%></td>
</tr>

Synes godt om

asker Nybegynder

26. juli 2003 - 21:36 #28

Perfekt

Synes godt om

nielle Nybegynder

26. juli 2003 - 21:38 #29

Tør man spørge hvorfor du har width-attributter i dine font-tags?

..."><%...

Synes godt om

asker Nybegynder

26. juli 2003 - 21:41 #30

Nielle point er dine

Men lige et sidste 30 point spørgsmål
Som du kan se henter jeg mine data fra tabellen "indexTbl" fra felterne: Navn, barcode, Adresse, Bynavn, Beskrivelse

Jeg har en anden tabel i den samme database den hedder "DocTbl" og feltet hedder "Documentpath"

dette kunne jeg godt tænke mig at få vis som et link

Kan du hjælpe

Synes godt om

asker Nybegynder

26. juli 2003 - 21:43 #31

Kan jeg skrive det i sql sætningen eller skal der laves et nyt kald - eller måske en relation i databasen

Synes godt om

nielle Nybegynder

26. juli 2003 - 21:49 #32

asker -> Ja hvis du lige fortæller hvor dan de to tabeller hænger sammen. Hvordan finder man de data i DocTbl som høre sammen med de data du henter fra indexTbl. Der må vel være et indeks som er det samme i begge tabeller.

Synes godt om

nielle Nybegynder

26. juli 2003 - 21:51 #33

Umiddelbart bør det kunne laves i samme SQL kald, men jeg skal lige vide hvad det er der binder tabellerne sammen.

Synes godt om

asker Nybegynder

26. juli 2003 - 21:52 #34

ja der skrives en Dokument id i begge tabeller som er ens (et tal)

Hvis du smider din email kan jeg sende dig databasen

Synes godt om

nielle Nybegynder

26. juli 2003 - 21:59 #35

=== Fra ===

strSQL = "SELECT DocumentID, [Navn], barcode, [Adresse], Bynavn, [Beskrivelse], Dato FROM indexTbl"
if sqlWHERE <> "" then strSQL = strSQL & " WHERE " & sqlWHERE

=== Til ===

strSQL = "SELECT DocumentID, [Navn], barcode, [Adresse], Bynavn, [Beskrivelse], Dato, Documentpath FROM indexTbl, DocTbl WHERE indexTbl.DocumentID=DocTbl.DocumentID"
if sqlWHERE <> "" then strSQL = strSQL & " AND " & sqlWHERE

Synes godt om

asker Nybegynder

26. juli 2003 - 22:03 #36

Documentpath er et felt i tabellen docTbl

Synes godt om

asker Nybegynder

26. juli 2003 - 22:04 #37

Kan jeg så senere kalde Documentpath som <%=rs("Documentpath")%>

Synes godt om

asker Nybegynder

26. juli 2003 - 22:04 #38

Fik også en fejl

Fejltype:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access-driver] Det angivne felt "DocumentID" kan referere til mere end én tabel, der er vist i FROM-delsætningen i sætningen SQL.
/ss/search.asp, line 66

Synes godt om

nielle Nybegynder

26. juli 2003 - 22:05 #39

Nemlig.

Synes godt om

asker Nybegynder

26. juli 2003 - 22:05 #40

Linje 66 er : Set rs = myConn.Execute(strSQL)

Synes godt om

asker Nybegynder

26. juli 2003 - 22:09 #41

Så vil jeg kalde den sådan her <td bgcolor="#CFDDDE" width="180"></a><img src="../images/nyp.gif" align="right"><a href="test.asp?Link=<%=rs("Documentpath")%>"><%=rs("navn")%></td>

Synes godt om

asker Nybegynder

26. juli 2003 - 22:11 #42

Så du at jeg fik en fejl
Fejltype:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access-driver] Det angivne felt "DocumentID" kan referere til mere end én tabel, der er vist i FROM-delsætningen i sætningen SQL.
/ss/search.asp, line 66

Synes godt om

nielle Nybegynder

26. juli 2003 - 22:13 #43

Ok, så prøv at rette til:

strSQL = "SELECT T1.DocumentID, [Navn], barcode, [Adresse], Bynavn, [Beskrivelse], Dato, Documentpath FROM indexTbl AS T1, DocTbl WHERE indexTbl.DocumentID=DocTbl.DocumentID"
if sqlWHERE <> "" then strSQL = strSQL & " AND " & sqlWHERE

Synes godt om

asker Nybegynder

26. juli 2003 - 22:14 #44

Ny fejl

Fejltype:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][ODBC Microsoft Access-driver] Der er for få parametre. Der var ventet 1.
/ss/search.asp, line 66

Synes godt om

asker Nybegynder

26. juli 2003 - 22:20 #45

vil du se hele koden

Synes godt om

nielle Nybegynder

26. juli 2003 - 22:22 #46

Prøv at udskrive den færdige SQL sætning til skærmen før at du udføre den. Måske ser den ikke ud som du forventer.

Synes godt om

asker Nybegynder

26. juli 2003 - 22:23 #47

Hvordan er det nu lige man gør det

Synes godt om

nielle Nybegynder

26. juli 2003 - 22:26 #48

Sæt en

Response.Write(strSQL)

- lige for din:

Set rs = myConn.Execute(strSQL)

Synes godt om

nielle Nybegynder

26. juli 2003 - 22:28 #49

for -> før

Synes godt om

asker Nybegynder

26. juli 2003 - 22:31 #50

Det er lige meget hvor jeg sætter den så får jeg den her fejl

Fejltype:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][ODBC Microsoft Access-driver] Der er for få parametre. Der var ventet 1.
/ss/search.asp, line 71

Synes godt om

nielle Nybegynder

26. juli 2003 - 22:37 #51

Ja, det ertter ikke fejlen at udskrive SQL sætningen, men nu skulle den da være fremme på skærmen sådan at du kan se om den ser rigtig ud.

Synes godt om

nielle Nybegynder

26. juli 2003 - 22:37 #52

Cut'n'paste hertil.

Synes godt om

asker Nybegynder

26. juli 2003 - 22:41 #53

Jeg har fået det her til at virke - men den gentager hver søgning 7 gange

strSQL = "SELECT indexTbl.barcode, indexTbl.Dato, indexTbl.Navn, indexTbl.Adresse, indexTbl.Bynavn, indexTbl.Beskrivelse, docTbl.DocumentPath FROM indexTbl, docTbl"
if sqlWHERE <> "" then strSQL = strSQL & " AND " & sqlWHERE

Synes godt om

asker Nybegynder

26. juli 2003 - 22:42 #54

SELECT indexTbl.barcode, indexTbl.Dato, indexTbl.Navn, indexTbl.Adresse, indexTbl.Bynavn, indexTbl.Beskrivelse, docTbl.DocumentPath FROM indexTbl, docTbl

Synes godt om

nielle Nybegynder

26. juli 2003 - 22:51 #55

Ja, for du laver ikke nogen parring på dit Dokument ID.

Synes godt om

asker Nybegynder

26. juli 2003 - 22:51 #56

Hvorfor gentager den søgningen 7 gange

Synes godt om

nielle Nybegynder

26. juli 2003 - 22:53 #57

Hvis du ikke Cut'n'Paster SQL sæstningen fra 22:31:36 så har jeg ikke meget jeg kan gøre for at hjælpe.

Synes godt om

nielle Nybegynder

26. juli 2003 - 22:54 #58

Fordi at der er 7 rækker i en af dine to tabeller.

Synes godt om

nielle Nybegynder

26. juli 2003 - 22:56 #59

Hvis du ikke laver en matching på f.eks. Dokument så får du det der hedder "de kartesiske produkt" af de to tabeller - det er kombinationen af samtlige rækker fra den ene taleb med samtlige rækker fra den anden. Det er ikke ret tit at man kan bruge dette til noget virkeligt nyttigt.

Synes godt om

asker Nybegynder

26. juli 2003 - 22:57 #60

Jamen der er ingen sql sætning den kommer bare med en fejl med din "sætning "

Fejltype:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][ODBC Microsoft Access-driver] Der er for få parametre. Der var ventet 1.
/ss/search.asp, line 71

Men kan vi ikke arbejde vidre med min sætning

Synes godt om

asker Nybegynder

26. juli 2003 - 22:59 #61

Hvordan laver jeg en matching

Jeg laver mine sql sætninger i acces i forspørgelser

Synes godt om

nielle Nybegynder

26. juli 2003 - 23:00 #62

Havd står der i din linje 71?

Synes godt om

nielle Nybegynder

26. juli 2003 - 23:04 #63

Din sætning skal rettes til:

SELECT indexTbl.barcode, indexTbl.Dato, indexTbl.Navn, indexTbl.Adresse, indexTbl.Bynavn, indexTbl.Beskrivelse, docTbl.DocumentPath FROM indexTbl, docTbl WHERE indexTbl.DocumentID=DocTbl.DocumentID

WHERE-delen er matchningen.

Bemærk at du så bliver nødt til at rette den anden WHERE til en AND

Synes godt om

asker Nybegynder

26. juli 2003 - 23:05 #64

Her

Response.Write(strSQL)

' Skaber et recordset udfra SQL strengen
Set rs = myConn.Execute(strSQL) (det her er linje 71)

Synes godt om

nielle Nybegynder

26. juli 2003 - 23:06 #65

Eftersom at der er en "Response.Write(strSQL)" lige før så er der også blevet skrevet noget ud til skærmen. Hvilket?

Synes godt om

asker Nybegynder

26. juli 2003 - 23:07 #66

Med den her sql sætning:
strSQL = "SELECT indexTbl.barcode, indexTbl.Dato, indexTbl.Navn, indexTbl.Adresse, indexTbl.Bynavn, indexTbl.Beskrivelse, docTbl.DocumentPath FROM indexTbl, docTbl"
if sqlWHERE <> "" then strSQL = strSQL & " AND " & sqlWHERE

kommmer dette resultatat til skærmen men den sætter det 7 gange
SELECT indexTbl.barcode, indexTbl.Dato, indexTbl.Navn, indexTbl.Adresse, indexTbl.Bynavn, indexTbl.Beskrivelse, docTbl.DocumentPath FROM indexTbl, docTbl

Synes godt om

nielle Nybegynder

26. juli 2003 - 23:08 #67

Se mit svar 23:04:47

Synes godt om

asker Nybegynder

26. juli 2003 - 23:09 #68

Ja men det gør den ikke - det er derfor jeg netop viste den

Synes godt om

asker Nybegynder

26. juli 2003 - 23:10 #69

Det går nok ikke at ændre where til and

Synes godt om

nielle Nybegynder

26. juli 2003 - 23:11 #70

Hvad gør den ikke. Du bliver nødt til at beskrive lidt mere hvad du iagtager. Jeg er jo ikke tankelæser.

Synes godt om

asker Nybegynder

26. juli 2003 - 23:11 #71

det er jo en søgning fra en formular hvor der bliver søgt på forskellige felter m.m.

se evt hele koden

<% Response.Buffer = True
Session.LCID=1030 'Dansk dato format %>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Søgeresultat</title>
<link rel="stylesheet" type="text/css" href="Style.css">
</head>
<body>

<%
' Henter værdien fra soeg.htm
fraDag = Replace(Trim(Request.Form("fraDag")),"'","")
fraMaaned = Replace(Trim(Request.Form("framaaned")),"'","")
fraAar = Replace(Trim(Request.Form("fraaar")),"'","")

tilDag = Replace(Trim(Request.Form("tilDag")),"'","")
tilMaaned = Replace(Trim(Request.Form("tilmaaned")),"'","")
tilAar = Replace(Trim(Request.Form("tilaar")),"'","")

navn = Replace(Trim(Request.Form("navn")),"'","''")
strKeyword = Replace(Trim(Request.Form("Keyword")),"'","''")

fraDato = ""
tilDato = ""
if isDate(fraDag&"-"&fraMaaned&"-"&fraAar) then
fraDato = fraAar & "-" & fraMaaned & "-" & fraDag
end if
if isDate(tilDag&"-"&tilMaaned&"-"&tilAar) then
tilDato = tilAar & "-" & tilMaaned & "-" & tilDag
end if

sqlWHERE = ""
if strKeyword <> "" then
sqlWHERE = sqlWHERE & "("
sqlWHERE = sqlWHERE & "(Adresse LIKE '%" & strKeyword & "%')"
sqlWHERE = sqlWHERE & " OR (Bynavn LIKE '%" & strKeyword & "%')"
sqlWHERE = sqlWHERE & " OR (Beskrivelse LIKE '%" & strKeyword & "%')"
sqlWHERE = sqlWHERE & ")"
end if
if fraDato <> "" AND tilDato <> "" then
if sqlWHERE <> "" then sqlWHERE = sqlWHERE & " AND "
sqlWHERE = sqlWHERE & "(dato >= #" & fraDato & "# AND dato <= #" & tilDato & "#)"
end if
if navn <> "" then
if sqlWHERE <> "" then sqlWHERE = sqlWHERE & " AND "
sqlWHERE = sqlWHERE & "(navn = '" & navn & "')"
end if

'strSQL = "SELECT T1.DocumentID, [Navn], barcode, [Adresse], Bynavn, [Beskrivelse], Dato, Documentpath FROM indexTbl AS T1, DocTbl WHERE indexTbl.DocumentID=DocTbl.DocumentID"
'if sqlWHERE <> "" then strSQL = strSQL & " AND " & sqlWHERE

strSQL = "SELECT indexTbl.barcode, indexTbl.Dato, indexTbl.Navn, indexTbl.Adresse, indexTbl.Bynavn, indexTbl.Beskrivelse, docTbl.DocumentPath FROM indexTbl, docTbl"
if sqlWHERE <> "" then strSQL = strSQL & " AND " & sqlWHERE

'strSQL = "SELECT DocumentID, [Navn], barcode, [Adresse], Bynavn, [Beskrivelse], test, Dato FROM indexTbl"
'if sqlWHERE <> "" then strSQL = strSQL & " WHERE " & sqlWHERE

'Her til angiver jeg søgeresultatet

' Skaber DSNLess forbindelse til DBen laver en konektion til min database
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("Dokument.mdb")
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN

Response.Write(strSQL)

' Skaber et recordset udfra SQL strengen
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
' Hvis der er fundet poster på søgningen
Response.Write "Søgeresultat"
'Her ændre jeg senere udsendet på visningen ved border

%>
<table width="630" border="0" align="left">
<tr>

<td bgcolor="#0066FF" width="180">Navn</td>
<td bgcolor="#0066FF" width="64">Adresse</td>
<td bgcolor="#0066FF" width="53">By</td>
<td bgcolor="#0066FF" width="48">Beskrivelse</td>
<td bgcolor="#0066FF" width="100">Dato</td>
<td bgcolor="#0066FF" width="150">Link</td>
<td bgcolor="#0066FF" width="150">Bruger</td>
</tr>

<% do until rs.eof %>

<tr>
<td bgcolor="#CFDDDE" width="180"></a><img src="../images/nyp.gif" align="right"><a href="test.asp?Link=<%=rs("Documentpath")%>"><%=rs("navn")%></td>

<td bgcolor="#CFDDDE" align="center" width="64"><%=rs("Navn")%></td>
<td bgcolor="#CFDDDE" align="center" width="53"><%=rs("Adresse")%></td>
<td bgcolor="#CFDDDE" align="center" width="48"><%=rs("Bynavn")%></td>
<td bgcolor="#CFDDDE" align="center" width="50"><%=rs("Beskrivelse")%></td>
<td bgcolor="#CFDDDE" align="center" width="100"><%=rs("Dato")%></td>
<td bgcolor="#CFDDDE" align="center" width="150"><%=rs("Barcode")%></td>
</tr>
<%
rs.movenext
loop
Else
' Hvis der ikke er fundet poster på søgningen
Response.Write "Der er ikke fundet noget på denne søgning"
End If
' Rydder op efter mig
%>

</table>

</body>

<% Myconn.close

set Myconn = nothing %>

Synes godt om

nielle Nybegynder

26. juli 2003 - 23:12 #72

Den WHERE del er *uundværlig* hvis du vil undgå at få det samme 7 gange.

Synes godt om

asker Nybegynder

26. juli 2003 - 23:14 #73

Undskyld det den ikke gør er med "Response.Write(strSQL)" med din sql sætning er at komme med et resultat selom der er et "Response.Write(strSQL)"

det eneste den gør er at komme emd en fejl som angive længere opppe

Synes godt om

asker Nybegynder

26. juli 2003 - 23:15 #74

ok men har det ikke en betydning for detn øvrige kode

Synes godt om

nielle Nybegynder

26. juli 2003 - 23:16 #75

Prøv nu at gøre det jeg beder dig om!

=== Fra ===

strSQL = "SELECT indexTbl.barcode, indexTbl.Dato, indexTbl.Navn, indexTbl.Adresse, indexTbl.Bynavn, indexTbl.Beskrivelse, docTbl.DocumentPath FROM indexTbl, docTbl"
if sqlWHERE <> "" then strSQL = strSQL & " AND " & sqlWHERE

=== Til ===

strSQL = "SELECT indexTbl.barcode, indexTbl.Dato, indexTbl.Navn, indexTbl.Adresse, indexTbl.Bynavn, indexTbl.Beskrivelse, docTbl.DocumentPath FROM indexTbl, docTbl WHERE indexTbl.DocumentID=DocTbl.DocumentID"
if sqlWHERE <> "" then strSQL = strSQL & " AND " & sqlWHERE

Synes godt om

nielle Nybegynder

26. juli 2003 - 23:18 #76

Hvis Response.Write(strSQL) ikke udskriver noget så er det fordi at din strSQL er tom. Der er ikke nogen anden forklaring. Det ville også forklare hvorfor at Access brokker sig.

Synes godt om

asker Nybegynder

26. juli 2003 - 23:19 #77

Ok jeg tester det lige

Synes godt om

nielle Nybegynder

26. juli 2003 - 23:21 #78

Jeg kan nu ikke se nogen grund til at den skulle være tom.

Synes godt om

nmh Nybegynder

26. juli 2003 - 23:24 #79

Jeg håber I hygger jer. Pas nu på ikke at få ødelagt jeres nattesøvn. Jeg får hele tiden mail om jeres aktiviteter.
God nat ;o).

Synes godt om

asker Nybegynder

26. juli 2003 - 23:24 #80

Får den samme fejl igen

skal vi opgive

Synes godt om

nielle Nybegynder

26. juli 2003 - 23:31 #81

Jeg er faktisk på vej i seng (eller var det for ½ times tid siden). Jeg forstår nu ikke hvorfor at du får fejl (det er stadig i linje 71?). Endelig så forstår jeg ikke hvorfor at der ikke bliver skrevet noget ud på skærmesn som følge af at der er tilføget en Response.Write(...).

Prøv lige at ret den til: Response.Write("XXX " & strSQL & " XXX") og fortæl mig om der ikke i det mindste bliver udskrevet to gange XXX på skærmen.

Synes godt om

nielle Nybegynder

26. juli 2003 - 23:32 #82

...og om der står noget imellem dem.

Synes godt om

nielle Nybegynder

26. juli 2003 - 23:36 #83

5 minutter til og så er jeg smuttet for idag.

Synes godt om

asker Nybegynder

26. juli 2003 - 23:38 #84

Jov nu virker den XXX SELECT DocumentID, [Navn], barcode, [Adresse], Bynavn, [Beskrivelse], test, Dato FROM indexTbl XXX

Jeg lukker og du får point

så opretter jeg et nyt spørgsmål i morgen med den her sql streng

her er resultatet

XXX SELECT DocumentID, [Navn], barcode, [Adresse], Bynavn, [Beskrivelse], test, Dato FROM indexTbl XXX

Synes godt om

nielle Nybegynder

26. juli 2003 - 23:39 #85

Det er jo ikke den rigtige SQL sætning.

Synes godt om

nielle Nybegynder

26. juli 2003 - 23:39 #86

Prøv med den anden og se hvad du så får.

Synes godt om

nielle Nybegynder

26. juli 2003 - 23:47 #87

Takker for points, og du er selvfølgelig velkommen til at åbne et nyt spørgsmål. Jeg er nu ret sikker på at svaret kommer til at lægge meget tæt op af det jeg allerede har anvist.

Men godnat herfra. :^)

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS