<%@ Language=VBScript %>
<%
Option Explicit
%>
<%
dim strErrText, strAction
strAction = Request.QueryString("action")
Select Case strAction
Case "err1"
strErrText = "Error: No name input."
Case "err2"
strErrText = strErrText & "Error: No email input."
Case "err3"
strErrText = strErrText & "Error: No age input."
Case "err4"
strErrText = strErrText & "Error: No gender input."
Case "err5"
strErrText = strErrText & "Error: No message input."
End Select
%>
<%
Dim strServerURL 'Server Name including http:// protocol
strServerURL = "http://" + Request.ServerVariables("SERVER_NAME")
Dim strServerURLFull 'Path to subweb directory
strServerURLFull = strServerURL & "/myEmailWebApp"
Dim strTargetURL 'Directory where we will upload our file to
strTargetURL = strServerURLFull & "/uploaded_files"
Dim strRepostURL 'Path to the page we will display after our file uploads
strRepostURL = strServerURLFull & "/SendMail.asp"
Dim strPathToPA 'Path to the cpshost.dll
strPathToPA = strServerURL & "/Scripts/cpshost.dll"
Dim strPostingURL 'Action path for our form
strPostingURL = strPathToPA + "?PUBLISH?" + strRepostURL
%>
Technical Support | Outsourcing | Consulting
<%
if strAction > "" then
response.write strErrText
end if
%>
