%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% option explicit %> <% dim sMyID, sMyPassword, sUpcomingEventsTable, sChapterNo, sNoOfEvents, sTabletype, sEmailBody if not isempty(Request.Form ("txtFrom")) then sEmailBody = "Message entered on form " & Request.ServerVariables("HTTP_REFERER") & chr(13) sEmailBody = sEmailBody & "From: " & Request.Form("txtFrom") & chr(13) sEmailBody = sEmailBody & "Email: " & Request.Form("txtEmail") & chr(13) sEmailBody = sEmailBody & "Grad Year: " & Request.Form("txtGradYear") & chr(13) sEmailBody = sEmailBody & "Message: " & Request.Form("txtMessage") & chr(13) call sgaSendEmail("alumni@ucsd.edu", space(0), space(0), "alumni@ucsd.edu", "Have your say - Asia", sEmailBody, false) '-------------- SendEmails Response.Redirect("../thankyou.htm") end if sMyID = fgaGetUserName() sMyPassword = fgaGetPassword() sChapterNo = 21 sNoOfEvents = 3 sTabletype = "C" 'C for Chapter, H for Home page sUpcomingEventsTable = fgaUpcomingEventsTable (sMyID, sMyPassword, sChapterNo, sNoOfEvents, sTabletype, "N") %>
|
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||
Site design by Isabelle Gerrard of Flying Tiger
|