Nella prima SQL se hai un campo che si chiama mx_valore non puoi fare una aggregazione chiamandola con il nome del campo... mettici un po' di fantasia.
Esempio:
codice:
sql = "SELECT MAX(max_valore) AS valore_massimo FROM valori"
Rifaccio tutto:
pagina form
codice:
<%
ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("_db/valori.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
Conn.open ConnectString
sql = "SELECT MAX(max_valore) AS valore_massimo FROM valori"
Set rsLinks = Server.CreateObject("ADODB.Recordset")
rsLinks.Open sql, conn,3,3
%>
<form action="process_valori.asp" method="post" name="valori">
<%=rsLinks("valore_massimo")%>
<input name="valore_digitato" type="text" />
<input name="valore_massimo" value="<%=rsLinks("valore_massimo")%>" type="hidden" />
<input name="button" type="submit" value="ok">
</form>
...
...
Seconda pagina, ti basta il recupero dei due valori evitandoti una select inutile. Se quaello digitato è maggiore di quello passato in hidden (il valore_massimo) allora fai la INSERT INTO:
codice:
<%
valore_massimo = trim(request.Form("valore_massimo"))
valore_digitato = trim(request.Form("valore_digitato"))
if valore_digitato > valore_massimo then
ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("_db/offerte.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
Conn.open ConnectString
sql = "INSERT INTO valori (max_valore) VALUES ("& valore_digitato &")"
conn.Execute(sql)
set OBJdbConnection=Nothing
response.redirect("index.asp")
else
response.Write("valore inferiore a quello iniziale")
end if
%>
Roby