Dim obj
Dim c
Dim s
Dim u
Dim p
Dim ur
Dim Nu
Dim Np
Dim Nur

u = Request.Form("User")
p = Request.Form("Password")
ur = Request.Form("Dominio")
Nu = Request.Form("NUser")
Np = Request.Form("NPassword")
Nur = Request.Form("NDominio")

Set c = CreateObject("ADODB.Connection")
Set obj = Server.CreateObject("ADODB.RecordSet")

s = "driver={Microsoft Access Driver (*.mdb)};"
s = s & "dbq=" & Server.MapPath("../database/db1.mdb")

c.Open s


sql = "Update tblLogin "
sql = sql & "Where URL = '" & ur & "'"
sql = sql & " SET ("
sql = sql & "Login = '" & Nu & "',"
sql = sql & "PWD = '" & Np & "',"
sql = sql & "URL = '" & Nur & "') "

c.execute(SQL)

Set obj = Nothing
c.Close

non so come aggiornare una tabella
ho provato con questo script ma non ci siamo il messaggio di errore che mi restituisce è:


Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][Driver ODBC Microsoft Access] Errore di sintassi nell'istruzione UPDATE.

sql = "Update tblLogin Set Login='"&Nu&"',PWD='"&Np&"',URL='"&Nur&"' Where URL='"&ur

Occhio che se i campi sono numerici non occorre inserire i singoli apici........

ciao ciao





<font size=3><u>-¦»Rome Webmaster«¦-</u></font id=size3>