Hope this is what you meant lol.............
TeamName table
ID int(11)
TeamName varchar(50)
AICounter int(11)
League varchar(12)
Played int(11)
GF int(11)
GA int(11)
Points int(11)
Players Table
Name varchar(50)
Nationality varchar(50)
Age int(11)
Caps int(11)
Fitness int(11)
Position varchar(50)
Skill int(11)
Value double
TeamID int(11)
PlayerID int(11)
IsPlaying tinyint(1)
DefaultTeam tinyint(1)
IsPlayingPosition varchar(50)
DefaultPosition varchar(50)
DefaultFormation varchar(50)
TeamRating int(11)
UserName varchar(50)
Strip varchar(20)
TeamName varchar(50)
Listed tinyint(1)
Cards double
Injuries int(2)
Here is the ASP Page that posts the strTeamID
<%Response.Buffer=True%>
<!-- #include file="i_utils.asp" -->
<% check_security(4) %>
<%
dim privacy_section
dim features
do_search = request("do_search")
':: handle the default case(s) for each form (separate from action= parameter)
%>
<!-- #include file='i_header.asp' -->
<!-- #INCLUDE FILE = "ADOVBS.INC" -->
<%
Session.LCID = 2057
Session.Timeout = 60
strUserID = session("user_id")
Dim strUserName
Dim strTeamUser
Dim TeamID
Dim strRemoteIP
Dim objConn
Set objConn = Server.CreateObject ("ADODB.Connection")
DbPath = Server.MapPath("./Data/7223.mdb")
obJConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & DbPath & ";"
Dim RsUserName
Dim SqlRsUserName
SqlRsUserName = "Select * From Users Where user_id =" & strUserID
Set RsUserName = Server.CreateObject ("ADODB.RecordSet")
RsUserName.Open SqlRsUserName, objConn, adOpenDynamic, adLockOptimistic
While Not RsUserName.EOF
strUserName = RsUserName("user_name")
RsUserName.MoveNext
Wend
RsUserName.Close
Set RsUserName = Nothing
objConn.Close
Set objConn = Nothing
strTeamUser = "'" & strUserName & "'"
Dim objPlayerConn
Set objPlayerConn = Server.CreateObject ("ADODB.Connection")
obJPlayerConn.Open "driver={mysql}; database=football; server=localhost; uid=username; pwd=password; option=16386;"
' Dim objPlayerConn
' Set objPlayerConn = Server.CreateObject ("ADODB.Connection")
' DbPath = Server.MapPath("Football.mdb")
' obJPlayerConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & DbPath & ";"
Dim RsTeamID
Dim SqlTeamID
SqlTeamID = "Select * From Players Where UserName =" & strTeamUser
Set RsTeamID = Server.CreateObject ("ADODB.RecordSet")
RsTeamID.Open SqlTeamID, objPlayerConn, adOpenDynamic, adLockOptimistic
If Not RsTeamID.EOF Then
TeamID = RsTeamID("TeamID")
Session("TeamID") = TeamID
Session("TeamName") = RsTeamID("TeamName")
Else
Response.Redirect "NewUser.asp"
End If
RsTeamID.Close
Set RsTeamID = Nothing
' Dim RsDeticker
' Dim SqlRsDeticker
' Set RsDeticker = Server.CreateObject ("ADODB.RecordSet")
' SqlRsDeticker = "Select * From Players Where DefaultTeam = False And ' TeamID =" & TeamID
' RsDeticker.Open SqlRsDeticker, objPlayerConn, adOpenDynamic, adLockOptimistic
' While Not RsDeticker.EOF
' RsDeticker("IsPlaying").Value = 0
' RsDeticker.Update
' RsDeticker.MoveNext
' Wend
' RsDeticker.Close
' Set RsDeticker = Nothing
' Dim RsDefTeamPicker
' Dim SqlRsDefTeamPicker
' Set RsDefTeamPicker = Server.CreateObject("ADODB.RecordSet")
' SqlRsDefTeamPicker = "Select * From Players Where DefaultTeam = True And TeamID =" & TeamID
' RsDefTeamPicker.CursorLocation = adUseClient
' RsDefTeamPicker.Open SqlRsDefTeamPicker, objPlayerConn, adOpenDynamic, adLockOptimistic
' While Not RsDefTeamPicker.EOF
' RsDefTeamPicker("IsPlaying").Value = 1
' RsDefTeamPicker.Update
' RsDefTeamPicker.MoveNext
' Wend
' If RsDefTeamPicker.RecordCount = 0 Then
' Dim RsRatingCrusher
' Dim SqlRsRatingCrusher
' Set RsRatingCrusher = Server.CreateObject("ADODB.RecordSet")
' SqlRsRatingCrusher = "Select * From Players Where TeamID =" & TeamID
' RsRatingCrusher.Open SqlRsRatingCrusher, adOpenDynamic, adLockOptimistic
' RsRatingCrusher.MoveFirst
' RsRatingCrusher("TeamRating").Value = 0
' While Not RsRatingCrusher.EOF
' RsRatingCrusher("IsPlaying").Value = 0
' RsRatingCrusher.Update
' RsRatingCrusher.MoveNext
' Wend
' End If
Function RemoteIPLogger()
Session.LCID = 2057
Dim strTime
Dim strHour
Dim strMin
Dim strSec
Dim strDate
strHour = Hour(Now)
strHour = strHour + 8
strMin = Minute(Now)
strSec = Second(Now)
strDate = Date
If strHour > 24 Then
strHour = strHour - 24
strDate = strDate + 1
ElseIf strHour = 24 Then
strHour = "00"
End If
strTime = strHour & ":" & strMin & ":" & strSec
Dim RsRemoteIPLog
Dim SqlRsRemoteIPLog
Set RsRemoteIP = Server.CreateObject("ADODB.RecordSet")
SqlRsRemoteIP = "Select * From IP"
RsRemoteIP.Open SqlRsRemoteIP, objPlayerConn, adOpenDynamic, adLockOptimistic
strRemoteIP = Request.ServerVariables("REMOTE_ADDR")
Session("RemoteIP") = strRemoteIP
RsRemoteIP.AddNew
RsRemoteIP("UserID").Value = strUserID
RsRemoteIP("UserName").Value = strTeamUser
RsRemoteIP("IP").Value = strRemoteIP
RsRemoteIP("Date").Value = strDate
RsRemoteIP("Time").Value = strTime
RsRemoteIP.Update
RsRemoteIP.Close
Set RsRemoteIP = Nothing
End Function
Call RemoteIPLogger()
' RsDefTeamPicker.Close
' Set RsDefTeamPicker = Nothing
' Set RsRatingCrusher = Nothing
objPlayerConn.Close
Set objPlayerConn = Nothing
%>
<link rel="stylesheet" href="default.css">
<script lang="javascript">
<!--
function changeMenu()
{
window.parent.left.location.replace('gmleft.asp');
window.parent.bottom.location.replace('gmBot.asp');
}
//-->
</script>
<body topmargin="0" bgcolor="#FFFFFF" onLoad="changeMenu()"><TR>
<TD style="{padding:6px;}"> <%
display_errs
display_msg
%>
<tr>
<td >
<% if request("section") = "privacy" then %><!-- #include file='i_privacy.asp' --><% end if %>
</td>
</tr>
<TABLE style="{width:90%;}">
<TR>
<TD style="{padding:6px;}">
<table cellspacing=1 border=0 bgcolor="#FFFFFF">
<tr>
<td style="{padding:6px;color:#222222}" bgcolor="#FFFFFF"> <% Response.Write "<Center>" & "Welcome to Goalrush " & "<b>" & Session("TeamName") & "</b>" %>
</td>
</tr><% Response.Write "<Center>" & "TeamID is " & "<b>" & Session("TeamID") & "</b>" %>
<tr>
<td colspan=2 align=center><font face="Arial" size="5"><b>Test Page
For GM's Level 4 access.</b></font></td>
</tr>
<tr>
<td colspan=2 align=center><font face="Arial" size="2" color="#666666">You
are logged in from:</font> <% Response.Write "IP Address: " & Session("RemoteIP") %></td>
</tr></center>
<tr>
<td>
<p align=right><A href="http://www.aspapp.com"> </a>
</td>
</tr>
</table>
</TD>
</TR>
</TABLE>
<!-- #include file=i_footer.asp -->
<%
':: assure that any db resources are freed
on error resume next
rs.Close
set rs = NOTHING
cn.Close
set cn = NOTHING
user_cn.Close
set user_cn = NOTHING
on error goto 0
%>
And the php page is posted as the first message in this thead.