Thomas
Fri Sep 01 13:19:22 CDT 2006
Suggest you change all to use post and request.
http://socrates.berkeley.edu:7309/web_sec/page17.html
--
==============================================
Thomas A. Rowe
Microsoft MVP - FrontPage
==============================================
Agents Real Estate Listing Network
http://www.NReal.com
==============================================
"Dave B." <mail@nomail.com> wrote in message news:e%23HLNGezGHA.3440@TK2MSFTNGP06.phx.gbl...
> That did the trick Tom, thanks!
> Rather curious though, I have 3 other forms, one with 75 fields, and didn't have this problem with
> any of them.
>
> "Thomas A. Rowe" <tarowe@mvps.org> wrote in message news:e2jeR9TzGHA.4452@TK2MSFTNGP05.phx.gbl...
>> DaveB,
>>
>> Try setting the form method to
>>
>> "Post" instead of "Get"
>>
>> and the following
>>
>> "request.querystring" to "request.form" as shown below:
>>
>> FTGsubmittedby = request.form("submittedby")
>> FTGemail = request.form("email")
>> FTGjob = request.form("job")
>> FTGdate = request.form("date")
>> FTGstartdate = request.form("startdate")
>> FTGcompletiondate = request.form("completiondate")
>> FTGscheduleissues = request.form("scheduleissues")
>> FTGpoissues = request.form("poissues")
>> FTGsubmittalissues = request.form("submittalissues")
>> FTGchangeorders = request.form("changeorders")
>> FTGengineerissues = request.form("engineerissues")
>> FTGsupplierissues = request.form("supplierissues")
>> FTGotherissues = request.form("otherissues")
>>
>> --
>> ==============================================
>> Thomas A. Rowe
>> Microsoft MVP - FrontPage
>> ==============================================
>> Agents Real Estate Listing Network
>>
http://www.NReal.com
>> ==============================================
>>
>>
>> "Dave B." <mail@nomail.net> wrote in message news:Osew0eRzGHA.4920@TK2MSFTNGP06.phx.gbl...
>>>I should have known better and provided that. I moved the script back to the root web.
>>>
http://www.waterlineind.com/pm_status_report.htm
>>>
>>> The script is pm_status_report.asp and is pasted below.
>>>
>>>
>>> <%
>>>
>>> '----------
>>> ' Filter Control Characters
>>>
>>> Function filterCchar(TextToFilter)
>>>
>>> Dim regEx
>>>
>>> Set regEx = New RegExp
>>>
>>> regEx.Global = true
>>> regEx.IgnoreCase = true
>>> regEx.Pattern ="[\x00-\x1F]"
>>>
>>> filterCchar = regEx.Replace(TextToFilter, "")
>>>
>>> End Function
>>> Dim ClientIP
>>>
>>> if Request.ServerVariables("HTTP_X_FORWARDED_FOR") <> "" then
>>> ClientIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
>>> else
>>> ClientIP = Request.ServerVariables("REMOTE_ADDR")
>>> end if
>>>
>>> Dim objCDOSYSMail
>>> Set objCDOSYSMail = Server.CreateObject("CDO.Message")
>>> Dim objCDOSYSCnfg
>>> Set objCDOSYSCnfg = Server.CreateObject("CDO.Configuration")
>>>
>>> FTGsubmittedby = request.querystring("submittedby")
>>> FTGemail = request.querystring("email")
>>> FTGjob = request.querystring("job")
>>> FTGdate = request.querystring("date")
>>> FTGstartdate = request.querystring("startdate")
>>> FTGcompletiondate = request.querystring("completiondate")
>>> FTGscheduleissues = request.querystring("scheduleissues")
>>> FTGpoissues = request.querystring("poissues")
>>> FTGsubmittalissues = request.querystring("submittalissues")
>>> FTGchangeorders = request.querystring("changeorders")
>>> FTGengineerissues = request.querystring("engineerissues")
>>> FTGsupplierissues = request.querystring("supplierissues")
>>> FTGotherissues = request.querystring("otherissues")
>>>
>>> ' Redirect user to the error page
>>>
>>> If (validationFailed = true) Then
>>>
>>> Response.Redirect "error.htm"
>>> Response.End
>>>
>>> End If
>>>
>>> ' Owner Email: cdosys
>>>
>>> objCDOSYSCnfg.Fields("
http://schemas.microsoft.com/cdo/configuration/smtpserver") =
>>> "tngww3.tech-n-go.local"
>>> objCDOSYSCnfg.Fields("
http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
>>> objCDOSYSCnfg.Fields("
http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
>>> objCDOSYSCnfg.Fields("
http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") =
>>> 60
>>> objCDOSYSCnfg.Fields.Update
>>>
>>> objCDOSYSMail.Configuration = objCDOSYSCnfg
>>> emailFrom = FilterCchar(FTGemail)
>>> emailSubject = FilterCchar("PM Status Report")
>>> emailBodyHtml = "<body>" & vbCrLf _
>>> & "<div align=""center"">" & vbCrLf _
>>> & " <table border=""1"" width=""90%"" id=""table1"" bordercolorlight=""#5792C5""
>>> cellpadding=""4"" bordercolordark=""#1A3A77"">" & vbCrLf _
>>> & " <tr>" & vbCrLf _
>>> & " <td>" & vbCrLf _
>>> & " <p align=""center""><b><font face=""Verdana"" size=""5"" color=""#1A3A77"">" & vbCrLf _
>>> & " PM Status Report</font></b></td>" & vbCrLf _
>>> & " </tr>" & vbCrLf _
>>> & " </table>" & vbCrLf _
>>> & "</div>" & vbCrLf _
>>> & "<p><br>" & vbCrLf _
>>> & " </p>" & vbCrLf _
>>> & "<div align=""center"">" & vbCrLf _
>>> & " <table border=""0"" width=""90%"" id=""table2"" style=""font-family: Verdana; font-size:
>>> 12pt; color: #1A3A77"">" & vbCrLf _
>>> & " <tr>" & vbCrLf _
>>> & " <td><b>Submitted By:</b> " & FTGsubmittedby & "</td>" & vbCrLf _
>>> & " <td><b>Date:</b> " & FTGdate & "</td>" & vbCrLf _
>>> & " </tr>" & vbCrLf _
>>> & " <tr>" & vbCrLf _
>>> & " <td><b>Job:</b> " & FTGjob & "</td>" & vbCrLf _
>>> & " <td> </td>" & vbCrLf _
>>> & " </tr>" & vbCrLf _
>>> & " <tr>" & vbCrLf _
>>> & " <td><b>Start Date:</b> " & FTGstartdate & "</td>" & vbCrLf _
>>> & " <td><b>Completion Date:</b> " & FTGcompletiondate & "</td>" & vbCrLf _
>>> & " </tr>" & vbCrLf _
>>> & " </table>" & vbCrLf _
>>> & "</div>" & vbCrLf _
>>> & "<br />" & vbCrLf _
>>> & "<br />" & vbCrLf _
>>> & " <table border=""0"" width=""100%"" id=""table3"" style=""font-family: Verdana;
>>> font-size: 10pt; color: #1A3A77"">" & vbCrLf _
>>> & " <tr>" & vbCrLf _
>>> & " <td align=""right"" width=""150""><b>scheduleissues:</b></td>" & vbCrLf _
>>> & " <td>" & FTGscheduleissues & "</td>" & vbCrLf _
>>> & " </tr>" & vbCrLf _
>>> & " <tr>" & vbCrLf _
>>> & " <td align=""right"" width=""150""><b>poissues:</b></td>" & vbCrLf _
>>> & " <td>" & FTGpoissues & "</td>" & vbCrLf _
>>> & " </tr>" & vbCrLf _
>>> & " <tr>" & vbCrLf _
>>> & " <td align=""right"" width=""150""><b>submittalissues:</b></td>" & vbCrLf _
>>> & " <td>" & FTGsubmittalissues & "</td>" & vbCrLf _
>>> & " </tr>" & vbCrLf _
>>> & " <tr>" & vbCrLf _
>>> & " <td align=""right"" width=""150""><b>changeorders:</b></td>" & vbCrLf _
>>> & " <td>" & FTGchangeorders & "</td>" & vbCrLf _
>>> & " </tr>" & vbCrLf _
>>> & " <tr>" & vbCrLf _
>>> & " <td align=""right"" width=""150""><b>engineerissues:</b></td>" & vbCrLf _
>>> & " <td>" & FTGengineerissues & "</td>" & vbCrLf _
>>> & " </tr>" & vbCrLf _
>>> & " <tr>" & vbCrLf _
>>> & " <td align=""right"" width=""150""><b>supplierissues:</b></td>" & vbCrLf _
>>> & " <td>" & FTGsupplierissues & "</td>" & vbCrLf _
>>> & " </tr>" & vbCrLf _
>>> & " <tr>" & vbCrLf _
>>> & " <td align=""right"" width=""150""><b>otherissues:</b></td>" & vbCrLf _
>>> & " <td>" & FTGotherissues & "</td>" & vbCrLf _
>>> & " </tr>" & vbCrLf _
>>> & "</table>" & vbCrLf _
>>> & "</body>" & vbCrLf _
>>> & "</html>" & vbCrLf _
>>> & ""
>>>
>>> objCDOSYSMail.To = "administrator@waterlineind.com"
>>> objCDOSYSMail.From = emailFrom
>>> objCDOSYSMail.Subject = emailSubject
>>> objCDOSYSMail.HTMLBody = emailBodyHtml
>>> objCDOSYSMail.BodyPart.Charset = "ISO-8859-1"
>>> objCDOSYSMail.Send
>>>
>>> ' Redirect user to success page
>>>
>>> Response.Redirect "success.htm"
>>>
>>>
>>> ' End of ASP script
>>> %>
>>>
>>
>>
>
>