Return to Cup Home
What if I don't play softball, can I still travel on the Cup Trip?
We are allowing friends & non-family of Cup Athletes, as well as past Cup trip members, softball fans, and anyone who wishes to go on this adventure and travel with us (anyone under 18 years of age must be accompanied by an Adult)!
Why Now? Well, we had quite a few past Cup parents ask if they could travel again with us because they enjoyed the trip so much! In fact, they still have a desire to watch some games, but plan on spending the majority of their time trekking across the Netherlands, Belgium, France, and even England. So, if this sounds like you, and you have a great attitude along with social skills please contact us by email so we can get you onboard!
Please fill this form out for information on Cup 2013, & 2014
<%
if(Request.Form("txtSubmit")="Submit") then
'Dim oExcelApp 'as excel.Application
''Dim oWs 'as excel.Worksheet
'Dim oWb 'as excel.Workbook
'dim ExcelSheet.Application 'As Excel.Worksheet
Dim FileName 'as String
Dim chkexcel
Dim FullName,Email
FullName = Request.Form("txtName")
FullName = Replace(FullName,",","")
Email = Request.Form("txtEmail")
'Filename = Server.MapPath("tmp/FormDetails.xls")
Filename = Server.MapPath("QueenofDiamonds/cup/" & FullName & "(" & Email & ")" & ".xls")
'check if file already exists then delete it to create a new file
set fso=CreateObject("Scripting.FileSystemObject")
'If fso.FileExists(Filename) Then
' fso.DeleteFile(Filename)
'End If
'If Not fso.FileExists(Filename) Then
chkexcel = False
'create new excel application
Set act = fso.CreateTextFile(Filename, true)
'Set ExcelSheet = CreateObject("Excel.Sheet")
'ExcelSheet.Application.Range("A1").Value = Request.Form("txtName")
'ExcelSheet.SaveAs Filename
'ExcelSheet.Application.Quit
'Set ExcelSheet = Nothing
Generate_Sheet1()
automail(Filename)
Response.Redirect("cuptripthankyou1.html")
'Response.Write("Mail send successfuly")
'end if
end if
%>
<%
sub Generate_Sheet1()
' write all of the user input to the text (xls) document
act.WriteLine ""
act.WriteLine ""
act.WriteLine " "
act.WriteLine ""
act.WriteLine ""
act.WriteLine ""
act.WriteLine ""
act.WriteLine "| "
act.WriteLine "Full Name"
act.WriteLine " | "
act.WriteLine ""
act.WriteLine "Graduation Year"
act.WriteLine " | "
act.WriteLine ""
act.WriteLine "Email"
act.WriteLine " | "
act.WriteLine ""
act.WriteLine "Parents Email"
act.WriteLine " | "
act.WriteLine ""
act.WriteLine "Positions"
act.WriteLine " | "
act.WriteLine ""
act.WriteLine "State"
act.WriteLine " | "
act.WriteLine ""
act.WriteLine "Reference Name"
act.WriteLine " | "
act.WriteLine ""
act.WriteLine "Reference Email"
act.WriteLine " | "
act.WriteLine ""
act.WriteLine "Address"
act.WriteLine " | "
act.WriteLine ""
act.WriteLine "Home Phone"
act.WriteLine " | "
act.WriteLine ""
act.WriteLine "Cell Phone"
act.WriteLine " | "
act.WriteLine ""
act.WriteLine "Summer Team"
act.WriteLine " | "
act.WriteLine "
"
act.WriteLine ""
act.WriteLine "| "
act.WriteLine Request.Form("txtName")
act.WriteLine " | "
act.WriteLine ""
act.WriteLine Request.Form("txtGraduation")
act.WriteLine " | "
act.WriteLine ""
act.WriteLine Request.Form("txtEmail")
act.WriteLine " | "
act.WriteLine ""
act.WriteLine Request.Form("txtParentsEmail")
act.WriteLine " | "
act.WriteLine ""
act.WriteLine Request.Form("txtPosition")
act.WriteLine " | "
act.WriteLine ""
act.WriteLine Request.Form("txtState")
act.WriteLine " | "
act.WriteLine ""
act.WriteLine Request.Form("txtReferenceName")
act.WriteLine " | "
act.WriteLine ""
act.WriteLine Request.Form("txtReferenceEmail")
act.WriteLine " | "
act.WriteLine ""
act.WriteLine Request.Form("txtAddress")
act.WriteLine " | "
act.WriteLine ""
act.WriteLine Request.Form("txtHomePhone")
act.WriteLine " | "
act.WriteLine ""
act.WriteLine Request.Form("txtCellPhone")
act.WriteLine " | "
act.WriteLine ""
act.WriteLine Request.Form("txtSummerTeam")
act.WriteLine " | "
act.WriteLine "
"
act.WriteLine "
"
act.WriteLine ""
act.WriteLine ""
' close the document
act.close
end sub
%>
<%
sub automail(Filename)
'Set myMail = CreateObject("CDONTS.NewMail")
'myMail.From = "kwhiteside@whitesidemfg.com"
'myMail.To = "chad@mannsolutions.com"
'myMail.Subject = "QDSN 2009 pre-application"
'myMail.Body = "QDSN 2009 pre-application"
'mymail.Importance = 1
'' REM don't attach the file if there are no records
'myMail.AttachFile Filename
'myMail.Send
'Set myMail = Nothing
Dim iMsg
Set iMsg = CreateObject("CDO.Message")
Dim iConf
Set iConf = CreateObject("CDO.Configuration")
Dim Flds
Set Flds = iConf.Fields
With Flds
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "spam.hyperspaceit.com" ' DONT CHANGE THIS, PLS!
.Update
End With
With iMsg
Set .Configuration = iConf
.To = "chad@mannsolutions.com" 'chad@mannsolutions.com
'.To = "jijisk@gmail.com" 'chad@mannsolutions.com
' .CC = "md@hyperspaceit.com"
.From = "chad@mannsolutions.com"
'.From = "jijishk@gmail.com"
.Subject = "Cup Team application"
.TextBody = "Cup Team application"
.AddAttachment Filename
.Send
End With
set iMsg = nothing
end sub
%>
