tenta isso e depois me descreva o erro: <%
Dim sqlCons, varDta, rsCons, rsHoje
Dim sqlIns, rsIns, varHrs
Dim ano, mes, dia
Dim rsCad, sqlCad
varDta = request.form("campo")
varHrs = request.form("horario")
ano=year(varDta)
mes=month(varDta)
dia=day(varDta)
sqlIns = " INSERT INTO dates (datta, hora) "
sqlIns = sqlIns & " VALUES ('" & vardta & "', '"& varHrs &"') "
Session.LCID=1033
sqlCons = " SELECT * FROM dates WHERE datta = #"& dateserial(ano,mes,dia) &"# AND hora = '"& varHrs &"'"
sqlCad = " SELECT * FROM dates ORDER BY datta "
call abre_conexao
set rsHoje = Conexao.execute(sqlCons)
Session.LCID=1046
%>
<%
if not rsHoje.eof then
%>
Esta data e horário já estão reservados.<br>
Tente uma data ou horário diferente.
<%
else
set rsIns = Conexao.execute(sqlIns)
set rsCad = Conexao.execute(sqlCad)
response.Write("Seu horário está marcado.")
%>
Datas no banco:<br>
<table width="50%" border="0" cellspacing="0" cellpadding="0"> <tr>
<% while not rsCad.eof %>
<td>Data <%= rsCad("id")%></td>
<td><%= rsCad("datta")%></td>
<td align="right"><%= rsCad("hora")%>:00</td>
</tr>
<% rsCad.MoveNext %>
<%
Wend
end if
Set rsIns = Nothing
Set rsHoje = Nothing
Set rsCad = Nothing
%>