'**************************************
    ' Name: Universal Database Updater
    ' Description:Why I wrote thise code:
    While working on a project, I realized that I was writing too many update statements. Not that it's hard, but hand coding update statements can feel like pulling teeth if you are working With large applications where you Do a lot of updating. So why not create a dynamic update statement that saves time, and effort, and only needs to be written once? Okay, I admit it, I can be lazy sometimes. But this one is actually useful.
    This code takes values from a querystring and uses them To update two fields within a database record. It can be used For any table in any access database.
    ' By: Sam Moses
    '
    ' Inputs:'The only hard coded value is t
    '     he database path. 
    'This can be changed.
    'Query String Values:
    'table: Your table name
    'field1: Your first field name
    'field1_value: the value you want to put
    '     into your field
    'field2: Your second field name
    'field2_value: The value you want to put
    '     into your second field.
    'where_value: the name of your primary k
    '     ey field
    'primarykey: the value in your primary k
    '     ey field
    'diagnostic: if diagnostic=test then it 
    '     will tell 
    'you what has been updated
    'reset: If you are not using it in diagn
    '     ostic 
    'mode, your reset should be the URL you 
    '     want to 
    'redirect to.
    '
    ' Assumes:I'm guessing most intermediate
    '     programmers will be able to read this. I
    '     t could be a big time saver if used prop
    '     erly.
    '
    ' Side Effects:'Jumping for joy.
    '
    'This code is copyrighted and has    ' limited warranties.Please see http://w
    '     ww.Planet-Source-Code.com/xq/ASP/txtCode
    '     Id.7269/lngWId.4/qx/vb/scripts/ShowCode.
    '     htm    'for details.    '**************************************
    
    <%
    DataConnection = "Driver={Microsoft Access Driver (*.mdb)};Dbq=c:\database\data.mdb;"
    if request.querystring("state")="update" Then
    Set Command1 = Server.CreateObject("ADODB.Command")
    Command1.ActiveConnection = DataConnection
    Command1.CommandText = "UPDATE "&request.querystring;("table")&" Set "&request.querystring;("field1")&"='"&request.querystring;("field1_value")&"',"&request.querystring;("field2")&"='"&request.querystring;("field2_value")&"' WHERE "&request.querystring;("where_value")&"="&request.querystring;("primarykey")&""
    Command1.CommandType = 1
    Command1.CommandTimeout = 0
    Command1.Prepared = True
    Command1.Execute()
    if request.querystring("diagnostic") = "test" Then 
    Response.Write "the table <B>"&request.querystring;("table")&" </B> has had the following values updated<BR>"
    Response.Write "<B>"&request.querystring;("field1")&" </B>has been updated To use <B>"&request.querystring;("field1_value")&"</B> as it's value <BR>"
    Response.Write "<B>"&request.querystring;("field2")&" </B> has been updated To use <B>"&request.querystring;("field2_value")&" </B>as it's value <BR>"
    Response.Write "Your primary key is <B>"&request.querystring;("where_value")&" </B> and it has updated where the value of that key is Set To <B>"&request.querystring;("primarykey")&"</B><P>"
    Response.Write "This update is based on the values In the querystring. To change these values, or update a different Set of fields or tables, Then just change the values in the address bar above."
    Response.Write "</P><P><B>Universal Querystring Updater</B><BR>By <A href='http://sammoses.com'>Sam Moses</A> (c) 2002</P>"
    End if
    if request.querystring("diagnostic")="" Then response.redirect "" &request.querystring;("reset")&""
    End if
    %>