Relação com banco de dados

[simas 0]

;) Olá, estou com dificuldade em criar um cadastro em que o usuário deve escolher as horas e datas.

Estes dados serão enviados para um banco de dados. A conexão com o banco de dados está tudo bem. O problema é que eu quero que a data em combinação com as horas não se repitam.

Exemplo: O usuário Paulo cadastrou com as horas 08:00 e data 20/05/03. O usuário Mario ao cadastrar com esta mesma hora e data é enviado para uma página que avisa que estes dados já existem (data existe.asp).

Com o código usado abaixo caso o usuário Mario cadastre com a data diferente mas com o horário igual vai para a página que indica que já existe usuário com este dado (data existe.asp).

Porém o que eu quero que isso só aconteça se existir a hora e a data igual e não apenas um campo igual. Assim o usuário Mario poderia cadastrar horas 08:00 e data 21/05/03.

Este código foi feito no dreamweaver mx com a extensão Check New Elements. Com esta extensão qualquer campo que repita horas ou data é enviada para a página que indica dados já existentes(data existe.asp). Como eu posso mudar este código para que isso aconteça apenas quando ambos os dados já tiverem cadastrados.

 

Para facilitar o entendimento do código abaixo datasehoras é nome do banco de dados.

data é um campo do banco de dados e horas é outro campo do banco de dados

 

Agradecido pela informção.

 

Código

<%

' *** Check New Elements

FX_flag="MM_insert"

FX_rs = "" ' used for identification

FX_found = false

If (CStr(Request(FX_flag)) <> "") Then

FX_dupKeyRedirect="data existe.asp"

FX_rsKeyConnection=MM_datas_STRING

FX_dupKeyValue = CStr(Request.Form("data"))

FX_dupKeySQL="SELECT data FROM datasehoras WHERE data = '" & FX_dupKeyValue & "'"

FX_adodbRecordset="ADODB.Recordset"

set FX_rsKey=Server.CreateObject(FX_adodbRecordset)

FX_rsKey.ActiveConnection=FX_rsKeyConnection

FX_rsKey.Source=FX_dupKeySQL

FX_rsKey.CursorType=0

FX_rsKey.CursorLocation=2

FX_rsKey.LockType=3

FX_rsKey.Open

FX_dupKeyValue2 = CStr(Request.Form("horas"))

FX_dupKeySQL2="SELECT horas FROM datasehoras WHERE horas = '" & FX_dupKeyValue2 & "'"

set FX_rsKey2=Server.CreateObject(FX_adodbRecordset)

FX_rsKey2.ActiveConnection=FX_rsKeyConnection

FX_rsKey2.Source=FX_dupKeySQL2

FX_rsKey2.CursorType=0

FX_rsKey2.CursorLocation=2

FX_rsKey2.LockType=3

FX_rsKey2.Open

If ((Not FX_rsKey.EOF Or Not FX_rsKey.BOF)) Then

' this value was found - can not execute action

FX_found = true

FX_dupValue = "data (" & FX_dupKeyValue & ") "

Else

If ((Not FX_rsKey2.EOF Or Not FX_rsKey2.BOF)) Then

' the second value was found - can not execute action

FX_found = true

FX_dupValue = "horas (" & FX_dupKeyValue2 & ") "

End If

End If

if(FX_found) Then

FX_dupValue = FX_dupValue & "already exists!"

FX_qsChar = "?"

If (InStr(1,FX_dupKeyRedirect,"?") >= 1) Then FX_qsChar = "&"

FX_dupKeyRedirect = FX_dupKeyRedirect & FX_qsChar & "FX_ReqValue=" & Server.URLEncode(FX_dupValue)

Response.Redirect(FX_dupKeyRedirect)

End If

FX_rsKey.Close

FX_rsKey2.Close

End If

%>

[Nyan 0]

Tenta isso.

 

If ((Not FX_rsKey.EOF Or Not FX_rsKey.BOF)) AND ((Not FX_rsKey2.EOF Or Not FX_rsKey2.BOF)) Then     FX_found = true    FX_dupValue = "data (" & FX_dupKeyValue & ") "    FX_dupValue2 = "horas (" & FX_dupKeyValue2 & ") "End If

 

Abraços,

Nyan