Advanced Tooltips Support Product Page
In progress
Tooltip Not In Place
Reported 04 Oct 2009 01:28:59
1
has this problem
04 Oct 2009 01:28:59 Denis Hoffmann posted:
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?
Replies
Replied 04 Oct 2009 17:56:26
04 Oct 2009 17:56:26 Patrick Julicher replied:
Hi Denis,
Any testpage we could have a look at?
Kind regards, Patrick
Any testpage we could have a look at?
Kind regards, Patrick
Replied 16 Oct 2009 15:33:09
16 Oct 2009 15:33:09 Naya Brandt replied:
Replied 17 Oct 2009 20:16:10
17 Oct 2009 20:16:10 Patrick Julicher replied:
Denis, Naya,
Please post the source code of your pages.
Kind regards, Patrick
Please post the source code of your pages.
Kind regards, Patrick
Replied 17 Oct 2009 20:18:48
17 Oct 2009 20:18:48 Patrick Julicher replied:
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
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
Replied 17 Oct 2009 20:40:34
17 Oct 2009 20:40:34 Naya Brandt replied:
Hi
I have uploaded closebtn.png. It didn't help so here is my source code.
Thanks
Naya
-------------------------------------------------
--------------------------------------------
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("© 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øger variblen strTekst for Null væ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å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æ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)%> <%=(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),"'", "'"),"""","""),"\\","\\\\") %>','slide','easeOutExpo','left','out',100,100,'mouseout','none',false,'','',0,0,'auto','auto','auto','auto')" /> <%ELSE%> <%Response.Write" "%> <%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 %>
--------------------------------------------
Replied 25 Oct 2009 14:25:55
25 Oct 2009 14:25:55 Naya Brandt replied:
Hi Patrick
Have you figure something out?
Regards
Naya
Have you figure something out?
Regards
Naya
Replied 25 Oct 2009 21:25:35
25 Oct 2009 21:25:35 Patrick Julicher replied:
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
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
Replied 26 Oct 2009 12:33:43
26 Oct 2009 12:33:43 Naya Brandt replied:
Hi Patrick
Thank you for your effort. Lets hope Support can help.
Regards
Naya
Thank you for your effort. Lets hope Support can help.
Regards
Naya
Replied 13 Nov 2009 10:37:15
13 Nov 2009 10:37:15 Miroslav Zografski replied:
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,
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,
Replied 13 Nov 2009 11:22:21
13 Nov 2009 11:22:21 Naya Brandt replied:
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
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
Replied 13 Nov 2009 12:02:42
13 Nov 2009 12:02:42 Miroslav Zografski replied:
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.
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.
Replied 14 Jan 2010 10:49:21
14 Jan 2010 10:49:21 Naya Brandt replied:
I still need to get this problem solved. Otherwise I can't use the the Advange Tooltip extensioen.
Replied 04 Feb 2010 13:16:56
04 Feb 2010 13:16:56 Miroslav Zografski replied:
Hello Naya,
Advanced Tooltip has been updated. Please, download and update your version.
Regards,
Advanced Tooltip has been updated. Please, download and update your version.
Regards,
Replied 08 Feb 2010 10:32:02
08 Feb 2010 10:32:02 Naya Brandt replied:
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),"\'", "'","""",""","\\","\\\\"%>','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
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),"\'", "'","""",""","\\","\\\\"%>','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
Replied 14 May 2010 11:10:24
14 May 2010 11:10:24 Naya Brandt replied:
Have you found a solution on this problem? I really need it to work.
Naya
Naya