<%@language="VBScript"%>
<%option explicit%>
<%Response.buffer=true%>
<%Response.expires=0%>
<%
Dim oConn
Dim rs
Dim query
Dim rs1
Dim query1
Dim rs2
Dim query2
Dim rs3
Dim query3
Dim F_RECIPE
F_RECIPE=Request.queryString("recipe")
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=\sites\Single32\click2cook\database\clicktocook.mdb")
query="select * from master order by mno asc"
set rs=oConn.execute(query)
query1="select * from recipe where rno="&F_RECIPE&""
set rs1=oConn.execute(query1)
query2="select * from rating where rno="&F_RECIPE&""
set rs2=oConn.execute(query2)
query3="select * from recipe where special=1"
set rs3=oConn.execute(query3)
%>
Click2Cook - Indian Cuisine Made Easy
