<% Dim strSubmit, strDate1, strDate2, strMonth1, strMonth2, strYear1, strYear2, strAddress, strCity, strCountry, strPhone, strEmail, strWebsite, strSpeaker, strMisc, strId
strSubmit=Request("hdnSubmit")
If strSubmit="True" then
strDate1=Request("lstDate1")
strMonth1=Request("lstMonth1")
strYear1=Request("lstYear1")
strDate2=Request("lstDate2")
strMonth2=Request("lstMonth2")
strYear2=Request("lstYear2")
strAddress=Request("txtAddress")
strAddress=FormatPost(strAddress)
strCity=Request("txtCity")
strState=Request("txtState")
strCountry=Request("lstCountry")
strZip=Request("txtZip")
strPhone=Request("txtPhone")
strEmail=Request("txtEmail")
strMisc=Request("txtMisc")
strMisc=FormatPost(strMisc)
strSpeaker=Request("txtSpeaker")
strWebsite=Request("txtWebsite")
Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open "Seminar",objConn, 3, 3
objRS.Addnew
objRS("DateFrom")=DateSerial(strYear1, strMonth1,strDate1)
objRS("DateTo")=DateSerial(strYear2, strMonth2,strDate2)
objRS("Address")=strAddress
objRS("State")=strState
objRS("City")=strCity
objRS("Zip")=strZip
objRS("Country")=strCountry
objRS("Phone")=strPhone
objRS("Email")=strEmail
objRS("Website")=strWebsite
objRS("Speaker")=strSpeaker
objRS("Misc")=strMisc
objRS.update
objRS.close
Set objRS=Nothing
Dim strSuccess
strSuccess="True"
End If
objConn.close
Set objConn=Nothing
EmailCode="SeminarSubmit"
%>
Homeopathic Seminars, Homeopathy Confrences
Homeopathy Seminar Calendar
<%If strSuccess="True" then%>
Congratulations!! You
have successfully submitted your seminar information. If the seminar
is taking place within next 6 months, it would become visible in
the seminar list within next 7 days.