Avatar billede fastpoint Nybegynder
27. januar 2002 - 13:48 Der er 11 kommentarer og
1 løsning

let ?

Jeg skal bare have mit script til at vise alle vildejokes

jeg har en database. I databasen under joke har jeg noget der hedder "type" den skal kun vise alle vildejokes i denne række.

jeg er kommet så langt


Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "select * from joke where Approved=true ORDER BY type desc"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("database.mdb")
rs.Open strSQL, strDSN, 1


men mangler den del hvor den kun skal vise vildejokes


Avatar billede oskar Nybegynder
27. januar 2002 - 14:02 #1
where type = 'vildejokes'
Avatar billede oskar Nybegynder
27. januar 2002 - 14:03 #2
ups:
strSQL = "select * from joke where Approved=true, type = 'vildejokes' ORDER BY type desc"
Avatar billede fastpoint Nybegynder
27. januar 2002 - 14:31 #3
den siger

Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
ODBC driver does not support the requested properties.
/ok/jokes2.asp, line 227
Avatar billede Slettet bruger
27. januar 2002 - 14:36 #4
type er et reserveret ord i Access
Avatar billede fastpoint Nybegynder
27. januar 2002 - 14:40 #5
ahh jeg prøver lige at ændre det:)
Avatar billede fastpoint Nybegynder
27. januar 2002 - 14:45 #6
hmm den siger det samme
Avatar billede Slettet bruger
27. januar 2002 - 14:46 #7
Ja, det er ikke der fejlen er. Ville bare nævne at type var et reserveret ord, idet det med tiden kan give problemer.
Avatar billede coltau Juniormester
27. januar 2002 - 15:35 #8
Med reserverede ord hjælper det altid at angive tabelnavnet. Sådan:

strSQL = "select * from joke where Approved=true, joke.type='vildejokes' ORDER BY type desc"
Avatar billede Slettet bruger
27. januar 2002 - 15:37 #9
coltau: Ja, eller sætte [] uden om det reserverede ord - altså [type]
Avatar billede fastpoint Nybegynder
27. januar 2002 - 20:01 #10
den virker nu ikke af den grund:) men det er  nu også ligemeget.. jeg ændre mit spørgsmål og afsætter gerne flere point hvis i da mener det bliver nødvendigt.

Jeg skal bruge et script der søger i rækken "titel" under joke i databasen.
hvis scriptet ikke finder noget skal den skrive "Der Blev Desværre Ikke Fundet Noget" jeg har lavet følgende script...

<%@ LANGUAGE="VBSCRIPT" %>

<%
Dim strConnect

strConnect = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("database.mdb") &";DefaultDir="& Server.MapPath(".") &";DriverId=25;FIL=MS Access;MaxBufferSize=512;PageTimeout=5"
%>

<%
Set resultat = Server.CreateObject("ADODB.Recordset")
Set objConn = Server.CreateObject ("ADODB.Connection")
objConn.Open strConnect
%>

<%
Dim strAryWords
Dim strValue
Dim firstSQL1
strValue = Request("searchword")
strAryWords = Split(strValue, " ")
Dim intCol
For intCol = 0 to UBound(strAryWords)

'Her søges der i Title
firstSQL1 = firstSQL1 & " (Title LIKE '%" & strAryWords(intCol) & "%')"
if intCol < UBound(strAryWords) then
firstSQL1 = firstSQL1 + " OR "
end if
Next

set firstSQL = objConn.Execute("SELECT * FROM joke WHERE "&firstSQL1&" ORDER BY dato ASC;") %>


<% While Not firstSQL.EOF
'Herunder udskrives resultaterne
%>

<p align="center">&nbsp; <a href="http://www.mitdomæne.dk" class="url">
  Joke Fra mitdomæne.dk </a>  <a href="http://www.mitdomæne.dk/" class="url"></a>
<br>

Title: <a href="<%= firstSQL("url") %>"><%= firstSQL("title") %></a> <br>
Date: <%= firstSQL("dato") %><br>
Views: <%= firstSQL("Views") %><br><br>



<%
firstSQL.MoveNext
Wend
%>

<%
    objConn.Close
    Set resultat = Nothing
%> 



men der er også fejl i den tror jeg... Hvis i mener scriptet er dårligt må i meget gerne lave det helt om:)
Avatar billede fastpoint Nybegynder
29. januar 2002 - 09:22 #11
Så er det vel i orden at jeg lukker dette spørgsmål?
Avatar billede fastpoint Nybegynder
23. februar 2002 - 17:11 #12
jeg lukker det her da jeg aldrig fik et gyldigt svar... håber det er ok
Avatar billede 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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

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