<% If IsObject(Session("http://www.fortunecity.com/underword/3d/1061/BloodsongDB/bloodsong.mdb_conn")) Then Set conn = Session("http://www.fortunecity.com/underword/3d/1061/BloodsongDB/bloodsong.mdb_conn") Else Set conn = Server.CreateObject("ADODB.Connection") conn.open "http://www.fortunecity.com/underword/3d/1061/BloodsongDB/bloodsong.mdb","","" Set Session("http://www.fortunecity.com/underword/3d/1061/BloodsongDB/bloodsong.mdb_conn") = conn End If %> <% If IsObject(Session("Form_PlayerInfo_rs")) Then Set rs = Session("Form_PlayerInfo_rs") Else sql = "SELECT * FROM [PlayerInfo]" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 3, 3 If rs.eof Then rs.AddNew End If Set Session("Form_PlayerInfo_rs") = rs End If %> <% If cstr(Request.QueryString("PersWebAdd")) <> "" Then rs.Fields("PersWebAdd").Value = Request.QueryString("PersWebAdd") End If If cstr(Request.QueryString("PlayerDesc")) <> "" Then rs.Fields("PlayerDesc").Value = Request.QueryString("PlayerDesc") End If If cstr(Request.QueryString("ICQ#")) <> "" Then rs.Fields("ICQ#").Value = Request.QueryString("ICQ#") End If If cstr(Request.QueryString("Email")) <> "" Then rs.Fields("Email").Value = Request.QueryString("Email") End If If cstr(Request.QueryString("Lastname")) <> "" Then rs.Fields("Lastname").Value = Request.QueryString("Lastname") End If If cstr(Request.QueryString("Firstname")) <> "" Then rs.Fields("Firstname").Value = Request.QueryString("Firstname") End If If cstr(Request.QueryString("PlayerID")) <> "" Then rs.Fields("PlayerID").Value = Request.QueryString("PlayerID") End If tempVar = Request.QueryString("nav_btn") On Error Resume Next If cstr(tempVar)="nav_btn_MoveFirstRecord" Then rs.MoveFirst End If If cstr(tempVar)="nav_btn_MovePrevRecord" Then rs.MovePrevious If rs.bof Then rs.MoveNext End If End If If cstr(tempVar)="nav_btn_MoveNextRecord" Then rs.MoveNext If rs.eof Then rs.MovePrevious End If End If If cstr(tempVar)="nav_btn_MoveLastRecord" Then rs.MoveLast End If If cstr(tempVar)="nav_btn_MoveAddRecord" Then rs.AddNew End If If cstr(tempVar)="nav_btn_MoveCommitRecord" Then rs.Update rs.Requery End If If cstr(tempVar)="nav_btn_MoveCancelUpdate" Then rs.CancelUpdate rs.Resync End If If cstr(tempVar)="nav_btn_MoveDeleteRecord" Then rs.Delete rs.MoveNext If rs.eof Then rs.MovePrevious If rs.bof Then rs.AddNew End If End If End If On Error Goto 0 %>