Check if variable is empty or is not set.

[jcpp]

Hi all,

I'm trying to create an redirect script.
I want to post a variable 'gotoUrl' (form) to the script. The script must redirect to the url specified in 'gotoUrl'. This is no problem.
But:
When I go directly to this script, by typing the url, I have no 'gotoUrl' specified. The script must redirect me to a defaultUrl.
If I submit a form to this script, but the 'gotoUrl' is empty, this script must redirect me to the HTTP_REFERER.

The script you find below is almost working. The only thing that is nog working yet, is the redirect to the defaultUrl.

Can anyone help me please?

<%
Option Explicit

dim strGotoUrl, strDomain, strBaseUrl, strDefaultUrl

strDefaultUrl = "http://www.google.com/"
strDomain = Request.ServerVariables("SERVER_NAME")
strBaseUrl = "http://" & strDomain

If IsNull(Request.Form("gotoUrl")) And Len(Request.Form("gotoUrl")) > 2 Then
      Response.Redirect(strDefaultUrl)
ElseIf Request.Form("gotoUrl") = "" Then
      Response.Redirect(Request.ServerVariables("HTTP_REFERER"))
Else
      If InStr(Request.Form("gotoUrl"), "http://") <= 0 Then
      'interne links'
            strGotoUrl = strBaseUrl & Request.Form("gotoUrl")
      Else
      'externe links'
            strGotoUrl = Request.Form("gotoUrl")
      End if

      If strGotoUrl = "noValue" Or strGotoUrl = "" Then
            Response.Redirect(Request.ServerVariables("HTTP_REFERER"))
      Else
            Response.Redirect(strGotoUrl)
      End If
End IF
%>

[jeffro]

I have very little VB experience, but this is what I see.
Here might be your problem:

If IsNull(Request.Form("gotoUrl")) And Len(Request.Form("gotoUrl")) > 2 Then

You are checking if gotoUrl is null, then checking if it is greater than 2 characters long. If you don't provide a gotoUrl, the first condition will be true, but then you check if it is greater than 2 characters long, which will be false making it skip the condition where gotoUrl is null. Try taking out:

And Len(Request.Form("gotoUrl")) > 2

Let us know if that works.