javascript

gnehk

<%
dim strad, stram, stray, strdd, strdm, strdy

strad=request.form("ad"
stram=request.form("am"
stray=request.form("ay"
strdd=request.form("dd"
strdm=request.form("dm"
strdy=request.form("dy"
Dim objRS
dim SQL
dim objConn
dim strconn
dim SumRoom
Dim FromDate
Dim ToDate
Dim RoomType
Dim Room
SumRoom = 0
FromDate = dateserial(stray,stram,strad)
ToDate = dateserial(strdy,strdm,strdd)
RoomType  = Request.Form("Roomtype"
Room = Request.Form("Room"
datenow= Date()
session.contents("FromDate" = FromDate
session.contents("ToDate" = ToDate
session.contents("RoomType" = Request.Form("Roomtype"
session.contents("Room" = Request.Form("Room"

if ((FromDate < ToDate) AND FromDate > Date())then
Set objConn=Server.CreateObject("ADODB.Connection"
set objRS=Server.CreateObject("ADODB.Recordset"
strconn="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("hotel.mdb"
objConn.open strconn

SQL = "SELECT  (NumRoom) AS TotalRoom FROM [INFONAZA] " & _
            "WHERE (( CheckIn >= #" & FromDate & "# AND CheckOut <= #" & ToDate & "#) OR " & _
            "(CheckIn >= #" & ToDate & "# AND CheckOut < #" & ToDate & "#) OR " & _
            "(CheckIn <= #" & FromDate & "# AND CheckOut > #" & FromDate & "#)) AND " & _
            "(RoomType='" & RoomType & "' )"
objRS.Open SQL,objConn,1,2

if not objRS.EOF then objRS.movefirst
Do while(not objRS.EOF)
     SumRoom = Room + objRS("TotalRoom"
     objRS.MoveNext
Loop

  if RoomType="Deluxe" then
   if SumRoom <20 then
    response.redirect("nazaconfirmation.asp"
   else
    response.redirect("nazafully.asp"

   end if
  else
   if SumRoom <20 then
    response.redirect("nazaconfirmation.asp"
   else
    response.redirect("nazafully.asp"

   end if
  end if
else

response.redirect("nazaerror.asp"

end if

%>

有哪位大大能帮小弟看看这个code有什么问题？我在做一个Hotel Booking的网站，这个code是check room availability。但是Room那里有问题，我只能选择一间房，如果我选择2到5间房就会显示fully book。 各位大大帮帮忙。

PvIce

SELECT  (NumRoom) AS TotalRoom FROM [INFONAZA]

是不是要放 count(NumRoom)?
我猜而已..

keonglah

原帖由 gnehk 于 9-10-2007 02:49 AM 发表
Date())then
Set objConn=Server.CreateObject("ADODB.Connection"
set objRS=Server.CreateObject("ADODB.Recordset"
strconn="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("hote ...

look left look right i also think this not jscript but asp