<!-- #include file="includes/inc_ADOVBS.asp" -->
<html>
<head>
<title>Test</title>
</head>
<body>
<%
Dim strDBPath, strConnString, my_Conn, rs
strDBPath = Server.MapPath("******/******.mdb")
strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath
set my_Conn = Server.CreateObject("ADODB.Connection")
my_Conn.Open strConnString
Set rs = my_Conn.Execute ("SELECT * FROM PORTAL_MEMBERS WHERE MEMBER_ID=1;")
OrigName = rs.fields("m_username")
response.write "<p>Original Username = " & OrigName & "</p>"
Set rs = my_Conn.Execute ("UPDATE PORTAL_MEMBERS SET m_username='BadName' WHERE
MEMBER_ID=1;")
Set rs = my_Conn.Execute ("SELECT * FROM PORTAL_MEMBERS WHERE MEMBER_ID=1;")
response.write "<p>New Username = " & rs.fields("m_username")& "</p>"
Set rs = my_Conn.Execute ("UPDATE PORTAL_MEMBERS SET m_username='" & OrigName &
"' WHERE MEMBER_ID=1;")
Set rs = my_Conn.Execute ("SELECT * FROM PORTAL_MEMBERS WHERE MEMBER_ID=1;")
response.write "<p>Reset Username = " & rs.fields("m_username")& "</p>"
set my_Conn = nothing
%>
</body>
</html>