%@LANGUAGE="VBSCRIPT"%>
<%
if session("coachid")<>"" then
Dim rsCustomer
Dim rsCustomer_numRows
Set rsCustomer = Server.CreateObject("ADODB.Recordset")
rsCustomer.ActiveConnection = MM_dbConn_STRING
rsCustomer.Source = "SELECT * FROM coach WHERE coachid ="& session("coachid")
rsCustomer.CursorType = 0
rsCustomer.CursorLocation = 2
rsCustomer.LockType = 1
rsCustomer.Open()
rsCustomer_numRows = 0
else
mymessage = "You must login before entering the Coaches area. Click Here to login."
end if
myCoach = rsCustomer.fields.item("FirstName").value & " " & rsCustomer.fields.Item("Lastname")
myCoachEmail = rsCustomer.fields.item("CoachEmail").value
mybody = myCoach & " has Uploaded A New File To Your Website." & vbCRLf & vbCRLf &_
"Log in to Content Management to view the file: http://www.performancetiming.com/admin"
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "Performance Timing"
Mailer.FromAddress= "john@performancetiming.com"
Mailer.RemoteHost = "mail.performancetiming.com"
'Mailer.AddRecipient "John Burke", "john@performancetiming.com"
Mailer.AddRecipient "John Burke", "forer@krcsoftware.com"
Mailer.AddExtraHeader "X-MimeOLE:Produced performancetiming.com"
Mailer.Subject = "Performance Timing File Upload"
Mailer.BodyText = mybody
if Mailer.SendMail then
Response.Write ""
else
Response.Write "Mail send failure. Error was " & Mailer.Response
end if
set Mailer = Nothing
mybody = "Your file below has been successfully submitted to Performance Timing." & vbCRLf & vbCRLf &_
"To view your submission, go to: http://www.performancetiming.com/coaches/. Log in and select Manage Teams from the Menu." & vbCRLF & vbCRLF &_
"Thank you." & vbCRLF & vbCRLF &_
"John Burke" & vbCRLF & "Performance Timing, LLC"
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "Performance Timing"
Mailer.FromAddress= "john@performancetiming.com"
Mailer.RemoteHost = "mail.performancetiming.com"
Mailer.AddRecipient myCoachEmail, myCoachEmail
Mailer.AddExtraHeader "X-MimeOLE:Produced performancetiming.com"
Mailer.Subject = "Performance Timing Start List"
Mailer.BodyText = mybody
if Mailer.SendMail then
Response.Write ""
else
Response.Write "Mail send failure. Error was " & Mailer.Response
end if
set Mailer = Nothing
%>
<%
Dim Recordset2__MMColParam
Recordset2__MMColParam = "1"
If (Session("coachid") <> "") Then
Recordset2__MMColParam = Session("coachid")
End If
%>
<%
Dim Recordset2
Dim Recordset2_numRows
Set Recordset2 = Server.CreateObject("ADODB.Recordset")
Recordset2.ActiveConnection = MM_dbConn_STRING
Recordset2.Source = "SELECT * FROM coach WHERE coachid = " + Replace(Recordset2__MMColParam, "'", "''") + ""
Recordset2.CursorType = 0
Recordset2.CursorLocation = 2
Recordset2.LockType = 1
Recordset2.Open()
Recordset2_numRows = 0
%>
<%
Dim Repeat2__numRows
Dim Repeat2__index
Repeat2__numRows = -1
Repeat2__index = 0
Recordset2a_numRows = Recordset2a_numRows + Repeat2__numRows
%>
You are logged in as
<% = Recordset2.fields.item("firstname") %>
<%=Recordset2.fields.item("lastname")%> If this is not correct, please click here to log out. |
||||||
|
||||||