Innanzi tutto CIAO A TUTTI
Questa è la prima volta in questo forum
Un piccolo problema:
Perché il controllo delle date (***) non funziona?
Quando nel form clicco su INVIA mi carica correttamente questa pagina ma i valori delle date vengono passati anche se sono errati (l'inserimento è giusto se datacollaudo => contrdata)
Anzi, per essere precisi...alcune volte funziona ed altre no.
Doc'è l'errore?
<%@LANGUAGE="VBSCRIPT" %>
<%
contrnr = Request("requiredcontrnr")
contrdata = Request.Form("requiredcontrdata")
materiale = Request("requiredmateriale")
numero = Request("quantita")
fornitore = Request("fornitore")
datacollaudo = Request("requireddatacollaudo")
durata = Request("requiredgaranzdurata")
assistenza = Request("ditta")
referente = Request("referente")
tel = Request("telefono")
fax = Request("fax")
mail = Request("mail")
note = Request("note")
%>
<html>
....... omesso .......
c'è una tabella che riepiloga i campi inviati tramite form
....... omesso .......
''(***) controlla se datacollaudo è posteriore a datacontratto''
<% if datacollaudo <= contrdata then %>
ATTENZIONE!! Data del collaudo ERRATA
o ANTERIORE alla data del contratto!
<a href="javascript:history.back()"> Clicca qui e correggi</a><br> </p>
<% else
'' setta ed apre connessione database
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "garanzie", "colli1", "znarag"
'' istruzioni per evitare record doppi
sql = "SELECT contrnr FROM elementi WHERE contrnr = '"&contrnr&"'"
set rs = cn.execute(sql)
if not rs.eof then %>
Record già esistente <a href="javascript:history.back()">torna e correggi</a>
' chiusura dell'rs appositamente creato
<%
rs.close
set rs = nothing %>
' aggiunta al database
<% else
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM elementi"
rs.Open sql, cn , 3,3
rs.addnew
rs(1) = contrnr
rs(2) = contrdata
rs(3) = materiale
rs(4) = numero
rs(5) = fornitore
rs(6) = datacollaudo
rs(7) = durata
rs(8) = assistenza
rs(9) = referente
rs(10) = tel
rs(11) = fax
rs(12) = mail
rs(13) = note
rs.update
%>
<%
rs.Close
set rs = Nothing
cn.Close
set cn = Nothing
%>
<% end if %>
<% end if %>
....... omesso .......
Ciao
