<%
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
%>