<% On Error Resume Next If Session("email") = "" Then Response.Redirect("CheckUser.php") Dim DSN, strSQL, objDBConn, strErrorMessage, isModify Dim email, companyName, title, firstName, lastName, position, phoneCountry, phoneArea, phone, phoneExt, country, OPC, password email = Session("email") DSN ="DSN=USERS_List;uid=hueyan;pwd=1234" Set objDBConn = Server.CreateObject("ADODB.Connection") objDBConn.Open DSN ' 開啟資料來源 If Request.ServerVariables("REQUEST_METHOD") = "POST" Then strSQL = "UPDATE members SET " strSQL = strSQL & " companyName='" & Request.Form("companyName") & "'" strSQL = strSQL & ",title='" & Request.Form("title") & "'" strSQL = strSQL & ",firstName='" & Request.Form("firstName") & "'" strSQL = strSQL & ",lastName='" & Request.Form("lastName") & "'" strSQL = strSQL & ",position='" & Request.Form("position") & "'" strSQL = strSQL & ",phoneCountry='" & Request.Form("phoneCountry") & "'" strSQL = strSQL & ",phoneArea='" & Request.Form("phoneArea") & "'" strSQL = strSQL & ",phone='" & Request.Form("phone") & "'" strSQL = strSQL & ",phoneExt='" & Request.Form("phoneExt") & "'" strSQL = strSQL & ",password='" & Request.Form("password") & "'" strSQL = strSQL & ",country='" & Request.Form("country") & "'" strSQL = strSQL & " WHERE email='" & Session("email") & "'" On Error Resume Next Set objRS = objDBconn.Execute(strSQL) If Err.Number = 0 Then isModify = True Else isModify = False End If On Error Goto 0 End If strSQL = "SELECT * FROM members WHERE email='" & email & "'" Set objRS = objDBconn.Execute(strSQL) If Not objRS.EOF Then companyName = objRS("companyName") title = objRS("title") firstName = objRS("firstName") lastName = objRS("lastName") position = objRS("position") phoneCountry = objRS("phoneCountry") phoneArea = objRS("phoneArea") phone = objRS("phone") phoneExt = objRS("phoneExt") country = objRS("country") OPC = objRS("OPC") password = objRS("password") Set objRS = Nothing End If Set objDBConn = Nothing %> www.opctechs.com - My Account
 


My Account
Email address: <%=Session("email")%>
Password:
Verify password:
Company name:
Title: checked<%End If%>> Dr. checked<%End If%>> Prof. checked<%End If%>> Miss checked<%End If%>> Mr. checked<%End If%>> Mrs. checked<%End If%>> Ms
First name:
Last name:
Position:
Phone (counrty code/area code/phone no./Ext): - - Ext
Country: