% Dim strServerURL 'Server Name including http:// protocol strServerURL = "http://" + Request.ServerVariables("SERVER_NAME") Dim strServerURLFull 'Path to subweb directory strServerURLFull = strServerURL & "/" 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 %>
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||