Home / Events / QDJN.c / QDJN.c Application

QDJN.c - team application

!

Return to QDJN.c Home

QDJN.c - Team Application

This is information that we will use to communicate with you concerning the 2012 Queen of Diamonds Junior Nationals Coastal(QDJN.c). Please note we only send email information, we do not call or follow up on bounced emails. 


Fields marked with * are compulsory
*Coaches Name – last name, first name – ex: Doe, Jane
*Email
Team
State
Cell Phone (ex: 614-555-1234)
 
<% 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/qdnationals/" & 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("qdnationalsthankyou.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 "" act.WriteLine "" act.WriteLine "" act.WriteLine "" act.WriteLine "" act.WriteLine "" act.WriteLine "" act.WriteLine "" act.WriteLine "" act.WriteLine "" act.WriteLine "" act.WriteLine "" act.WriteLine "" act.WriteLine "
" act.WriteLine "Full Name" act.WriteLine "" act.WriteLine "Email" act.WriteLine "" act.WriteLine "Team" act.WriteLine "" act.WriteLine "State" act.WriteLine "" act.WriteLine "Phone" act.WriteLine "
" act.WriteLine Request.Form("txtName") act.WriteLine "" act.WriteLine Request.Form("txtEmail") act.WriteLine "" act.WriteLine Request.Form("txtTeam") act.WriteLine "" act.WriteLine Request.Form("txtState") act.WriteLine "" act.WriteLine Request.Form("txtHomePhone") act.WriteLine "" act.WriteLine Request.Form("txtSummerTeam") 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 = "Junior Nationals Coastal application" .TextBody = "Junior Nationals" .AddAttachment Filename .Send End With set iMsg = nothing end sub %>