Notifikationer

Markér alle som læst Log ud

asker Nybegynder

24. juli 2003 - 00:13 Der er 37 kommentarer og
1 løsning

flere søgemuligheder

Hej

Jeg har den her søge side:
********************************************************
<html>

<head>

<title>Fritekst søgning</title>
</head>

<body>

<form method="POST" action="search.asp">
<p><input type="text" name="Keyword" size="20">Fritekst søgning<br>
<input type="submit" value="Søg" name="Action"></p>
</form>
</body>
</html>
********************************************************
Som kalder den her side:
<% Response.Buffer = True %>
<html><head>
<title>Søgeresultat</title>
</head><body>

<%
' Henter værdien fra soeg.htm
strKeyword = Trim(Request.Form("Keyword"))

If Len(strKeyword) = 0 Then
' Hvis der ikke er skrevet i feltet
Response.Clear
Response.Redirect("search.htm")
Else
' Hvis der er skrevet i feltet
strKeyword = Replace(strKeyword,"'","''")
End If

' Opbygger en dynamisk SQL streng
strSQL = "SELECT ID, Navn, Adresse, Bynavn, Beskrivelse, Dato FROM Kunder WHERE"
strSQL = strSQL & " (Navn LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (Adresse LIKE '%" & strKeyword & "%')"
' strSQL = strSQL & " OR Dato LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (Bynavn LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (Beskrivelse LIKE '%" & strKeyword & "%')"

' Skaber DSNLess forbindelse til DBen
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("search_2000.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 "<p>Søgeresultat</p>"
'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
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 width="25" valign="top"> <font face="Tahoma" size="2"><b><a target="_blank" href="<%=rs("Hjemmeside")%>"><img border="0" src="../images/skilt.gif" width="26" ' height="21" alt="Link til kommune"></a></b></font>
' </td>
Response.Write "<tr><td>" & rs("Navn") & "</td>"
Response.Write "<td>" & rs("Adresse") & "</td>"
Response.Write "<td>" & rs("Bynavn") & "</td>"
Response.Write "<td>" & rs("Dato") & "</td>"
Response.Write "<td>" & rs("Beskrivelse") & "</td></tr>"
rs.MoveNext
Loop
Response.Write "</table>"
Else
' Hvis der ikke er fundet poster på søgningen
Response.Write "<p>Der er ikke fundet noget på denne søgning</p>"
End If

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

</body></html>
*********************************************************
Nu vil jeg gerne have nogle flere søge muligheder, hvor der først søges på Dato, derefter navn og så fritekst søgning. Så jeg tilføjer 2 nye felter på min søge side:
*********************************************************
<p><input type="text" name="Dato" size="20">Dato<br>
<p><input type="text" name="Navn" size="20">Navn<br>
*********************************************************
Nemlig Dato og navn - det jeg har brug for er en der vil hjælpe mig med at tirette asp siden.......

Synes godt om

eagleeye Praktikant

24. juli 2003 - 00:25 #1

Du kan lave noget i stil med dette:

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

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 dato <> "" then
if sqlWHERE <> "" then sqlWHERE = sqlWHERE & " AND "
sqlWHERE = sqlWHERE & "(dato = #" & dato & "#)"
end if
if navn <> "" then
if sqlWHERE <> "" then sqlWHERE = sqlWHERE & " AND "
sqlWHERE = sqlWHERE & "(navn = '" & navn & "')"
end if

strSQL = "SELECT ID, Navn, Adresse, Bynavn, Beskrivelse, Dato FROM Kunder"
if sqlWHERE <> "" then strSQL = strSQL & " " & sqlWHERE

Så kan du prøve at udskrive SQL for at se om det er sådan du ønsker den skal se ud:

Response.Write strSQL

Synes godt om

asker Nybegynder

24. juli 2003 - 00:28 #2

Jeg er ikke så god så kan du ikke vise hele koden

Synes godt om

eagleeye Praktikant

24. juli 2003 - 00:34 #3

Det kan jeg da.:

Først FORM siden:

<html>

<head>

<title>Fritekst søgning</title>
</head>

<body>

<form method="POST" action="search.asp">
<p><input type="text" name="Keyword" size="20">Fritekst søgning<br>
<p><input type="text" name="Dato" size="20">Dato<br>
<p><input type="text" name="Navn" size="20">Navn<br>
<input type="submit" value="Søg" name="Action"></p>
</form>
</body>
</html>

SØGE SIDEN:

<% Response.Buffer = True
Session.LCID=1030 'Dansk dato format %>
<html><head>
<title>Søgeresultat</title>
</head><body>

<%
' Henter værdien fra soeg.htm
dato = Replace(Trim(Request.Form("dato")),"'","")
navn = Replace(Trim(Request.Form("navn")),"'","''")
strKeyword = Replace(Trim(Request.Form("Keyword")),"'","''")

if dato <> "" then
dato = Year(dato) & "-" & Month(dato) & "-" & Day(dato)
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 dato <> "" then
if sqlWHERE <> "" then sqlWHERE = sqlWHERE & " AND "
sqlWHERE = sqlWHERE & "(dato = #" & dato & "#)"
end if
if navn <> "" then
if sqlWHERE <> "" then sqlWHERE = sqlWHERE & " AND "
sqlWHERE = sqlWHERE & "(navn = '" & navn & "')"
end if

strSQL = "SELECT ID, Navn, Adresse, Bynavn, Beskrivelse, Dato FROM Kunder"
if sqlWHERE <> "" then strSQL = strSQL & " " & sqlWHERE

' Skaber DSNLess forbindelse til DBen
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("search_2000.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 "<p>Søgeresultat</p>"
'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
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 width="25" valign="top"> <font face="Tahoma" size="2"><b><a target="_blank" href="<%=rs("Hjemmeside")%>"><img border="0" src="../images/skilt.gif" width="26" ' height="21" alt="Link til kommune"></a></b></font>
' </td>
Response.Write "<tr><td>" & rs("Navn") & "</td>"
Response.Write "<td>" & rs("Adresse") & "</td>"
Response.Write "<td>" & rs("Bynavn") & "</td>"
Response.Write "<td>" & rs("Dato") & "</td>"
Response.Write "<td>" & rs("Beskrivelse") & "</td></tr>"
rs.MoveNext
Loop
Response.Write "</table>"
Else
' Hvis der ikke er fundet poster på søgningen
Response.Write "<p>Der er ikke fundet noget på denne søgning</p>"
End If

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

</body></html>

Synes godt om

asker Nybegynder

24. juli 2003 - 00:51 #4

Fik en fejl :

Error Type:
Der opstod en Microsoft VBScript-kompileringsfejl (0x800A0401)
Slut på sætning var ventet
/ss/search.asp, line 20, column 20
sqlWHERE = sqlWHERE "("
-------------------^

Synes godt om

eagleeye Praktikant

24. juli 2003 - 00:53 #5

Hov ja der mangler et & tegn imellem sqlWHERE og "(" i linje 20, sådan her:

sqlWHERE = sqlWHERE & "("

Synes godt om

asker Nybegynder

24. juli 2003 - 01:07 #6

få nu den her fejl:

Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access Driver] Syntax error in FROM clause.
/ss/search.asp, line 44

*******************************************
Koden ser sådean her ud:

<% Response.Buffer = True
Session.LCID=1030 'Dansk dato format %>
<html><head>
<title>Søgeresultat</title>
</head><body>

<%
' Henter værdien fra soeg.htm
dato = Replace(Trim(Request.Form("dato")),"'","")
navn = Replace(Trim(Request.Form("navn")),"'","''")
strKeyword = Replace(Trim(Request.Form("Keyword")),"'","''")

if dato <> "" then
dato = Year(dato) & "-" & Month(dato) & "-" & Day(dato)
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 dato <> "" then
if sqlWHERE <> "" then sqlWHERE = sqlWHERE & " AND "
sqlWHERE = sqlWHERE & "(dato = #" & dato & "#)"
end if
if navn <> "" then
if sqlWHERE <> "" then sqlWHERE = sqlWHERE & " AND "
sqlWHERE = sqlWHERE & "(navn = '" & navn & "')"
end if

strSQL = "SELECT ID, Navn, Adresse, Bynavn, Beskrivelse, Dato FROM Kunder"
if sqlWHERE <> "" then strSQL = strSQL & " " & sqlWHERE

' Skaber DSNLess forbindelse til DBen
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("search_2000.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 "<p>Søgeresultat</p>"
'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
Response.Write "<tr><th>Navn</th><th>Adresse</th><th>By</th><th>Beskrivelse</th><th>Dato</th></tr>"
Do While Not rs.EOF

Response.Write "<tr><td>" & rs("Navn") & "</td>"
Response.Write "<td>" & rs("Adresse") & "</td>"
Response.Write "<td>" & rs("Bynavn") & "</td>"
Response.Write "<td>" & rs("Dato") & "</td>"
Response.Write "<td>" & rs("Beskrivelse") & "</td></tr>"
rs.MoveNext
Loop
Response.Write "</table>"
Else
' Hvis der ikke er fundet poster på søgningen
Response.Write "<p>Der er ikke fundet noget på denne søgning</p>"
End If

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

</body></html>

Synes godt om

eagleeye Praktikant

24. juli 2003 - 01:13 #7

Hvilket format og type er din dato kolonne ?

Synes godt om

asker Nybegynder

24. juli 2003 - 01:20 #8

Dato og klokkeslæt

&

Kort datoformat

med en standartværdi der hedder =Now()

Synes godt om

asker Nybegynder

24. juli 2003 - 01:24 #9

det er i databasen

Men jeg kan godt se at jeg skal have en fra til dato.

Kan du hjælpe med at lave det på start side evt. i form af dropdown med 3 dropdown felter en for dag en for mdr og en for år så kan bruger heller ikke skrive forkert

Jeg smider 50 ekstra point på

Synes godt om

eagleeye Praktikant

24. juli 2003 - 01:25 #10

Prøv at udskrive strSQL og vis den her så kan vi måske lettere se fejlen.

Så ret denne linje:
Set rs = myConn.Execute(strSQL)

Til disse, så der indført de to linjer før.

response.write strSQL
response.end
Set rs = myConn.Execute(strSQL)

Synes godt om

eagleeye Praktikant

24. juli 2003 - 01:27 #11

Ja det kan laves men hvor mange år skal der så være??
1900->2100 ?? eller 2000->2005

Synes godt om

asker Nybegynder

24. juli 2003 - 01:29 #12

Her er fejlen :
SELECT ID, Navn, Adresse, Bynavn, Beskrivelse, Dato FROM Kunder ((Adresse LIKE '%anders%') OR (Bynavn LIKE '%anders%') OR (Beskrivelse LIKE '%anders%'))

Jeg har kun skrevet anders i feltet "Keyword"

Synes godt om

asker Nybegynder

24. juli 2003 - 01:31 #13

her har jeg skrevet noget i alle 3 felter

SELECT ID, Navn, Adresse, Bynavn, Beskrivelse, Dato FROM Kunder ((Adresse LIKE '%and%') OR (Bynavn LIKE '%and%') OR (Beskrivelse LIKE '%and%')) AND (dato = #2003-7-23#) AND (navn = 'peter')

Synes godt om

asker Nybegynder

24. juli 2003 - 01:32 #14

år lad os lave fra år 2000 til 2015

31 dage

og 12 mdr

Synes godt om

eagleeye Praktikant

24. juli 2003 - 01:33 #15

ok laver lige koden..

Synes godt om

asker Nybegynder

24. juli 2003 - 01:34 #16

hov datoen jeg har skrevt i feltet ser sådan her ud 23-07-2003 (sådan står den også i databasen men den læser den åbenbart som AND (dato = #2003-7-23#) er det ikke en fejl

Synes godt om

eagleeye Praktikant

24. juli 2003 - 01:35 #17

Det er meningen da SQL brugr US/UK datoformat via SQL, som er yyyy-mm-dd eller mm-dd-yyyy.

Synes godt om

asker Nybegynder

24. juli 2003 - 01:36 #18

vil bare lige nævne det - troed bare at det jeg skrev i felte skulle stemme overens med det i databasen

Synes godt om

eagleeye Praktikant

24. juli 2003 - 01:43 #19

Prøv at lave form siden om til dette:

<html>

<head>

<title>Fritekst søgning</title>
</head>

<body>

<form method="POST" action="search.asp">
<p><input type="text" name="Keyword" size="20">Fritekst søgning<br>
<p>Fra dag <select name="fradag">
<% for i = 1 to 31 %>
<option value="<%=i%>"><%=i%></option>
<% next %>
</select>
Fra månede <select name="framaaned">
<% for i = 1 to 12 %>
<option value="<%=i%>"><%=i%></option>
<% next %>
</select>
Fra år <select name="fraaar">
<% for i = 2000 to 2015 %>
<option value="<%=i%>"><%=i%></option>
<% next %>
</select>

<p>Til dag <select name="tildag">
<% for i = 1 to 31 %>
<option value="<%=i%>"><%=i%></option>
<% next %>
</select>
Til månede <select name="tilmaaned">
<% for i = 1 to 12 %>
<option value="<%=i%>"><%=i%></option>
<% next %>
</select>
Til år <select name="tilaar">
<% for i = 2000 to 2015 %>
<option value="<%=i%>"><%=i%></option>
<% next %>
</select>

<p><input type="text" name="Navn" size="20">Navn<br>
<input type="submit" value="Søg" name="Action"></p>
</form>
</body>
</html>

Synes godt om

eagleeye Praktikant

24. juli 2003 - 01:44 #20

og search.asp om til dette:

<% Response.Buffer = True
Session.LCID=1030 'Dansk dato format %>
<html><head>
<title>Søgeresultat</title>
</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 ID, Navn, Adresse, Bynavn, Beskrivelse, Dato FROM Kunder"
if sqlWHERE <> "" then strSQL = strSQL & " " & sqlWHERE

' Skaber DSNLess forbindelse til DBen
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("search_2000.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 "<p>Søgeresultat</p>"
'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
Response.Write "<tr><th>Navn</th><th>Adresse</th><th>By</th><th>Beskrivelse</th><th>Dato</th></tr>"
Do While Not rs.EOF

Response.Write "<tr><td>" & rs("Navn") & "</td>"
Response.Write "<td>" & rs("Adresse") & "</td>"
Response.Write "<td>" & rs("Bynavn") & "</td>"
Response.Write "<td>" & rs("Dato") & "</td>"
Response.Write "<td>" & rs("Beskrivelse") & "</td></tr>"
rs.MoveNext
Loop
Response.Write "</table>"
Else
' Hvis der ikke er fundet poster på søgningen
Response.Write "<p>Der er ikke fundet noget på denne søgning</p>"
End If

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

</body></html>

Synes godt om

asker Nybegynder

24. juli 2003 - 01:55 #21

form siden er MEGET længe om at komme frem ja den er faktisk ikke loudet endnu
jeg regner selvfølgelig med at den skal hedde *.asp

Synes godt om

eagleeye Praktikant

24. juli 2003 - 01:58 #22

Ja den skal hedde noget med .asp
hmm det lyder underligt, de små loops der er skulle eller ikke tage noget tid.

Synes godt om

asker Nybegynder

24. juli 2003 - 02:04 #23

nu virker form siden - hvar et eller andet med min server

Synes godt om

asker Nybegynder

24. juli 2003 - 02:07 #24

jeg får nu denne fejl

Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access Driver] Syntax error in FROM clause.
/ss/search.asp, line 57

Browser Type:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)

Page:
POST 105 bytes to /ss/search.asp

POST Data:
Keyword=ander&fradag=23&framaaned=7&fraaar=2003&tildag=23&tilmaaned=7&tilaar=2003&Navn=peter&Action=S%F8g

Time:
24. juli 2003, 02:05:04

More information:
Microsoft Support

Synes godt om

asker Nybegynder

24. juli 2003 - 02:08 #25

skal den ikke vise 07 som mdr - det er hvad der står i databasen

Synes godt om

eagleeye Praktikant

24. juli 2003 - 02:11 #26

Det er ok men 7
Prøv igen at udskrive SQL sætningen og vis den her.

Synes godt om

asker Nybegynder

24. juli 2003 - 02:12 #27

SELECT ID, Navn, Adresse, Bynavn, Beskrivelse, Dato FROM Kunder ((Adresse LIKE '%ander%') OR (Bynavn LIKE '%ander%') OR (Beskrivelse LIKE '%ander%')) AND (dato >= #2003-7-23# AND dato <= #2003-7-23#) AND (navn = 'peter')

Synes godt om

eagleeye Praktikant

24. juli 2003 - 02:14 #28

doh jeg har jo glemt ordet WHERE, prøv lige at rette denne linje:

if sqlWHERE <> "" then strSQL = strSQL & " " & sqlWHERE

Til denne:

if sqlWHERE <> "" then strSQL = strSQL & " WHERE " & sqlWHERE

Synes godt om

asker Nybegynder

24. juli 2003 - 02:15 #29

Kan det have noget med at gøre at jeg i databasen kun har et felt i tabellen der hedder "navn" men at jeg søger på det 2 gange ??

Synes godt om

eagleeye Praktikant

24. juli 2003 - 02:16 #30

Nej det ikke noget problem at samme kolonne optræder flere gange i WHERE delen.

Synes godt om

asker Nybegynder

24. juli 2003 - 02:18 #31

Nu virker det ........men lige meget hvad jeg skriver finder den ikke noget på søgningen

Synes godt om

eagleeye Praktikant

24. juli 2003 - 02:21 #32

Iøjeblikket er der også AND mellem de 3 søge felter så du skal vælge en dato som er større end den som er i DB'en.

Skulle den også søge i kolonnen navn ved strKeyword ??
det har jeg nemlig fjernet, da den nye navn er tilført

Synes godt om

asker Nybegynder

24. juli 2003 - 02:26 #33

Nu virker det

Men lige til sidst jeg skal kunne søge uafhængigt af mine felter også på dato - så værdine skal være 0 når der startes i i dato - kan dette lade sig gøre

Synes godt om

asker Nybegynder

24. juli 2003 - 02:29 #34

Det er findt nok med AND men hvad hvis man kun ønsker et resultat på en dag

Synes godt om

eagleeye Praktikant

24. juli 2003 - 02:30 #35

Ja det kan det, du retter bare formen på form siden til dette:
Hvis man sætter dem til en ulovlig dato udelades dato søgeningen nemlig.

<form method="POST" action="search.asp">
<p><input type="text" name="Keyword" size="20">Fritekst søgning<br>
<p>Fra dag <select name="fradag">
<option value="0">Ingen</option>
<% for i = 1 to 31 %>
<option value="<%=i%>"><%=i%></option>
<% next %>
</select>
Fra månede <select name="framaaned">
<option value="0">Ingen</option>
<% for i = 1 to 12 %>
<option value="<%=i%>"><%=i%></option>
<% next %>
</select>
Fra år <select name="fraaar">
<option value="0">Ingen</option>
<% for i = 2000 to 2015 %>
<option value="<%=i%>"><%=i%></option>
<% next %>
</select>

<p>Til dag <select name="tildag">
<option value="0">Ingen</option>
<% for i = 1 to 31 %>
<option value="<%=i%>"><%=i%></option>
<% next %>
</select>
Til månede <select name="tilmaaned">
<option value="0">Ingen</option>
<% for i = 1 to 12 %>
<option value="<%=i%>"><%=i%></option>
<% next %>
</select>
Til år <select name="tilaar">
<option value="0">Ingen</option>
<% for i = 2000 to 2015 %>
<option value="<%=i%>"><%=i%></option>
<% next %>
</select>

<p><input type="text" name="Navn" size="20">Navn<br>
<input type="submit" value="Søg" name="Action"></p>
</form>

Synes godt om

eagleeye Praktikant

24. juli 2003 - 02:40 #36

Nå godnat det er vist langt over min senge tid ;)

Synes godt om

eagleeye Praktikant

24. juli 2003 - 02:41 #37

danm det blev et forsat svar og ikke en kommentar. Det er vist på tide at gå i seng :)

Synes godt om

asker Nybegynder

24. juli 2003 - 02:41 #38

Perfekt mange tak for hjælpen

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