Følgende sql-streng, som er inkluderet i søgesiden, som ligger på
http://www.gaynord.dk/arrangementer/search.asp?action=search
kan jeg godt få til at virke hvis jeg bruger like i strSql.
Den skulle imidlertid kunne vise værdier større end og mindre end, men når
jeg prøver med disse operatorer - kikser den. Datatyperne stemmer ikke
overens.
Jeg lører på en access2000 db, hvor felterne er defineret som kort
datoformat.
Hvad gør jeg...?
<%
dim strStartdato, strSlutdato
strCategory = Request("SelectCategory")
strSubCategory = Request("SelectSubCategory")
strStartdato = Request("selectStartdato")
strSlutdato = Request("selectSlutDato")
strCity = Request("SelectCity")
strCity = replace(Request("SelectCity"),"'","%")
strKeyword = Request("Keyword")
strKeyword = replace(Request("Keyword"),"'","%")
If strCategory = "ALL" Then
strCategory = "%"
End If
If strSubCategory = "ALL" Then
strSubCategory = "%"
End If
If strStartdato = "" Then
'strStartdato = "%"
strstartDato = FormatDateTime(Now(),vbShortDate)
End If
If strSlutdato = "" Then
'strSlutdato = "%"
strSlutDato = FormatDateTime(Now(),vbShortDate)
end If
If strCountry = "" OR strCountry = "Any" Then
strCountry = "%"
End If
If strCity = "" OR strCity = "Any" Then
strCity = "%"
End If
If strKeyword = "" Then
strKeyword = ""
End If
strSQLSearch = strKeyword
If Request("Operator")= "Indeholder" then
strSQLOperator = "LIKE '%" & strSQLSearch & "%'"
Else
strSQLOperator = "= '" & strSQLSearch & "'"
End If
dim cstartdato,cslutdato
cstartdato = FormatDateTime(Now(),vbShortDate)
cslutdato = FormatDateTime(Now(),vbShortDate)
strSql = "SELECT * FROM tblAds WHERE tblAds.cstartdato like '" &
strStartdato & "' AND tblAds.cslutdato like '"& strSlutdato &"' ORDER BY
nAdID DESC"
%>