Late Deals
<%
dim conn, ORS, SQL
intC = 0
set conn = server.createobject("ADODB.connection")
set ORS = server.createobject("ADODB.recordset")
with conn
.connectionstring = "DSN=vila_new;uid=vila;pwd=vila"
'.ConnectionString = "Driver={SQL Server};Server=(local);Database=vila_new;Uid=vila;Pwd=vila;"
.connectiontimeout = 30
.open
end with
SQL = "SP_ALL 2"
ORS.open SQL, conn, 0, 1
%>
<%if ORS.bof = true and ORS.eof = true then%>
Sorry
there are currenty no late availabilities
<%else%>
<%end if%>