<!-- #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
on error Resume Next
Set my_Conn = Server.CreateObject("ADODB.Connection")
my_Conn.Errors.Clear
my_Conn.Open strConnString
If my_conn.Errors.Count <> 0 Then
For counter = 0 To my_conn.Errors.Count -1
ConnErrorNumber =
my_conn.Errors(counter).Number
ConnErrorDesc =
my_conn.Errors(counter).Description
If ConnErrorNumber <> 0 Then
strtemp =
"<p>" & ConnErrorNumber & " : " & ConnErrorDesc & "</p>"
End If
Next
my_conn.Errors.Clear
Response.Write strtemp
End If
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='GoodName' 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>