force ssl problem 1

[dalec]

I've been trying to write a script that requires a page to use ssl, but, when I place the code at the top of each page (like the example microsoft has) when I try to navigate to the page it seems like it's stuck in a loop trying to redirect, then finally it will end up with a plain white screen. I tried the file settings in IIS and then I get a secure connect error. SSL is correctly configured, I just can't force it and I need to.

If I remove the scripts and type https:// (url) it shows secure, but, that also allows the http:// (url) protocol as well.

Anybody else have this problem? I've been through some many itterations of this, my hope is that someone will have something else I can try.

Thanks in advance.
Dale

 

[FesterSXS]

and the script code looks like??????

Tony

Spirax-Sarco - steam traps control valves heat exchangers
Sun Villa - Luxury Florida accommodation

 

[dalec]

<%
If Request.ServerVariables("SERVER_PORT")=80 Then
Dim strSecureURL
strSecureURL = "

https://"

strSecureURL = strSecureURL & Request.ServerVariables("SERVER_NAME")
strSecureURL = strSecureURL & Request.ServerVariables("URL")
Response.Redirect strSecureURL
End If
%>

 

[FesterSXS]

It doesnt seem to me that the script above has any reason to know that it has already been executed. Perhaps you should add something to the IF statement to make sure it is only run once for each page


Tony

Spirax-Sarco - steam traps control valves heat exchangers
Sun Villa - Luxury Florida accommodation

 

[Sheco]

Or maybe you could add some sort of flag to the url in the form of a QueryString parameter...

<%
If (Request.QueryString("Foo") = "Bar") Then
  Response.Write "I give up!"
  Respnse.End
End If

If Request.ServerVariables("SERVER_PORT")=80 Then
  Dim strSecureURL
  strSecureURL = "[URL unfurl="true"]https://"[/URL]
  strSecureURL = strSecureURL & Request.ServerVariables("SERVER_NAME")
  strSecureURL = strSecureURL & Request.ServerVariables("URL")

  If (InStr(strSecureURL, "?") > 0) Then
    strSecureURL = strSecureURL & "&Foo=Bar"
  Else
    strSecureURL = strSecureURL & "?Foo=Bar"
  End If
 
  Response.Redirect strSecureURL
End If
%>

 

[dalec]

Sheco,

First off, thank you for your help!! Ok, I tried that script and it does load changing from http to https, which is great, but, the rest of the page doesnt load (it just comes up with "I give up!". I'm not trying to be incredibly dense, but, how do I get it to now finish loading the rest of the page??

thanks Again,
Dale

 

[dalec]

Here is what worked:

<%
If (Request.QueryString("Foo") <> "Bar") Then
   If Request.ServerVariables("SERVER_PORT")=80 Then
     Dim strSecureURL
     strSecureURL = "[URL unfurl="true"]https://"[/URL]
     strSecureURL = strSecureURL & Request.ServerVariables("SERVER_NAME")
     strSecureURL = strSecureURL & Request.ServerVariables("URL")
     If (InStr(strSecureURL, "?") > 0) Then
       strSecureURL = strSecureURL & "&Foo=Bar"
     Else
       strSecureURL = strSecureURL & "?Foo=Bar"
     End If
     Response.Redirect strSecureURL
   else
     Response.End()
   End If 
End If
%>

Thanks again!!!