Would anyone mind making a simple code change for me?

[jmille34]

Hi, I could probably figure this out, but I don't speak asp, and this is important, so I don't want to screw it up. Plus, if this won't work for a 301 redirect or whatever, please let me know. Anyway, if anyone has a moment to use real syntax over the pseudocode in the second block, I'd really appreciate it.

I need this existing code modified:

<%@ Language=VBScript %>
<%
Response.Status="301 Moved Permanently"
Response.AddHeader "Location", "offerfreedemo.asp"
%>

I need it to first check to see if a URL variable exists, such as ?source=blah, and if it does exist, then send a different location. Something like this:

<%@ Language=VBScript %>
<%
Response.Status="301 Moved Permanently"
if urlvariable("source") exists then
    Response.AddHeader "Location", "offerfreedemo.asp?source=$source"
else
    Response.AddHeader "Location", "offerfreedemo.asp"
endif
%>

The variable is always called "source" and sometimes it's there, and sometimes it's not. Any help/advice/code greatly appreciated.

 

[cLFlaVA]

try this:

Response.Status="301 Moved Permanently"
if [red]Len( Response.QueryString( "source") ) > 0[/red] then
    Response.AddHeader "Location", "offerfreedemo.asp?source=$source"
else
    Response.AddHeader "Location", "offerfreedemo.asp"
endif

*cLFlaVA
----------------------------
[tt]"quote goes here"[/tt]
[URL unfurl="true"]http://www.coryarthus.com/[/url]

 

[jmille34]

hmm I dunno, I'm getting: "An error occurred on the server when processing the URL. Please contact the system administrator." I tried messing around with it, but I couldn't figure it out. Anyone know how to get a better error message?

 

[guitarzan]

See faq333-5427

 

[jmille34]

That didn't do it.. I was using Firefox, and when I switched to IE, it showed more of a gui looking error, and when I unchecked the box, it showed the one from Firefox.. no line numbers or anything.

 

[jmille34]

I figured it out in case anyone cares:

<%@ Language=VBScript %>
<%
Response.Status="301 Moved Permanently"
if Len(Request.QueryString("source")) > 0 then
	Response.AddHeader "Location", "offerfreedemo.asp?source=" + Request.QueryString("source")
else
	Response.AddHeader "Location", "offerfreedemo.asp"
end if
%>

just a syntax error, "endif" versus "end if"
and of course appending the actual contents of the variable