|
|
|
| Hpathy
Seminar List |
|
|
<%
Dim strSQL
strSQL = "SELECT * FROM Seminar WHERE Id=" & strId
Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open strSQL,objConn, 3, 3
Dim strApprove, strDate1, strDate2, strMode, strAddress, strCity, strCountry, strPhone, strEmail, strWebsite, strSpeaker, strMisc, strId
strMode=Request("Mode")
If strMode= "Delete" then
objRS.delete
objRS.update
Response.write "Record Deleted Successfully"
ElseIf strMode="Edit" then
strID=objRS("Id")
strDate1=objRS("DateFrom")
strDate2=objRS("DateTo")
strAddress=objRS("Address")
strAddress=EditPostConvertion(strAddress)
strCity=objRS("City")
strState=objRS("State")
strCountry=objRS("Country")
strZip=objRS("Zip")
strPhone=objRS("Phone")
strEmail=objRS("Email")
strMisc=objRS("Misc")
strMisc=EditPostConvertion(strMisc)
strSpeaker=objRS("Speaker")
strWebsite=objRS("Website")
strApprove=objRS("Approve")
Elseif strMode="SubmitEdit" then
strDate1=Request("txtDate1")
strDate2=Request("txtDate2")
strAddress=Request("txtAddress")
strAddress=FormatPost(strAddress)
strCity=Request("txtCity")
strState=Request("txtState")
strCountry=Request("txtCountry")
strZip=Request("txtZip")
strPhone=Request("txtPhone")
strEmail=Request("txtEmail")
strMisc=Request("txtMisc")
strMisc=FormatPost(strMisc)
strSpeaker=Request("txtSpeaker")
strWebsite=Request("txtWebsite")
strApprove=Request("chkApprove")
If not strApprove="True" then
strApprove="False"
End If
objRS("DateFrom")=strDate1
objRS("DateTo")=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("Approve")=strApprove
objRS.update
Else
Response.write "Not specified what I am supposed to do!!"
End If
objRS.close
Set objRS=Nothing
objConn.close
Set objConn=Nothing
%>
|
|
|
|
| |
|