Umbrella Corp

Olá galera estou com uma duvida, seguinte
preciso que meu codigo verifique o mes se for iqual ao mes 2 e 3 me avise e se for iqual ao mes 7 e 8 me avise tbm...
fiz esse codigo, funciono, mas acho q da pra melhorar.

<%
Dim data
data = datepart("m", Date())
if (data = 1 or data = 2 or data = 7 or data = 8) then
response.Write("Me aviso")
end if
%>

fico estranho, é assim mesmo, ou tem como melhorar..
os mes são fixo mesmo, sera um sistema de vacina para animais, e obrigatoriamente eles precisam ser vacinados 2 vez no e tenhos 2 mes para fazer isso ano..

Galera andei procurando e até achei bastantei coisas relacionadas com o meu problema, testei varias delas mas não funciono...
1] tem uma pagina onde tem o formulário (cadastro_animais.asp)

2] a pagina que recebe esses valores e grava (processa_cad_animais.asp)

Problema: quero verificar os valores digitados e se tiver algo errado, que volte a primeira pagina e mostre quais os campos obrigatório não foram preenchidos.


A pagina que recebe os valores esta asssim...processa_cad_animais.asp
A a pagina volta para (compra_animais.asp) mas não é o suficiente, preciso saber exatamente qual o campo esta erado.

fornecedor = Request.Form("fornecedor")
nome = Request.Form("nome")
sexo = Request.Form("sexo")
datanc = Request.Form("datanc")
nomemae = Request.Form("nomemae")
nomepai = Request.Form("nomepai")
valortransporte = Request.Form("valortransporte")
valorpago = Request.Form("valorpago")
raca = Request.Form("raca")
cor = Request.Form("cor")
estato = 1
obs = Request.Form("obs")
idfor = rsid.Fields("idfor") + 1

if fornecedor = "" then
response.redirect("compra_animais.asp")
end if
if nome = "" then
response.redirect("compra_animais.asp")
end if
if sexo = "" then
response.redirect("compra_animais.asp")
end if
if datanc = "" then
response.redirect("compra_animais.asp")
end if
if nomemae = "" then
response.redirect("compra_animais.asp")
end if
if nomepai = "" then
response.redirect("compra_animais.asp")
end if
if valorpago = "" then
response.redirect("compra_animais.asp")
end if
if raca = "" then
response.redirect("compra_animais.asp")
end if
if cor = "" then
response.redirect("compra_animais.asp")
end if


Podem verificar que apenas os campos que faço a verificação são os obrigatorios...
alguem sabe uma forma melhor de fazer esse processo ? ou uma solução ?
obrigado desde ja a quem responder.

olá pessoal, seguinte fiz uma consulta no banco Access SELECT compra.produtor, compra.data, compra.valor, fornecedor.nome, fornecedor.telefone
FROM fornecedor INNER JOIN compra ON compra.id_fornecedor=fornecedor.id_fornecedor
WHERE fornecedor.id_fornecedor='1'; que funcionou perfeitamente no access, mas na hora de exibir essa informções na pagina da esse erro

Microsoft VBScript compilation error '800a0409'

Unterminated string constant

/site/sitio/teste.asp, line 19

sql = "SELECT compra.produtor, compra.data, compra.valor, fornecedor.nome, fornecedor.telefone
----------------------------------------------------------------------------------------------^


e preciso so exibir as info na pagina que esta assim

<%
Dim adoCon, strCon, rsInfo, rsTotal, sql
Dim caminho_banco

'Definindo caminho do banco
caminho_banco = Server.MapPath("dados/dados.mdb")

'Definindo string de conexão
strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & caminho_banco

'Criando objeto
Set adoCon = Server.CreateObject("ADODB.Connection")

'Abrindo conexão
adoCon.Open strCon


sql = "SELECT compra.produtor, compra.data, compra.valor, fornecedor.nome, fornecedor.telefone
FROM fornecedor INNER JOIN compra ON compra.id_fornecedor=fornecedor.id_fornecedor
WHERE fornecedor.id_fornecedor='1'"
Set rsfor = adoCon.Execute(sql)

response.write(produtor)
response.write(data)
response.write(valor)
response.write(nome)
response.write(telefone)
%>


onde esta o erro ?? alguem pode me ajudar ?