Avatar billede uneerup Nybegynder
15. januar 2005 - 18:27 Der er 1 kommentar og
1 løsning

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 :-)
16. januar 2005 - 00:25 #1
jeg tror måske, at du vil få flere svar, hvis du flyttede spørgsmålet til ASP-kategorien. I Access-kategorien besvaret primært spm i Access-PROGRAMMET.

mvh
Thomas
Avatar billede uneerup Nybegynder
04. juli 2005 - 20:00 #2
h
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
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

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