Søgning, hvoraf bookede sommerhuse ikke skal medtages
Hej eksperter,Jeg skal virkelig bruges jeres hjælp, det kan være det er svært eller også er det ret simpel. Nu skal i høre.
Man skal kunne søge på nogle sommerhuse. Men når man søger på dem med en startdato og en slutdato så skal der kun vises de sommerhuse der er ledig i den periode. Godt så :-)
Jeg har oprettet 3 tabeller.
1)
Den ene indeholder sommerhuseområder
2)
Den anden indholder alle sommerhusene med de info der høre til dem, spabad pool, adresse osv.
3)
Den tredje og sidste indeholder alle ordrene. Dvs. et ordreid or et sommerhusid og så startdato og en slutdato for lejeperioden og så selvfølgelig de oplysninger der tilknyttet den der booker.
Som sagt når man søger med en startdato og en slutdato så skal alle sommerhusene der er ledig i denne periode vises.
Jeg har følgende sætning på nuværenden tidspunkt, i får lige et udsnit af koden som er vigtig.
<%
Dim sqlwhere
antal=request("antal")
if antal="" then
antal = 2
else
end if
boblebad=request("spa")
if boblebad="checkbox" then
sqlwhere = sqlwhere & " AND boblebad='Ja'"
end if
sauna=request("sauna")
if sauna="checkbox" then
sqlwhere = sqlwhere & " AND sauna='Ja'"
end if
pool=request("pool")
if pool="checkbox" then
sqlwhere = sqlwhere & " AND pool='Ja'"
end if
dyr=request("dyr")
if dyr="checkbox" then
sqlwhere = sqlwhere & " AND dyr='Ja'"
end if
sqlwhere = sqlwhere & " AND sovepladser >= "&antal&""
datostart = request("datostart")
datoslut=request("datoslut")
if datostart<>"" and datoslut <>"" then
sqlwhere = sqlwhere & " AND datostart > #"&datostart&"# and datoslut < #"&datostart&"# AND datostart > #"&datoslut&"# and datoslut < #"&datoslut&"# "
else
end if
%>
<script language="JavaScript" src="calendar1.js"></script>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
//-->
</script>
<TABLE WIDTH=763 BORDER=0 CELLPADDING=0 CELLSPACING=0 align="center">
<TR>
<TD WIDTH=763 HEIGHT=10 ALT="" valign="top">
</TD>
</TR>
<TR>
<TD WIDTH=763 HEIGHT=292 ALT="" valign="top">
<table width="763" height="292" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="10"><img src="images/spacer.gif"></td>
<td width="744" valign="top">
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="744" height="292">
<param name="movie" value="flash/header.swf">
<param name="quality" value="high">
<embed src="flash/header.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="744" height="292"></embed>
</object> </td>
<td width="10"><img src="images/spacer.gif"></td>
</tr>
</table>
</TD>
</TR>
<TR>
<TD WIDTH=763 HEIGHT=363 ALT="" valign="top">
<TABLE WIDTH=763 BORDER=0 CELLPADDING=0 CELLSPACING=0>
<TR>
<TD WIDTH=306 HEIGHT=363 ALT="" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="25"><img src="images/bot_menu.jpg" style="margin-left:35px;"></td>
</tr>
<tr>
<td><img src="images/last_minute.gif" width="167" height="38"><br>
<%
AntalCounter=1
sql_get_menupunkter = "Select * From katalog, varegruppe, ordre WHERE katalog.omraadeid = varegruppe.omraadeid and ordre.sommerhusid = katalog.id "&sqlwhere&" AND online=1 Order by katalog.husid "
Set res_get_menupunkter = Conn.Execute(sql_get_menupunkter)
Do While Not res_get_menupunkter.EoF
id = res_get_menupunkter("id")
husid = res_get_menupunkter("husid")
varetype = res_get_menupunkter("varetype")
adresse = res_get_menupunkter("adresse")
online = res_get_menupunkter("online")
omraade = res_get_menupunkter("varetype")
billede_1 = res_get_menupunkter("billede_1")
sovepladser = res_get_menupunkter("sovepladser")
strand = res_get_menupunkter("strand")
areal = res_get_menupunkter("areal")
prisa = res_get_menupunkter("prisa")
if AntalCounter = 2 then
AntalCounter=0
bg="#f1f1f1"
else
bg="#ffffff"
end if
%>
Er der en venlig sjæl der kunne hjælpe mig med det. Og jeg ved godt det er lørdag, så derfor er jeg da villige til at afgiv lidt ekstra point.
På forhånd tak :-)
