What is wrong with this

**Matt_T_hat** · Jan 3rd, 2004, 10:34 AM

the first few lines of my asp page are thus

VB Code:

<% 
Function MakeLink(LvLink)
Dim ResultIs
dim MeUrl
' Where are we?
    MeUrl = Request.ServerVariables("url")
    ResultIs = "<a Href='" & MeUrl & "?Lv=" & LvLink & "'>" & LvLink & "</a>"
    MakeLink = ResultIs
End Function
%>

it produces this:

Microsoft VBScript runtime error '800a01a8'

Object required: ''

/thehat/test/dev1/Zcon.asp, line 9

but I can not see what is wrong... anyone have an idea?

**Memnoch1207** · Jan 3rd, 2004, 10:44 AM

your function above works fine...What are you passing it???
is that the only code in the Zcon.asp page?

**Matt_T_hat** · Jan 3rd, 2004, 11:45 AM

zcon.asp handles the connection

VB Code:

<% 
Function MakeLink(LvLink)
Dim ResultIs
dim MeUrl
' Where are we?
    MeUrl = Request.ServerVariables("url")
    ResultIs = "<a Href='" & MeUrl & "?Lv=" & LvLink & "'>" & LvLink & "</a>"
    MakeLink = ResultIs
End Function
%>
<html><head></head><body>
<!--#include file="Zcon.asp"-->
<%
 
 
'The where are we stage
    Dim Lv
    Lv = request.querystring("Lv")
    If Lv="" or isnull(lv) then Lv = "Root"
' If we don't know / can't find out then we assume the start is the loco'tion
 
 
' StrSQL stores the SQL for the request it allows us to build a SQL statement
' and include many variables and alternative 
' SQL code, IFs, loops and so forth
    Dim StrSQL
 
' The QTable const gives a single location for nameing the query
' This allows multiple Parent/Child Combo's to be added with only 
' a few name changes
    Const QTable = "[2col]"
 
%>
<table border = '1' width = '100%'>
 
<tr><TD>
<b>
Search > 
<% 
Dim PathString
pathstring = ""
Dim FirstIs
FirstIs = "... >"
 
 
' First check we are not at root
    if Lv <> "Root" then 
         ' Get the "path to root"
         StrSQL = "SELECT * FROM [5wide] WHERE [finalchild] = '" & Lv & "';"
         Set rsZ = conZ.Execute(StrSQL)
         if not rsZ.eof then
             if rsZ.fields("finalchild") <> "Root" then 
                       pathstring = rsZ.fields("finalchild") & pathstring
         Else
               FirstIs = "SEARCH > "
             end if
             if rsZ.fields("P3") <> "Root" then 
                       pathstring = MakeLink(rsZ.fields("P3")) & " > " & pathstring
         Else
               FirstIs = "SEARCH > "
             end if
             if rsZ.fields("P2") <> "Root" then 
                       pathstring = MakeLink(rsZ.fields("P2")) & " > " & pathstring
         Else
               FirstIs = "SEARCH > "
             end if
             if rsZ.fields("P1") <> "Root" then 
                       pathstring = MakeLink(rsZ.fields("P1")) & " > " & pathstring
         Else
               FirstIs = "SEARCH > "
             end if
             if rsZ.fields("Parent") <> "Root" then 
                      pathstring = MakeLink(rsZ.fields("Parent")) & " > " & pathstring
         Else
               FirstIs = "SEARCH > "
             end if
             pathstring = FirstIs & pathstring
         end if          
    end if
 
%>
</B>
 </td></tr>
</table>
<%
 
' Options to choose
' Where can we go?
 
 
' Get that data
    StrSQL = "SELECT * FROM " & QTable &  " WHERE Parent = '" & Lv & "' AND child <> 'root'"
    Set rsZ = conZ.Execute(StrSQL)
 
'Now give the audience the choice
    Do While Not rsZ.EOF
       Response.Write "<BR>"
       Response.Write MakeLink(rsZ.fields("Child"))
       rsZ.MoveNext
    Loop
 
 
' Close our recordset and connection and dispose of the objects
rsZ.Close
Set rsZ = Nothing
conZ.Close
Set Conz = Nothing
 
' That's all folks!
%>

I know that the include works and I did have it going fairly well.

**Matt_T_hat** · Jan 6th, 2004, 07:50 AM

Another question: is there a "better" way to do those IF's a loop of some kind...?

Couldn they somehow be the problem?

**mendhak** · Jan 6th, 2004, 10:07 AM

Try removing the single quote ' there.

**Matt_T_hat** · Jan 6th, 2004, 05:58 PM

Originally posted by mendhak
Try removing the single quote ' there.

Pardon me? I don't follow... which one where?

**Spajeoly** · Jan 7th, 2004, 07:01 AM

I think he means.....

VB Code:

ResultIs = "<a Href='" & MeUrl & "?Lv=" & LvLink & "'>" & LvLink & "</a>"

Instead of doing it like that, use Chr() codes like this...

VB Code:

ResultIs = "<a Href=" & Chr(34) & MeUrl & "?Lv=" & LvLink & Chr(34) & ">" & LvLink & "</a>"

**Matt_T_hat** · Jan 14th, 2004, 09:44 AM

oh I see

Thankyou, I'll give that a go.

Thread: What is wrong with this

Thread Tools

Display

What is wrong with this

Posting Permissions