<%@Language=VBScript%> <% varEventID = Request.QueryString("ID") Set oRS=Server.CreateObject("ADODB.recordset") Set objCmd=Server.CreateObject("ADODB.Command") Set objCmd.ActiveConnection = objConn objCmd.CommandText = "sp_GetEventInfo" objCmd.CommandType = adCmdStoredProc set parm1= objCmd.CreateParameter("RETURN_VALUE", adInteger, adParamReturnValue) objCmd.Parameters.Append parm1 set parm2= objCmd.CreateParameter("@ClientID", adVarChar, adParamInput,10 ,varClientID) objCmd.Parameters.Append parm2 set parm3= objCmd.CreateParameter("@EventID", adVarchar, adParamInput,20,varEventID) objCmd.Parameters.Append parm3 set oRS = objCmd.Execute varSubject = ORS("EventName") %>

<%= varSubject %>

<% varEventDesc = oRS("EventDesc") varEventURLAddress = oRS("MoreInfoURL") Call CheckForErrors(objConn) 'Check for errors if objconn.Errors.Count > 0 then set objErr = Server.CreateObject("ADODB.RecordSet") For Each objErr In objConn.Errors if objErr.Number <> 0 Then Response.Write "

System Error Description: " & objErr.Description & "

" Response.Write "
The system encountered a problem in processing your request. Please send an email to our " Response.Write "technical support team with the description included in the body of the email." Response.Write " We are sorry for any inconvenience that you're experiencing. We will look into this problem asap and notify you of our status." Response.Write "

Please feel free to contact us if you have any questions. " Response.Write "" & vargTechSuptEmail & "" blnCriticalError = True end if Next Set objErr = Nothing if blncriticalError Then Response.End end if objErr.Close set objErr = Nothing end if %>

<% if Session("gWelcome") = "" then %>
First Time Registrants

* Required Information

Company/Organization Name:  
First Name: *  
Last Name: *  
Address: *  
City: *  
State:    
Zip Code: *  
Primary Phone: *  
Email: *  
 
Entering a username and password if you do not want to re-enter the same infomation in the future. By providing this information, an initial profile will be created for you to access our portal or register for future events.   Read Why....
 
Username:  
Password:  
Re-enter Password:  
 
Profile Already Exists

* Required Information

Username: *  
Password: *  
 
Forgot your password, click here to reset your password.
<% else Set oXS=Server.CreateObject("ADODB.recordset") Set objCmd=Server.CreateObject("ADODB.Command") Set objCmd.ActiveConnection = objConn objCmd.CommandText = "sp_GetProfile" objCmd.CommandType = adCmdStoredProc set parm1= objCmd.CreateParameter("@ClientID", adVarChar, adParamInput,10 ,varClientID) objCmd.Parameters.Append parm1 set parm2= objCmd.CreateParameter("@CustID", adInteger, adParamInput, ,varCustID) objCmd.Parameters.Append parm2 set oXS = objCmd.Execute varCompanyName = oXS("CompanyName") varAddress1 = oXS("Address1") varAddress2 = oXS("Address2") varCity = oXS("City") varState = oXS("State") varZip = oXS("Zip") varCountry = oXS("Country") varLastName = oXS("ContactLastName") varFirstName = oXS("ContactFirstName") varPhone = oXS("ContactPhone") varEmail = oXS("Email") varProvince = oXS("Province") varPostalCode = oXS("PostalCode") varUserid = oXS("UserID") varPassword = oXS("LogonPswd") varAccessLevel = oXS("AccessLvl") oXS.Close set oXS = Nothing %>


<% if varCompanyName<>"" then %> <% end if %>
Company/Organization Name:   <%Response.Write varCompanyName%>
First Name:   <%Response.Write varFirstName %>
Last Name:   <%Response.Write varLastName %>
Address:   <%Response.Write varAddress1 %>
City:   <%Response.Write varCity %>
State:   <%Response.Write varState %>
Zip Code:   <%Response.Write varZip %>
Primary Phone:   <%Response.Write varPhone %>
Email:   <%Response.Write varEmail %>
 
<% end if %>

<% if varEventURLAddress <> "" then %> <% end if %>
Event Title: <% Response.Write varSubject %>
Brief Description: <% Response.Write varEventDesc %>
  Additional Information
Who Referred You?:
Comments:
<% varItemName = oRS("ItemName") varEventRefNo = oRS("EventRefNo") varSubCatID = oRS("SubCategoryID") Response.Write "

" Response.Write "

" Response.Write "" if "ebg"<>"ebg" then Response.Write "" Response.Write "" end if Response.Write "" Response.Write "" Response.Write "" if varItemName <> "" then intCnt = 0 Do While not oRS.EOF varSpecURL = oRS("SpecificationURL") intCnt = intCnt + 1 if varSpecURL <> "" then Response.Write "" if oRS("ItemType") = "P" then Response.Write "" Response.Write "" Response.Write "" else Response.Write "" Response.Write "" Response.Write "" end if Response.Write "" oRS.MoveNext Loop else intCnt = 0 Response.Write "" end if Response.Write "
Activity Description

Number of
Tickets

Amount/Donation

Quantity

Amount

" Response.Write "" & oRS("ItemName") & "
" else Response.Write "
" & oRS("ItemName") & "
" end if Response.Write oRS("ShortDescription") & "
" & FormatCurrency(oRS("Cost")) & "

Registration for this event is either closed or not available.

" %> <% objCmd.Close set objCmd = Nothing oRS.Close set oRS = Nothing parm1.Close set parm1 = Nothing parm2.Close set parm2 = Nothing parm3.Close set parm3 = Nothing %> > > <% if intCnt > 0 then %>

<% end if %>