1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50
|
<%@ CODEPAGE = 65001 %>
<%
str = UCase(request.form("str"))
genre = request.form("genre")
pref1 = request.form("pref1")
pref2 = request.form("pref2")
Dim rsMain,sqlMain,rettxt,JobOpenToArr
myStr = pref1
myStr = mid(myStr,5,11)
myDate = datevalue(myStr)
myStr2 = pref2
myStr2 = mid(myStr2,5,11)
myDate2 = datevalue(myStr2)
strAccessDB = "/Base/xx.mdb"
DSN_BASE2 = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath(strAccessDB)
Set CONN2 = Server.CreateObject("ADODB.Connection")
CONN2.Open DSN_BASE2
Set rsMain = Server.CreateObject("ADODB.RecordSet")
sqlMain = "select Pays FROM Membres WHERE Pays LIKE '%"&str & "%' and Sex = " & "'" & genre & "'" & " and Age < " & "#" & myDate & "#" & " and Age > " & "#" & myDate2 & "#" & " order by Pays ASC"
rsMain.Open sqlMain, CONN2,3,2,1
if Not rsMain.Eof Then
rettxt = "{localite:""" & str & """, suggestions:["
JobOpenToArr = rsMain.getRows()
For i = 0 to UBound(JobOpenToArr,2)
extrac = UCase(Left(JobOpenToArr(0,i), len(str)))
if extrac = str then
rettxt = rettxt & """" & JobOpenToArr(0,i) & ""","
end if
Next
rettxt = left(rettxt,len(rettxt)-1)
rettxt = rettxt & "]}"
Response.Write rettxt
else
rettxt = "{localite:""" & str & """, suggestions:["
rettxt = rettxt & """" & undefined & ""","
rettxt = left(rettxt,len(rettxt)-1)
rettxt = rettxt & "]}"
Response.Write rettxt
end if
%> |
Partager