Hi,

the ToolTip is only at the second MouseOver in place.
I got some middle size images (50kb - 100kb) to be shown with the ToolTip.
I rollover the thumbs. Teh loading text is in place, then the image runs out of place.
When I rollover again the big image shows up in place.

How to fix?

Hi Denis,

Any testpage we could have a look at?

Kind regards, Patrick

I have the same problem.
Take a look here:
kennel-hanne.dk/ny/udstilling.asp?regnr=16746/98

Denis, Naya,

Please post the source code of your pages.

Kind regards, Patrick

Naya,

To make sure this is not related to your problem, please also upload the file closebtn.png from the Styles/dmxTooltips folder.

Kind regards, Patrick

Hi

I have uploaded closebtn.png. It didn't help so here is my source code.

Thanks
Naya

-------------------------------------------------

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="../Connections/kehada.asp" -->
<
%Dim rs_udstil__MMColParam
rs_udstil__MMColParam = "1"
If (Request.QueryString("regnr") <> "") Then 
  rs_udstil__MMColParam = Request.QueryString("regnr")
End If
%>
<
%Dim rs_udstil
Dim rs_udstil_cmd
Dim rs_udstil_numRows

Set rs_udstil_cmd = Server.CreateObject ("ADODB.Command")
rs_udstil_cmd.ActiveConnection = MM_kehada_STRING
rs_udstil_cmd.CommandText = "SELECT * FROM qu_udstil WHERE regnr = ? ORDER BY dato DESC" 
rs_udstil_cmd.Prepared = true
rs_udstil_cmd.Parameters.Append rs_udstil_cmd.CreateParameter("param1", 200, 1, 50, rs_udstil__MMColParam) ' adVarChar

Set rs_udstil = rs_udstil_cmd.Execute
rs_udstil_numRows = 0
%>
<
%Dim rs_1pr__MMColParam
rs_1pr__MMColParam = "1"
If (Request.QueryString("regnr") <> "") Then 
  rs_1pr__MMColParam = Request.QueryString("regnr")
End If
%>
<
%Dim rs_1pr
Dim rs_1pr_cmd
Dim rs_1pr_numRows

Set rs_1pr_cmd = Server.CreateObject ("ADODB.Command")
rs_1pr_cmd.ActiveConnection = MM_kehada_STRING
rs_1pr_cmd.CommandText = "SELECT * FROM qu_udstil_1pr WHERE regnr = ?" 
rs_1pr_cmd.Prepared = true
rs_1pr_cmd.Parameters.Append rs_1pr_cmd.CreateParameter("param1", 200, 1, 50, rs_1pr__MMColParam) ' adVarChar

Set rs_1pr = rs_1pr_cmd.Execute
rs_1pr_numRows = 0
%>
<
%Dim rs_2pr__MMColParam
rs_2pr__MMColParam = "1"
If (Request.QueryString("regnr") <> "") Then 
  rs_2pr__MMColParam = Request.QueryString("regnr")
End If
%>
<
%Dim rs_2pr
Dim rs_2pr_cmd
Dim rs_2pr_numRows

Set rs_2pr_cmd = Server.CreateObject ("ADODB.Command")
rs_2pr_cmd.ActiveConnection = MM_kehada_STRING
rs_2pr_cmd.CommandText = "SELECT * FROM qu_udstil_2pr WHERE regnr = ?" 
rs_2pr_cmd.Prepared = true
rs_2pr_cmd.Parameters.Append rs_2pr_cmd.CreateParameter("param1", 200, 1, 50, rs_2pr__MMColParam) ' adVarChar

Set rs_2pr = rs_2pr_cmd.Execute
rs_2pr_numRows = 0
%>
<
%Dim rs_3pr__MMColParam
rs_3pr__MMColParam = "1"
If (Request.QueryString("regnr") <> "") Then 
  rs_3pr__MMColParam = Request.QueryString("regnr")
End If
%>
<
%Dim rs_3pr
Dim rs_3pr_cmd
Dim rs_3pr_numRows

Set rs_3pr_cmd = Server.CreateObject ("ADODB.Command")
rs_3pr_cmd.ActiveConnection = MM_kehada_STRING
rs_3pr_cmd.CommandText = "SELECT * FROM qu_udstil_3pr WHERE regnr = ?" 
rs_3pr_cmd.Prepared = true
rs_3pr_cmd.Parameters.Append rs_3pr_cmd.CreateParameter("param1", 200, 1, 50, rs_3pr__MMColParam) ' adVarChar

Set rs_3pr = rs_3pr_cmd.Execute
rs_3pr_numRows = 0
%>
<
%Dim rs_kip__MMColParam
rs_kip__MMColParam = "1"
If (Request.QueryString("regnr") <> "") Then 
  rs_kip__MMColParam = Request.QueryString("regnr")
End If
%>
<
%Dim rs_kip
Dim rs_kip_cmd
Dim rs_kip_numRows

Set rs_kip_cmd = Server.CreateObject ("ADODB.Command")
rs_kip_cmd.ActiveConnection = MM_kehada_STRING
rs_kip_cmd.CommandText = "SELECT * FROM qu_udstil_KIP WHERE regnr = ?" 
rs_kip_cmd.Prepared = true
rs_kip_cmd.Parameters.Append rs_kip_cmd.CreateParameter("param1", 200, 1, 50, rs_kip__MMColParam) ' adVarChar

Set rs_kip = rs_kip_cmd.Execute
rs_kip_numRows = 0
%>
<
%Dim rs_o__MMColParam
rs_o__MMColParam = "1"
If (Request.QueryString("regnr") <> "") Then 
  rs_o__MMColParam = Request.QueryString("regnr")
End If
%>
<
%Dim rs_o
Dim rs_o_cmd
Dim rs_o_numRows

Set rs_o_cmd = Server.CreateObject ("ADODB.Command")
rs_o_cmd.ActiveConnection = MM_kehada_STRING
rs_o_cmd.CommandText = "SELECT * FROM qu_udstil_0 WHERE regnr = ?" 
rs_o_cmd.Prepared = true
rs_o_cmd.Parameters.Append rs_o_cmd.CreateParameter("param1", 200, 1, 50, rs_o__MMColParam) ' adVarChar

Set rs_o = rs_o_cmd.Execute
rs_o_numRows = 0
%>
<
%Dim rs_cert__MMColParam
rs_cert__MMColParam = "1"
If (Request.QueryString("regnr") <> "") Then 
  rs_cert__MMColParam = Request.QueryString("regnr")
End If
%>
<
%Dim rs_cert
Dim rs_cert_cmd
Dim rs_cert_numRows

Set rs_cert_cmd = Server.CreateObject ("ADODB.Command")
rs_cert_cmd.ActiveConnection = MM_kehada_STRING
rs_cert_cmd.CommandText = "SELECT * FROM qu_udstil_cert WHERE regnr = ?" 
rs_cert_cmd.Prepared = true
rs_cert_cmd.Parameters.Append rs_cert_cmd.CreateParameter("param1", 200, 1, 50, rs_cert__MMColParam) ' adVarChar

Set rs_cert = rs_cert_cmd.Execute
rs_cert_numRows = 0
%>
<
%Dim rs_klubcert__MMColParam
rs_klubcert__MMColParam = "1"
If (Request.QueryString("regnr") <> "") Then 
  rs_klubcert__MMColParam = Request.QueryString("regnr")
End If
%>
<
%Dim rs_klubcert
Dim rs_klubcert_cmd
Dim rs_klubcert_numRows

Set rs_klubcert_cmd = Server.CreateObject ("ADODB.Command")
rs_klubcert_cmd.ActiveConnection = MM_kehada_STRING
rs_klubcert_cmd.CommandText = "SELECT * FROM qu_udstil_klubcert WHERE regnr = ?" 
rs_klubcert_cmd.Prepared = true
rs_klubcert_cmd.Parameters.Append rs_klubcert_cmd.CreateParameter("param1", 200, 1, 50, rs_klubcert__MMColParam) ' adVarChar

Set rs_klubcert = rs_klubcert_cmd.Execute
rs_klubcert_numRows = 0
%>
<
%Dim rs_udstil_cacib__MMColParam
rs_udstil_cacib__MMColParam = "1"
If (Request.QueryString("regnr") <> "") Then 
  rs_udstil_cacib__MMColParam = Request.QueryString("regnr")
End If
%>
<
%Dim rs_udstil_cacib
Dim rs_udstil_cacib_cmd
Dim rs_udstil_cacib_numRows

Set rs_udstil_cacib_cmd = Server.CreateObject ("ADODB.Command")
rs_udstil_cacib_cmd.ActiveConnection = MM_kehada_STRING
rs_udstil_cacib_cmd.CommandText = "SELECT * FROM qu_udstil_cacib WHERE regnr = ?" 
rs_udstil_cacib_cmd.Prepared = true
rs_udstil_cacib_cmd.Parameters.Append rs_udstil_cacib_cmd.CreateParameter("param1", 200, 1, 50, rs_udstil_cacib__MMColParam) ' adVarChar

Set rs_udstil_cacib = rs_udstil_cacib_cmd.Execute
rs_udstil_cacib_numRows = 0
%>
<
%Dim rs_res_cacib__MMColParam
rs_res_cacib__MMColParam = "1"
If (Request.QueryString("regnr") <> "") Then 
  rs_res_cacib__MMColParam = Request.QueryString("regnr")
End If
%>
<
%Dim rs_res_cacib
Dim rs_res_cacib_cmd
Dim rs_res_cacib_numRows

Set rs_res_cacib_cmd = Server.CreateObject ("ADODB.Command")
rs_res_cacib_cmd.ActiveConnection = MM_kehada_STRING
rs_res_cacib_cmd.CommandText = "SELECT * FROM qu_udstil_res_caci WHERE regnr = ?" 
rs_res_cacib_cmd.Prepared = true
rs_res_cacib_cmd.Parameters.Append rs_res_cacib_cmd.CreateParameter("param1", 200, 1, 50, rs_res_cacib__MMColParam) ' adVarChar

Set rs_res_cacib = rs_res_cacib_cmd.Execute
rs_res_cacib_numRows = 0
%>
<
%Dim rs_ex__MMColParam
rs_ex__MMColParam = "1"
If (Request.QueryString("regnr") <> "") Then 
  rs_ex__MMColParam = Request.QueryString("regnr")
End If
%>
<
%Dim rs_ex
Dim rs_ex_cmd
Dim rs_ex_numRows

Set rs_ex_cmd = Server.CreateObject ("ADODB.Command")
rs_ex_cmd.ActiveConnection = MM_kehada_STRING
rs_ex_cmd.CommandText = "SELECT * FROM qu_udstil_ex WHERE regnr = ?" 
rs_ex_cmd.Prepared = true
rs_ex_cmd.Parameters.Append rs_ex_cmd.CreateParameter("param1", 200, 1, 50, rs_ex__MMColParam) ' adVarChar

Set rs_ex = rs_ex_cmd.Execute
rs_ex_numRows = 0
%>
<
%Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
rs_udstil_numRows = rs_udstil_numRows + Repeat1__numRows
%>
<
%Dim Repeat4__numRows
Dim Repeat4__index

Repeat4__numRows = 4
Repeat4__index = 0
rs_menu_rep_numRows = rs_menu_rep_numRows + Repeat4__numRows
%>
<
%Dim Repeat3__numRows
Dim Repeat3__index

Repeat3__numRows = -1
Repeat3__index = 0
rs_menu_kuld_mor_numRows = rs_menu_kuld_mor_numRows + Repeat3__numRows
%>
<
%Dim Repeat2__numRows
Dim Repeat2__index

Repeat2__numRows = -1
Repeat2__index = 0
rs_menu_kuld_far_numRows = rs_menu_kuld_far_numRows + Repeat2__numRows
%>
<
%'  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim rs_udstil_total
Dim rs_udstil_first
Dim rs_udstil_last

' set the record count
rs_udstil_total = rs_udstil.RecordCount

' set the number of rows displayed on this page
If (rs_udstil_numRows < 0) Then
  rs_udstil_numRows = rs_udstil_total
Elseif (rs_udstil_numRows = 0) Then
  rs_udstil_numRows = 1
End If

' set the first and last displayed record
rs_udstil_first = 1
rs_udstil_last  = rs_udstil_first + rs_udstil_numRows - 1

' if we have the correct record count, check the other stats
If (rs_udstil_total <> -1) Then
  If (rs_udstil_first > rs_udstil_total) Then
    rs_udstil_first = rs_udstil_total
  End If
  If (rs_udstil_last > rs_udstil_total) Then
    rs_udstil_last = rs_udstil_total
  End If
  If (rs_udstil_numRows > rs_udstil_total) Then
    rs_udstil_numRows = rs_udstil_total
  End If
End If
%>
<
%'  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim rs_1pr_total
Dim rs_1pr_first
Dim rs_1pr_last

' set the record count
rs_1pr_total = rs_1pr.RecordCount

' set the number of rows displayed on this page
If (rs_1pr_numRows < 0) Then
  rs_1pr_numRows = rs_1pr_total
Elseif (rs_1pr_numRows = 0) Then
  rs_1pr_numRows = 1
End If

' set the first and last displayed record
rs_1pr_first = 1
rs_1pr_last  = rs_1pr_first + rs_1pr_numRows - 1

' if we have the correct record count, check the other stats
If (rs_1pr_total <> -1) Then
  If (rs_1pr_first > rs_1pr_total) Then
    rs_1pr_first = rs_1pr_total
  End If
  If (rs_1pr_last > rs_1pr_total) Then
    rs_1pr_last = rs_1pr_total
  End If
  If (rs_1pr_numRows > rs_1pr_total) Then
    rs_1pr_numRows = rs_1pr_total
  End If
End If
%>
<
%'  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim rs_2pr_total
Dim rs_2pr_first
Dim rs_2pr_last

' set the record count
rs_2pr_total = rs_2pr.RecordCount

' set the number of rows displayed on this page
If (rs_2pr_numRows < 0) Then
  rs_2pr_numRows = rs_2pr_total
Elseif (rs_2pr_numRows = 0) Then
  rs_2pr_numRows = 1
End If

' set the first and last displayed record
rs_2pr_first = 1
rs_2pr_last  = rs_2pr_first + rs_2pr_numRows - 1

' if we have the correct record count, check the other stats
If (rs_2pr_total <> -1) Then
  If (rs_2pr_first > rs_2pr_total) Then
    rs_2pr_first = rs_2pr_total
  End If
  If (rs_2pr_last > rs_2pr_total) Then
    rs_2pr_last = rs_2pr_total
  End If
  If (rs_2pr_numRows > rs_2pr_total) Then
    rs_2pr_numRows = rs_2pr_total
  End If
End If
%>
<
%'  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim rs_3pr_total
Dim rs_3pr_first
Dim rs_3pr_last

' set the record count
rs_3pr_total = rs_3pr.RecordCount

' set the number of rows displayed on this page
If (rs_3pr_numRows < 0) Then
  rs_3pr_numRows = rs_3pr_total
Elseif (rs_3pr_numRows = 0) Then
  rs_3pr_numRows = 1
End If

' set the first and last displayed record
rs_3pr_first = 1
rs_3pr_last  = rs_3pr_first + rs_3pr_numRows - 1

' if we have the correct record count, check the other stats
If (rs_3pr_total <> -1) Then
  If (rs_3pr_first > rs_3pr_total) Then
    rs_3pr_first = rs_3pr_total
  End If
  If (rs_3pr_last > rs_3pr_total) Then
    rs_3pr_last = rs_3pr_total
  End If
  If (rs_3pr_numRows > rs_3pr_total) Then
    rs_3pr_numRows = rs_3pr_total
  End If
End If
%>
<
%'  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim rs_kip_total
Dim rs_kip_first
Dim rs_kip_last

' set the record count
rs_kip_total = rs_kip.RecordCount

' set the number of rows displayed on this page
If (rs_kip_numRows < 0) Then
  rs_kip_numRows = rs_kip_total
Elseif (rs_kip_numRows = 0) Then
  rs_kip_numRows = 1
End If

' set the first and last displayed record
rs_kip_first = 1
rs_kip_last  = rs_kip_first + rs_kip_numRows - 1

' if we have the correct record count, check the other stats
If (rs_kip_total <> -1) Then
  If (rs_kip_first > rs_kip_total) Then
    rs_kip_first = rs_kip_total
  End If
  If (rs_kip_last > rs_kip_total) Then
    rs_kip_last = rs_kip_total
  End If
  If (rs_kip_numRows > rs_kip_total) Then
    rs_kip_numRows = rs_kip_total
  End If
End If
%>
<
%'  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim rs_cert_total
Dim rs_cert_first
Dim rs_cert_last

' set the record count
rs_cert_total = rs_cert.RecordCount

' set the number of rows displayed on this page
If (rs_cert_numRows < 0) Then
  rs_cert_numRows = rs_cert_total
Elseif (rs_cert_numRows = 0) Then
  rs_cert_numRows = 1
End If

' set the first and last displayed record
rs_cert_first = 1
rs_cert_last  = rs_cert_first + rs_cert_numRows - 1

' if we have the correct record count, check the other stats
If (rs_cert_total <> -1) Then
  If (rs_cert_first > rs_cert_total) Then
    rs_cert_first = rs_cert_total
  End If
  If (rs_cert_last > rs_cert_total) Then
    rs_cert_last = rs_cert_total
  End If
  If (rs_cert_numRows > rs_cert_total) Then
    rs_cert_numRows = rs_cert_total
  End If
End If
%>
<
%'  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim rs_klubcert_total
Dim rs_klubcert_first
Dim rs_klubcert_last

' set the record count
rs_klubcert_total = rs_klubcert.RecordCount

' set the number of rows displayed on this page
If (rs_klubcert_numRows < 0) Then
  rs_klubcert_numRows = rs_klubcert_total
Elseif (rs_klubcert_numRows = 0) Then
  rs_klubcert_numRows = 1
End If

' set the first and last displayed record
rs_klubcert_first = 1
rs_klubcert_last  = rs_klubcert_first + rs_klubcert_numRows - 1

' if we have the correct record count, check the other stats
If (rs_klubcert_total <> -1) Then
  If (rs_klubcert_first > rs_klubcert_total) Then
    rs_klubcert_first = rs_klubcert_total
  End If
  If (rs_klubcert_last > rs_klubcert_total) Then
    rs_klubcert_last = rs_klubcert_total
  End If
  If (rs_klubcert_numRows > rs_klubcert_total) Then
    rs_klubcert_numRows = rs_klubcert_total
  End If
End If
%>
<
%'  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim rs_udstil_cacib_total
Dim rs_udstil_cacib_first
Dim rs_udstil_cacib_last

' set the record count
rs_udstil_cacib_total = rs_udstil_cacib.RecordCount

' set the number of rows displayed on this page
If (rs_udstil_cacib_numRows < 0) Then
  rs_udstil_cacib_numRows = rs_udstil_cacib_total
Elseif (rs_udstil_cacib_numRows = 0) Then
  rs_udstil_cacib_numRows = 1
End If

' set the first and last displayed record
rs_udstil_cacib_first = 1
rs_udstil_cacib_last  = rs_udstil_cacib_first + rs_udstil_cacib_numRows - 1

' if we have the correct record count, check the other stats
If (rs_udstil_cacib_total <> -1) Then
  If (rs_udstil_cacib_first > rs_udstil_cacib_total) Then
    rs_udstil_cacib_first = rs_udstil_cacib_total
  End If
  If (rs_udstil_cacib_last > rs_udstil_cacib_total) Then
    rs_udstil_cacib_last = rs_udstil_cacib_total
  End If
  If (rs_udstil_cacib_numRows > rs_udstil_cacib_total) Then
    rs_udstil_cacib_numRows = rs_udstil_cacib_total
  End If
End If
%>
<
%'  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim rs_ex_total
Dim rs_ex_first
Dim rs_ex_last

' set the record count
rs_ex_total = rs_ex.RecordCount

' set the number of rows displayed on this page
If (rs_ex_numRows < 0) Then
  rs_ex_numRows = rs_ex_total
Elseif (rs_ex_numRows = 0) Then
  rs_ex_numRows = 1
End If

' set the first and last displayed record
rs_ex_first = 1
rs_ex_last  = rs_ex_first + rs_ex_numRows - 1

' if we have the correct record count, check the other stats
If (rs_ex_total <> -1) Then
  If (rs_ex_first > rs_ex_total) Then
    rs_ex_first = rs_ex_total
  End If
  If (rs_ex_last > rs_ex_total) Then
    rs_ex_last = rs_ex_total
  End If
  If (rs_ex_numRows > rs_ex_total) Then
    rs_ex_numRows = rs_ex_total
  End If
End If
%>
<
%'  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim rs_res_cacib_total
Dim rs_res_cacib_first
Dim rs_res_cacib_last

' set the record count
rs_res_cacib_total = rs_res_cacib.RecordCount

' set the number of rows displayed on this page
If (rs_res_cacib_numRows < 0) Then
  rs_res_cacib_numRows = rs_res_cacib_total
Elseif (rs_res_cacib_numRows = 0) Then
  rs_res_cacib_numRows = 1
End If

' set the first and last displayed record
rs_res_cacib_first = 1
rs_res_cacib_last  = rs_res_cacib_first + rs_res_cacib_numRows - 1

' if we have the correct record count, check the other stats
If (rs_res_cacib_total <> -1) Then
  If (rs_res_cacib_first > rs_res_cacib_total) Then
    rs_res_cacib_first = rs_res_cacib_total
  End If
  If (rs_res_cacib_last > rs_res_cacib_total) Then
    rs_res_cacib_last = rs_res_cacib_total
  End If
  If (rs_res_cacib_numRows > rs_res_cacib_total) Then
    rs_res_cacib_numRows = rs_res_cacib_total
  End If
End If
%>
<
%'  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim rs_o_total
Dim rs_o_first
Dim rs_o_last

' set the record count
rs_o_total = rs_o.RecordCount

' set the number of rows displayed on this page
If (rs_o_numRows < 0) Then
  rs_o_numRows = rs_o_total
Elseif (rs_o_numRows = 0) Then
  rs_o_numRows = 1
End If

' set the first and last displayed record
rs_o_first = 1
rs_o_last  = rs_o_first + rs_o_numRows - 1

' if we have the correct record count, check the other stats
If (rs_o_total <> -1) Then
  If (rs_o_first > rs_o_total) Then
    rs_o_first = rs_o_total
  End If
  If (rs_o_last > rs_o_total) Then
    rs_o_last = rs_o_total
  End If
  If (rs_o_numRows > rs_o_total) Then
    rs_o_numRows = rs_o_total
  End If
End If
%>
<
%' *** Recordset Stats: if we don't know the record count, manually count them

If (rs_udstil_total = -1) Then

  ' count the total records by iterating through the recordset
  rs_udstil_total=0
  While (Not rs_udstil.EOF)
    rs_udstil_total = rs_udstil_total + 1
    rs_udstil.MoveNext
  Wend

  ' reset the cursor to the beginning
  If (rs_udstil.CursorType > 0) Then
    rs_udstil.MoveFirst
  Else
    rs_udstil.Requery
  End If

  ' set the number of rows displayed on this page
  If (rs_udstil_numRows < 0 Or rs_udstil_numRows > rs_udstil_total) Then
    rs_udstil_numRows = rs_udstil_total
  End If

  ' set the first and last displayed record
  rs_udstil_first = 1
  rs_udstil_last = rs_udstil_first + rs_udstil_numRows - 1
  
  If (rs_udstil_first > rs_udstil_total) Then
    rs_udstil_first = rs_udstil_total
  End If
  If (rs_udstil_last > rs_udstil_total) Then
    rs_udstil_last = rs_udstil_total
  End If

End If
%>
<
%' *** Recordset Stats: if we don't know the record count, manually count them

If (rs_1pr_total = -1) Then

  ' count the total records by iterating through the recordset
  rs_1pr_total=0
  While (Not rs_1pr.EOF)
    rs_1pr_total = rs_1pr_total + 1
    rs_1pr.MoveNext
  Wend

  ' reset the cursor to the beginning
  If (rs_1pr.CursorType > 0) Then
    rs_1pr.MoveFirst
  Else
    rs_1pr.Requery
  End If

  ' set the number of rows displayed on this page
  If (rs_1pr_numRows < 0 Or rs_1pr_numRows > rs_1pr_total) Then
    rs_1pr_numRows = rs_1pr_total
  End If

  ' set the first and last displayed record
  rs_1pr_first = 1
  rs_1pr_last = rs_1pr_first + rs_1pr_numRows - 1
  
  If (rs_1pr_first > rs_1pr_total) Then
    rs_1pr_first = rs_1pr_total
  End If
  If (rs_1pr_last > rs_1pr_total) Then
    rs_1pr_last = rs_1pr_total
  End If

End If
%>
<
%' *** Recordset Stats: if we don't know the record count, manually count them

If (rs_2pr_total = -1) Then

  ' count the total records by iterating through the recordset
  rs_2pr_total=0
  While (Not rs_2pr.EOF)
    rs_2pr_total = rs_2pr_total + 1
    rs_2pr.MoveNext
  Wend

  ' reset the cursor to the beginning
  If (rs_2pr.CursorType > 0) Then
    rs_2pr.MoveFirst
  Else
    rs_2pr.Requery
  End If

  ' set the number of rows displayed on this page
  If (rs_2pr_numRows < 0 Or rs_2pr_numRows > rs_2pr_total) Then
    rs_2pr_numRows = rs_2pr_total
  End If

  ' set the first and last displayed record
  rs_2pr_first = 1
  rs_2pr_last = rs_2pr_first + rs_2pr_numRows - 1
  
  If (rs_2pr_first > rs_2pr_total) Then
    rs_2pr_first = rs_2pr_total
  End If
  If (rs_2pr_last > rs_2pr_total) Then
    rs_2pr_last = rs_2pr_total
  End If

End If
%>
<
%' *** Recordset Stats: if we don't know the record count, manually count them

If (rs_3pr_total = -1) Then

  ' count the total records by iterating through the recordset
  rs_3pr_total=0
  While (Not rs_3pr.EOF)
    rs_3pr_total = rs_3pr_total + 1
    rs_3pr.MoveNext
  Wend

  ' reset the cursor to the beginning
  If (rs_3pr.CursorType > 0) Then
    rs_3pr.MoveFirst
  Else
    rs_3pr.Requery
  End If

  ' set the number of rows displayed on this page
  If (rs_3pr_numRows < 0 Or rs_3pr_numRows > rs_3pr_total) Then
    rs_3pr_numRows = rs_3pr_total
  End If

  ' set the first and last displayed record
  rs_3pr_first = 1
  rs_3pr_last = rs_3pr_first + rs_3pr_numRows - 1
  
  If (rs_3pr_first > rs_3pr_total) Then
    rs_3pr_first = rs_3pr_total
  End If
  If (rs_3pr_last > rs_3pr_total) Then
    rs_3pr_last = rs_3pr_total
  End If

End If
%>
<
%' *** Recordset Stats: if we don't know the record count, manually count them

If (rs_kip_total = -1) Then

  ' count the total records by iterating through the recordset
  rs_kip_total=0
  While (Not rs_kip.EOF)
    rs_kip_total = rs_kip_total + 1
    rs_kip.MoveNext
  Wend

  ' reset the cursor to the beginning
  If (rs_kip.CursorType > 0) Then
    rs_kip.MoveFirst
  Else
    rs_kip.Requery
  End If

  ' set the number of rows displayed on this page
  If (rs_kip_numRows < 0 Or rs_kip_numRows > rs_kip_total) Then
    rs_kip_numRows = rs_kip_total
  End If

  ' set the first and last displayed record
  rs_kip_first = 1
  rs_kip_last = rs_kip_first + rs_kip_numRows - 1
  
  If (rs_kip_first > rs_kip_total) Then
    rs_kip_first = rs_kip_total
  End If
  If (rs_kip_last > rs_kip_total) Then
    rs_kip_last = rs_kip_total
  End If

End If
%>
<
%' *** Recordset Stats: if we don't know the record count, manually count them

If (rs_ck_total = -1) Then

  ' count the total records by iterating through the recordset
  rs_ck_total=0
  While (Not rs_ck.EOF)
    rs_ck_total = rs_ck_total + 1
    rs_ck.MoveNext
  Wend

  ' reset the cursor to the beginning
  If (rs_ck.CursorType > 0) Then
    rs_ck.MoveFirst
  Else
    rs_ck.Requery
  End If

  ' set the number of rows displayed on this page
  If (rs_ck_numRows < 0 Or rs_ck_numRows > rs_ck_total) Then
    rs_ck_numRows = rs_ck_total
  End If

  ' set the first and last displayed record
  rs_ck_first = 1
  rs_ck_last = rs_ck_first + rs_ck_numRows - 1
  
  If (rs_ck_first > rs_ck_total) Then
    rs_ck_first = rs_ck_total
  End If
  If (rs_ck_last > rs_ck_total) Then
    rs_ck_last = rs_ck_total
  End If

End If
%>
<
%' *** Recordset Stats: if we don't know the record count, manually count them

If (rs_cert_total = -1) Then

  ' count the total records by iterating through the recordset
  rs_cert_total=0
  While (Not rs_cert.EOF)
    rs_cert_total = rs_cert_total + 1
    rs_cert.MoveNext
  Wend

  ' reset the cursor to the beginning
  If (rs_cert.CursorType > 0) Then
    rs_cert.MoveFirst
  Else
    rs_cert.Requery
  End If

  ' set the number of rows displayed on this page
  If (rs_cert_numRows < 0 Or rs_cert_numRows > rs_cert_total) Then
    rs_cert_numRows = rs_cert_total
  End If

  ' set the first and last displayed record
  rs_cert_first = 1
  rs_cert_last = rs_cert_first + rs_cert_numRows - 1
  
  If (rs_cert_first > rs_cert_total) Then
    rs_cert_first = rs_cert_total
  End If
  If (rs_cert_last > rs_cert_total) Then
    rs_cert_last = rs_cert_total
  End If

End If
%>
<
%' *** Recordset Stats: if we don't know the record count, manually count them

If (rs_klubcert_total = -1) Then

  ' count the total records by iterating through the recordset
  rs_klubcert_total=0
  While (Not rs_klubcert.EOF)
    rs_klubcert_total = rs_klubcert_total + 1
    rs_klubcert.MoveNext
  Wend

  ' reset the cursor to the beginning
  If (rs_klubcert.CursorType > 0) Then
    rs_klubcert.MoveFirst
  Else
    rs_klubcert.Requery
  End If

  ' set the number of rows displayed on this page
  If (rs_klubcert_numRows < 0 Or rs_klubcert_numRows > rs_klubcert_total) Then
    rs_klubcert_numRows = rs_klubcert_total
  End If

  ' set the first and last displayed record
  rs_klubcert_first = 1
  rs_klubcert_last = rs_klubcert_first + rs_klubcert_numRows - 1
  
  If (rs_klubcert_first > rs_klubcert_total) Then
    rs_klubcert_first = rs_klubcert_total
  End If
  If (rs_klubcert_last > rs_klubcert_total) Then
    rs_klubcert_last = rs_klubcert_total
  End If

End If
%>
<
%' *** Recordset Stats: if we don't know the record count, manually count them

If (rs_udstil_cacib_total = -1) Then

  ' count the total records by iterating through the recordset
  rs_udstil_cacib_total=0
  While (Not rs_udstil_cacib.EOF)
    rs_udstil_cacib_total = rs_udstil_cacib_total + 1
    rs_udstil_cacib.MoveNext
  Wend

  ' reset the cursor to the beginning
  If (rs_udstil_cacib.CursorType > 0) Then
    rs_udstil_cacib.MoveFirst
  Else
    rs_udstil_cacib.Requery
  End If

  ' set the number of rows displayed on this page
  If (rs_udstil_cacib_numRows < 0 Or rs_udstil_cacib_numRows > rs_udstil_cacib_total) Then
    rs_udstil_cacib_numRows = rs_udstil_cacib_total
  End If

  ' set the first and last displayed record
  rs_udstil_cacib_first = 1
  rs_udstil_cacib_last = rs_udstil_cacib_first + rs_udstil_cacib_numRows - 1
  
  If (rs_udstil_cacib_first > rs_udstil_cacib_total) Then
    rs_udstil_cacib_first = rs_udstil_cacib_total
  End If
  If (rs_udstil_cacib_last > rs_udstil_cacib_total) Then
    rs_udstil_cacib_last = rs_udstil_cacib_total
  End If

End If
%>
<
%' *** Recordset Stats: if we don't know the record count, manually count them

If (rs_ex_total = -1) Then

  ' count the total records by iterating through the recordset
  rs_ex_total=0
  While (Not rs_ex.EOF)
    rs_ex_total = rs_ex_total + 1
    rs_ex.MoveNext
  Wend

  ' reset the cursor to the beginning
  If (rs_ex.CursorType > 0) Then
    rs_ex.MoveFirst
  Else
    rs_ex.Requery
  End If

  ' set the number of rows displayed on this page
  If (rs_ex_numRows < 0 Or rs_ex_numRows > rs_ex_total) Then
    rs_ex_numRows = rs_ex_total
  End If

  ' set the first and last displayed record
  rs_ex_first = 1
  rs_ex_last = rs_ex_first + rs_ex_numRows - 1
  
  If (rs_ex_first > rs_ex_total) Then
    rs_ex_first = rs_ex_total
  End If
  If (rs_ex_last > rs_ex_total) Then
    rs_ex_last = rs_ex_total
  End If

End If
%>
<
%' *** Recordset Stats: if we don't know the record count, manually count them

If (rs_res_cacib_total = -1) Then

  ' count the total records by iterating through the recordset
  rs_res_cacib_total=0
  While (Not rs_res_cacib.EOF)
    rs_res_cacib_total = rs_res_cacib_total + 1
    rs_res_cacib.MoveNext
  Wend

  ' reset the cursor to the beginning
  If (rs_res_cacib.CursorType > 0) Then
    rs_res_cacib.MoveFirst
  Else
    rs_res_cacib.Requery
  End If

  ' set the number of rows displayed on this page
  If (rs_res_cacib_numRows < 0 Or rs_res_cacib_numRows > rs_res_cacib_total) Then
    rs_res_cacib_numRows = rs_res_cacib_total
  End If

  ' set the first and last displayed record
  rs_res_cacib_first = 1
  rs_res_cacib_last = rs_res_cacib_first + rs_res_cacib_numRows - 1
  
  If (rs_res_cacib_first > rs_res_cacib_total) Then
    rs_res_cacib_first = rs_res_cacib_total
  End If
  If (rs_res_cacib_last > rs_res_cacib_total) Then
    rs_res_cacib_last = rs_res_cacib_total
  End If

End If
%>
<
%' *** Recordset Stats: if we don't know the record count, manually count them

If (rs_o_total = -1) Then

  ' count the total records by iterating through the recordset
  rs_o_total=0
  While (Not rs_o.EOF)
    rs_o_total = rs_o_total + 1
    rs_o.MoveNext
  Wend

  ' reset the cursor to the beginning
  If (rs_o.CursorType > 0) Then
    rs_o.MoveFirst
  Else
    rs_o.Requery
  End If

  ' set the number of rows displayed on this page
  If (rs_o_numRows < 0 Or rs_o_numRows > rs_o_total) Then
    rs_o_numRows = rs_o_total
  End If

  ' set the first and last displayed record
  rs_o_first = 1
  rs_o_last = rs_o_first + rs_o_numRows - 1
  
  If (rs_o_first > rs_o_total) Then
    rs_o_first = rs_o_total
  End If
  If (rs_o_last > rs_o_total) Then
    rs_o_last = rs_o_total
  End If

End If
%>
<
%Dim MM_paramName 
%>
<
%' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters

Dim MM_keepNone
Dim MM_keepURL
Dim MM_keepForm
Dim MM_keepBoth

Dim MM_removeList
Dim MM_item
Dim MM_nextItem

' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> "") Then
  MM_removeList = MM_removeList & "&" & MM_paramName & "="
End If

MM_keepURL=""
MM_keepForm=""
MM_keepBoth=""
MM_keepNone=""

' add the URL parameters to the MM_keepURL string
For Each MM_item In Request.QueryString
  MM_nextItem = "&" & MM_item & "="
  If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
    MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item))
  End If
Next

' add the Form variables to the MM_keepForm string
For Each MM_item In Request.Form
  MM_nextItem = "&" & MM_item & "="
  If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
    MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item))
  End If
Next

' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
If (MM_keepBoth <> "") Then 
  MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
End If
If (MM_keepURL <> "")  Then
  MM_keepURL  = Right(MM_keepURL, Len(MM_keepURL) - 1)
End If
If (MM_keepForm <> "") Then
  MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
End If

' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
  If (firstItem <> "") Then
    MM_joinChar = "&"
  Else
    MM_joinChar = ""
  End If
End Function
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>
function Thumbnail(tmb_suff,tmb_filename)
  Dim tmb_NewFilename, tmb_Path, tmb_PosPath, tmb_PosExt
  if not isnull(tmb_filename) then
    tmb_PosPath = InStrRev(tmb_filename,"/")
    tmb_Path = ""
    if tmb_PosPath > 0 then
      tmb_Path = mid(tmb_filename,1,tmb_PosPath)
    end if
    tmb_PosExt = InStrRev(tmb_filename,".")
    if tmb_PosExt > 0 then
      tmb_NewFilename = tmb_Path & mid(tmb_filename,tmb_PosPath+1,tmb_PosExt-(tmb_PosPath+1)) & tmb_suff & ".jpg"
    else
      tmb_NewFilename = tmb_Path & mid(tmb_filename,tmb_PosPath+1,len(tmb_filename)-tmb_PosPath) & tmb_suff & ".jpg"
    end if
  end if
  Thumbnail = tmb_NewFilename
end function
</SCRIPT>
<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>					
function DoDateTime(str, nNamedFormat, nLCID)				
	dim strRet								
	dim nOldLCID								
										
	strRet = str								
	If (nLCID > -1) Then							
		oldLCID = Session.LCID						
	End If									
										
	On Error Resume Next							
										
	If (nLCID > -1) Then							
		Session.LCID = nLCID						
	End If									
										
	If ((nLCID < 0) Or (Session.LCID = nLCID)) Then				
		strRet = FormatDateTime(str, nNamedFormat)			
	End If									
										
	If (nLCID > -1) Then							
		Session.LCID = oldLCID						
	End If									
										
	DoDateTime = strRet							
End Function									
</SCRIPT>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<script type="text/javascript" src="simpletreemenu.js"></script>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<!--[if lt IE 7]><script src="/ie7/ie7-standard-p.js" type="text/javascript"></script><![endif]-->
<title>Kennel Hannes hjemmeside</title>
<link href="kennelhanne.css" rel="stylesheet" type="text/css" />
<link href="simpletree.css" rel="stylesheet" type="text/css" />
<script language="javascript" type="text/javascript">
<!--
function copyrightDate(){
wriYr = new Date
var doYr = wriYr.getFullYear()
document.write("&copy 1996 - " + doYr + "")
}
function applyDMXTooltip(trigger) {//v1.4
	window.stylesFolderName = 'Styles';
	var arg = {};
	var options = ['contentType', 'dataProvider','showEffect','easing','showAt',
  'showDirection', 'showDuration','showDelay','closeEvent','styleTheme',
	'showCloseBtn','onshow','onhide','mouseOffsetX','mouseOffsetY','x','y','w','h'];
  for (var i = 0; i < options.length && i < arguments.length-1; i++) {
		arg[options[i]] = arguments[i + 1];
	}
	showTooltip(trigger, arg);
}
//-->
</script>
<script language="javascript" type="text/javascript" src="../ScriptLibrary/jquery-latest.pack.js"></script>
<script language="javascript" type="text/javascript" src="../ScriptLibrary/dmxTooltips.js"></script>
</head>
<body>
<!--Logotop start-->
<!--Indhold logotop start-->
<div class="logotop" id="logotop">
  <div class="cornerBox">
    <div class="corner TL"></div>
    <div class="corner TR"></div>
    <div class="corner BL"></div>
    <div class="corner BR"></div>
    <div class="cornerBoxInner">
      [h1] Kennel Hanne[/h1]
      [h3] Familie opdræt af Beagler [/h3]
    </div>
  </div>
</div>
<!--Indhold logotop slut-->
<!--logobund start-->
<div class="logobund"></div>
<!--Logobund slut-->
<!--Side start-->
<div class="side">
  <div class="menu">
    <div class="cornerBox">
      <div class="corner TL"></div>
      <div class="corner TR"></div>
      <div class="corner BL"></div>
      <div class="corner BR"></div>
      <div class="cornerBoxInner">
        <!--#include file="menu.asp" -->
      </div>
    </div>
  </div>
  <div class="indhold" id="indhold">
    <div class="cornerBox">
      <div class="corner TL"></div>
      <div class="corner TR"></div>
      <div class="corner BL"></div>
      <div class="corner BR"></div>
      <div class="cornerBoxInner clearfix">
        <% If Not rs_udstil.EOF Or Not rs_udstil.BOF Then %>
          <div class="center">
            [h2]<%=(rs_udstil.Fields.Item("tittel").Value)%><br />
            <%=(rs_udstil.Fields.Item("hundenavn").Value)%>[/h2]
            <% Dim foto
	foto =(rs_udstil.Fields.Item("udst_foto").Value)
	If foto <>"" then%>
            [img]<%=foto%>" alt="<%=(rs_udstil.Fields.Item("hundenavn").Value)%>" />
            <% Else %>
            <%Response.Write""%>
            <% End If %>
            <br />
            <p>
              <% Dim tekst
	tekst = (rs_udstil.Fields.Item("da_tekst_udst_foto").Value)
	If tekst <>"" then%>
              <
%strTekst = (rs_udstil.Fields.Item("da_tekst_udst_foto").Value)

' Unders&oslash;ger variblen strTekst for Null v&aelig;rdien
If Not isNull(strTekst) Then
  strTekst = Replace(strTekst, vbCrLf, "[br]")
  Response.Write strTekst
  end if
%>
              <%else%>
              <%Response.Write""%>
              <%end if%>
            </p>
            <blockquote>
              <p><%=(rs_udstil.Fields.Item("kaldenavn").Value)%> har deltaget i <%=(rs_udstil_total)%> udstillinger og opn&aring;et
                <% If Not rs_ex.EOF Or Not rs_ex.BOF Then %>
                   <%=(rs_ex_total)%> excellent,
                  <% End If ' end Not rs_ex.EOF Or NOT rs_ex.BOF %>
                <% If Not rs_1pr.EOF Or Not rs_1pr.BOF Then %>
                  <% DIM etpr
		  etpr =(rs_1pr.Fields.Item("prize").Value)
		  if etpr <>"" then%>
                  <%=(rs_1pr_total)%>
                  <%Response.Write " x Very good"%>
                  <% Else %>
                  <%Response.Write""%>
                  <% End If %>
                  <% End If ' end Not rs_1pr.EOF Or NOT rs_1pr.BOF %>
                <% If Not rs_2pr.EOF Or Not rs_2pr.BOF Then %>
                  <% DIM topr
  DIM total_topr
  total_topr = (rs_2pr_total)
		  topr =(rs_2pr.Fields.Item("prize").Value)
		  If topr <>"" and total_topr > 1 then %>
                  <% Response.Write", " %>
                  <%=(rs_2pr_total)%>
                  <% Response.Write" x  Good"%>
                  <% ElseIf topr <>"" and total_topr = 1 Then %>
                  <% Response.Write", " %>
                  <%=(rs_2pr_total)%>
                  <% Response.Write" x  Good"%>
                  <% ElseIf topr = "" Then %>
                  <% Response.Write""%>
                  <% End If %>
                  <% End If ' end Not rs_2pr.EOF Or NOT rs_2pr.BOF %>
                <% If Not rs_3pr.EOF Or Not rs_3pr.BOF Then %>
                  <% DIM trepr
  DIM tolal_trepr
  tolal_trepr = (rs_3pr_total)
		  trepr = (rs_3pr.Fields.Item("prize").Value)
		  if trepr <>"" and tolal_trepr > 1 then %>
                  <% Response.Write", " %>
                  <%=(rs_3pr_total)%>
                  <% Response.Write" x Sufficient"%>
                  <% ElseIf trepr <>"" and tolal_trepr = 1 Then %>
                  <% Response.Write", " %>
                  <%=(rs_3pr_total)%>
                  <% Response.Write" x Sufficient"%>
                  <% ElseIf trepr ="" Then %>
                  <% Response.Write"" %>
                  <% End If %>
                  <% End If ' end Not rs_3pr.EOF Or NOT rs_3pr.BOF %>
                <% If Not rs_kip.EOF Or Not rs_kip.BOF Then %>
                  <% DIM kip
		  kip = (rs_kip.Fields.Item("prize").Value)
		  if kip <>"" then %>
                  <% Response.Write", " %>
                  <%=(rs_kip_total)%>
                  <% Response.Write" x KIP"%>
                  <% Else %>
                  <% Response.Write"" %>
                  <% End If %>
                  <% End If ' end Not rs_kip.EOF Or NOT rs_kip.BOF %>
                <% If Not rs_o.EOF Or Not rs_o.BOF Then %>
                  <% DIM nul
		  nul = (rs_o.Fields.Item("prize").Value)
		  if nul <>"" then %>
                  <% Response.Write", " %>
                  <%=(rs_o_total)%>
                  <% Response.Write" x Disqualified"%>
                  <% Else %>
                  <% Response.Write"" %>
                  <% End If %>
                  <% End If ' end Not rs_o.EOF Or NOT rs_o.BOF %>
                <% If Not rs_cert.EOF Or Not rs_cert.BOF Then %>
                  <% DIM cert2
	 cert2 = (rs_cert.Fields.Item("cert").Value)
		  if cert2 <>"" then %>
                  <% Response.Write" samt " %>
                  <%=(rs_cert_total)%>
                  <% Response.Write" x cert" %>
                  <% Else %>
                  <% Response.Write"" %>
                  <% End If %>
                  <% End If ' end Not rs_cert.EOF Or NOT rs_cert.BOF %>
                <% If Not rs_klubcert.EOF Or Not rs_klubcert.BOF Then %>
                  <% Dim klub
klub = (rs_klubcert.Fields.Item("klubcert").Value) 
If klub <>"" then%>
                  <% Response.Write", " %>
                  <%=(rs_klubcert_total)%>
                  <% Response.Write" x Klubcert" %>
                  <% Else %>
                  <% Response.Write"" %>
                  <% End If %>
                  <% End If ' end Not rs_klubcert.EOF Or NOT rs_klubcert.BOF %>
                <% If Not rs_res_cacib.EOF Or Not rs_res_cacib.BOF Then %>
                  <% Dim rescacib
  rescacib = (rs_res_cacib.Fields.Item("CACIB").Value) 
  If rescacib <>"" then%>
                  <% Response.Write", " %>
                  <%=(rs_res_cacib_total)%>
                  <% Response.Write" x Res. CACIB." %>
                  <% Else %>
                  <% Response.Write"" %>
                  <% End If %>
                  <% End If ' end Not rs_res_cacib.EOF Or NOT rs_res_cacib.BOF %>
                <% If Not rs_udstil_cacib.EOF Or Not rs_udstil_cacib.BOF Then %>
                  <% Dim cacib
cacib = (rs_udstil_cacib.Fields.Item("CACIB").Value)
If cacib <>"" then %>
                  <% Response.Write", " %>
                  <%=(rs_udstil_cacib_total)%>
                  <% Response.Write" x CACIB." %>
                  <% Else %>
                  <% Response.Write"." %>
                  <% End If %>
                  <% End If ' end Not rs_udstil_cacib.EOF Or NOT rs_udstil_cacib.BOF %>
              </p>
            </blockquote>
            <table class="taped" id="table95">
              <tr align="left" bgcolor="#669966">
                <td class="tdped_bg">Dato</td>
                <td class="tdped_bg">Sted</td>
                <td class="tdped_bg">Type</td>
                <td class="tdped_bg">Dommer</td>
                <td class="tdped_bg">Klasse</td>
                <td class="tdped_bg">Pr&aelig;miering</td>
                <td class="tdped_bg">Foto</td>
              </tr>
              <% 
While ((Repeat1__numRows <> 0) AND (NOT rs_udstil.EOF)) 
%>
                <tr align="left">
                  <td class="tdped"><%= DoDateTime((rs_udstil.Fields.Item("dato").Value), 1, 2057) %></td>
                  <td class="tdped"><%=(rs_udstil.Fields.Item("sted").Value)%></td>
                  <td class="tdped"><%=(rs_udstil.Fields.Item("art").Value)%></td>
                  <td class="tdped"><%=(rs_udstil.Fields.Item("dommer").Value)%></td>
                  <td class="tdped"><%=(rs_udstil.Fields.Item("Klasse").Value)%></td>
                  <td class="tdped"><%=(rs_udstil.Fields.Item("pr").Value)%><%=(rs_udstil.Fields.Item("pla").Value)%><%=(rs_udstil.Fields.Item("ck").Value)%><%=(rs_udstil.Fields.Item("cert").Value)%><%=(rs_udstil.Fields.Item("bhk_btk").Value)%><%=(rs_udstil.Fields.Item("btk_bhk_nr").Value)%><%=(rs_udstil.Fields.Item("Bir_bim").Value)%><%=(rs_udstil.Fields.Item("klubcert").Value)%><%=(rs_udstil.Fields.Item("CACIB").Value)%><%=(rs_udstil.Fields.Item("big").Value)%><%=(rs_udstil.Fields.Item("bignr").Value)%>&nbsp;<%=(rs_udstil.Fields.Item("bis").Value)%><%=(rs_udstil.Fields.Item("bisnr").Value)%></td>
                  <td align="center" class="tdped"><%Dim PicShow4
PicShow4 = Thumbnail("_small",(rs_udstil.Fields.Item("foto").Value))
PicShow5 = (rs_udstil.Fields.Item("foto").Value)
					             
IF PicShow5 <>"" THEN%>
                    [img]<%=PicShow4%>" alt="Foto fa udstillingen" border="0" onmouseover="applyDMXTooltip(this,'image','<%= Replace(Replace(Replace((rs_udstil.Fields.Item("foto").Value),"'", "&#39;"),"""","&quot;"),"\\","\\\\") %>','slide','easeOutExpo','left','out',100,100,'mouseout','none',false,'','',0,0,'auto','auto','auto','auto')" />
                    <%ELSE%>
                    <%Response.Write"&nbsp;"%>
                    <%End If%></td>
                </tr>
                <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  rs_udstil.MoveNext()
Wend
%>
            </table>
          </div>
          <% End If ' end Not rs_udstil.EOF Or NOT rs_udstil.BOF %>
          <% If rs_udstil.EOF And rs_udstil.BOF Then %>
  <div class="center"> Der er endnu ikke noteret nogle udstillings resultater</div>
  <% End If ' end rs_udstil.EOF And rs_udstil.BOF %>
      </div>
    </div>
  </div>
</div>
[img]maren.png" class="logofoto" alt="Kennel Hanne" /> [img]maren_max.png" class="logofoto2" alt="Kennel Hanne" />
<!--Side slut-->
<!--Footer start-->
<div class="footer">
  <div class="cornerBox">
    <div class="corner TL"></div>
    <div class="corner TR"></div>
    <div class="corner BL"></div>
    <div class="corner BR"></div>
    <div class="cornerBoxInner">
      <!--Indhold footer start-->
      <!--#include file="copyright.htm" -->
      <!--Indhold footer slut-->
    </div>
  </div>
</div>
<!--Footer slut-->
</body>
</html>
<
%rs_udstil.Close()
Set rs_udstil = Nothing
%>
<
%rs_1pr.Close()
Set rs_1pr = Nothing
%>
<
%rs_2pr.Close()
Set rs_2pr = Nothing
%>
<
%rs_3pr.Close()
Set rs_3pr = Nothing
%>
<
%rs_kip.Close()
Set rs_kip = Nothing
%>
<
%rs_o.Close()
Set rs_o = Nothing
%>
<
%rs_cert.Close()
Set rs_cert = Nothing
%>
<
%rs_klubcert.Close()
Set rs_klubcert = Nothing
%>
<
%rs_udstil_cacib.Close()
Set rs_udstil_cacib = Nothing
%>
<
%rs_res_cacib.Close()
Set rs_res_cacib = Nothing
%>
<
%rs_ex.Close()
Set rs_ex = Nothing
%>

--------------------------------------------

Hi Patrick

Have you figure something out?

Regards
Naya

Hi Naya,

Sorry, but no luck yet. I spend a lot of time on it this past weekend. Tomorrow I will ask the Support Team to look into this further.

Kind regards, Patrick

Hi Patrick

Thank you for your effort. Lets hope Support can help.

Regards
Naya

Hello Naya,

After a bit of investigation I need you to set a little test:
Place one of those big images in page by inserting it as static image. This way browser will "pre-load" it. Then check to see if the tooltip that should contain that same image is loading correctly.
If that is so you need to add an image preloading script build in Dreamweaver on body tag on "onLoad" event. You can find it in BEHAVIORS panel.

Regards,

Hi

The problem is stil the same, take a look here, at the bottom at the page:
kennel-hanne.dk/ny/udstilling.asp?regnr=DK03869/2009

It's also a problem if it is only text in the tooltip, take a look here, click at the thumbnails:
kennel-hanne.dk/ny/foto_hund.asp?regnr=13690/92

Hello Naya,

The Problem with CSS Image gallery is that behavior is called before the gallery to fit the image. if all images are same size tooltip will always be on position.

About the Grid - you haven't placed the BIG image in the page but a thumb of it ... please, place the original image that you whan't to be loaded into the tooltip on the page.

EDIT:
Please, excuse me. The last statement is not true.

I still need to get this problem solved. Otherwise I can't use the the Advange Tooltip extensioen.

Hello Naya,

Advanced Tooltip has been updated. Please, download and update your version.

Regards,

Hi
I have updated Tooltip, but can not get it to work. If I use this code:

<li><img src="<%=(rs_foto.Fields.Item("foto".Value)%>" class="image" alt="" onmouseover="applyDMXTooltip(this,'jQuery','<%=(rs_foto.Fields.Item("tekst_da".Value)%>','fade','easeOutQuad','bottom','out',100,100,'mouseout','white',false,'','',0,0,'auto','auto','auto','auto')" /></li>

There is not showing any tooltip.
And if I change the code to this, as you suggest in the manual:

<li><img src="<%=(rs_foto.Fields.Item("foto".Value)%>" class="image" alt="" onmouseover="applyDMXTooltip(this,'jQuery','<%=Replace(Replace(Replace((rs_foto.Fields.Item("tekst_da".Value),"\'", "&#39;","""","&quot;","\\","\\\\"%>','fade','easeOutQuad','bottom','out',600,600,'mouseout','white',false,'','',0,0,'auto','auto','auto','auto')" /></li>

I get this error:

Microsoft VBScript runtime error '800a005e'

Invalid use of Null: 'Replace'

/hjem/foto_hund.asp, line 174


The image gallery is not working(pictures showing below eatch other) but the tooltip does.

Can you help me with this?

Regards
Naya

Have you found a solution on this problem? I really need it to work.

Naya