[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[cobalt-users] Chillisoft asp site not running
- Subject: [cobalt-users] Chillisoft asp site not running
- From: "Gerhard W. Recher "<gwr@xxxxxxxxxxxx>
- Date: Thu Jul 26 21:09:36 2001
- List-id: Mailing list for users to share thoughts on Cobalt products. <cobalt-users.list.cobalt.com>
we Have Problems running a Site with asp on RAQ4
we got a Web-site based on ASP, this one is running without any problems
on IIS5 on Win2kserver....
But NOT on RAQ4
We transformed db.mdb to MS-Sql... this is no issue....
We use a MS-SQL 7.0 Database, DSN is ok !!! see also Script test.asp we
testet here wether Application_onStart will be performed or not...
here is Global.asa
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_OnStart
'==Visual InterDev Generated - startspan==
'--Project Data Connection
Application("DataConn_ConnectionString") = "scherer"
Application("DataConn_ConnectionTimeout") = 15
Application("DataConn_CommandTimeout") = 30
Application("DataConn_CursorLocation") = 3
Application("DataConn_RuntimeUserName") = "scherer"
Application("DataConn_RuntimePassword") = "scherer"
'-- Project Data Environment
'Set DE = Server.CreateObject("DERuntime.DERuntime")
'Application("DE") = DE.Load(Server.MapPath("Global.ASA"),
"_private/DataEnvironment/DataEnvironment.asa")
'==Visual InterDev Generated - endspan==
End Sub
Sub Session_OnStart
Session("aServer") = "http://"; & Request.ServerVariables("SERVER_NAME")
& "/"
Session("PressID") = Request.Cookies("STPressPassID")
Session("PressName") = Request.Cookies("STPressPassName")
Session("PressLogin") = ""
End Sub
</SCRIPT>
DSN connection is ok we testet this with test.asp:
<%@ LANGUAGE = VBScript %>
<HTML>
<HEAD>
<TITLE>Test Schererteam </TITLE>
</HEAD>
<BODY>
'zu fuss
<% Set MyConn=Server.CreateObject("ADODB.Connection")
MyConn.Open "Data Source=scherer;User ID=scherer;Password=scherer;"
MySQL="Select * from st_MenuGroup"
Set MyRs=MyConn.Execute(MySQL)
%>
<table border="1">
<tr bgcolor=""><% 'Put Headings On The Table of Field Names
howmanyfields=MyRs.fields.count -1 %>
<% for i=0 to howmanyfields %>
<td><b><font color=""><%=MyRs(i).name %></font> </b></td>
<% next %>
</tr>
<% ' Get all the records
do while not MyRs.eof %>
<tr bgcolor="">
<% for i = 0 to howmanyfields
ThisRecord = MyRs(I)
If IsNull(ThisRecord) Then
ThisRecord = " "
end if %>
<td valign=top><font color=""><%=Thisrecord%></font></td><% next %>
</tr>
<%MyRs.movenext
loop%>
</table>
<%
MyRs.close
Set MyRs= Nothing
MyConn.Close
set MyConn=nothing
%>
'mit global.asa
<% Set MyConn=Server.CreateObject("ADODB.Connection")
MyConn.Open Application("DataConn_ConnectionString"),
Application("DataConn_RuntimeUserName"),
Application("DataConn_RuntimePassword")
MySQL="SELECT * FROM st_MenuGroup WHERE Active = 1 ORDER BY GroupOrder"
'Select * from st_MenuGroup"
Set MyRs=MyConn.Execute(MySQL)
%>
<table border="1">
<tr bgcolor=""><% 'Put Headings On The Table of Field Names
howmanyfields=MyRs.fields.count -1 %>
<% for i=0 to howmanyfields %>
<td><b><font color=""><%=MyRs(i).name %></font> </b></td>
<% next %>
</tr>
<% ' Get all the records
do while not MyRs.eof %>
<tr bgcolor="">
<% for i = 0 to howmanyfields
ThisRecord = MyRs(I)
If IsNull(ThisRecord) Then
ThisRecord = " "
end if %>
<td valign=top><font color=""><%=Thisrecord%></font></td><% next %>
</tr>
<%MyRs.movenext
loop%>
</table>
<%
MyRs.close
Set MyRs= Nothing
MyConn.Close
set MyConn=nothing
%>
</BODY>
</HTML>
We also searched around with google and within cobalt and chillisoft
Knowlege-bases and faq's, but we still have no Idea why we have no success
in implementing this site...
..
even worse.. we get no errors in our log-files....
only the client will get following: produced by /de/index.asp....
<snip>
Microsoft VBScript compilation error '800a0400'
Expected statement
/de/index.asp, line 357
With rs
</snip>
Gerhard W. Recher
(Geschäftsführer)
NETpilot GmbH
Wilhelm-Riehl-Str. 13
D-80687 München
Tel: ++49 89 547182 0
Fax: ++49 89 547182 33
GSM: ++49 171 4802507
w3: http://www.netpilot.net
e-Mail: mailto:Gerhard.Recher@xxxxxxxxxxxx
here ist index.asp
<%@ LANGUAGE="VBScript" %>
<%
Option Explicit
Dim DataConn, cmdTemp, rs
Function OpenDB
Set DataConn = Server.CreateObject("ADODB.Connection")
DataConn.ConnectionTimeout = Application("DataConn_ConnectionTimeout")
DataConn.CommandTimeout = Application("DataConn_CommandTimeout")
DataConn.Open Application("DataConn_ConnectionString"),
Application("DataConn_RuntimeUserName"),
Application("DataConn_RuntimePassword")
Set cmdTemp = Server.CreateObject("ADODB.Command")
End Function
Function CloseDB
DataConn.Close
Set DataConn = Nothing
End Function
Function OpenRS(sql)
Set rs = Server.CreateObject("ADODB.Recordset")
cmdTemp.CommandText = sql
cmdTemp.CommandType = 1
Set cmdTemp.ActiveConnection = DataConn
rs.Open cmdTemp, , 1, 3
End Function
Function CloseRS
rs.Close
Set rs = Nothing
End Function
%>
<%
Dim aServer, isIE4, thisID, start, show, e
aServer = Session("aServer")
isIE4 = (Instr(Request.ServerVariables("HTTP_USER_AGENT"),"MSIE 4") > 0)
Or (Instr(Request.ServerVariables("HTTP_USER_AGENT"),"MSIE 5") > 0) Or
(Instr(Request.ServerVariables("HTTP_USER_AGENT"),"MSIE 6") > 0)
thisID = Request("id")
start = false
show = true
Select Case thisID
Case "11","12","13","14","15" e = 1
Case "21","22","23" e = 2
Case "31" e = 3
Case "41" e = 4
Case "51","52","53","54" e = 5
Case "61","62" e = 6
Case "71","72","73" e = 7
Case "81","82","83" e = 8
Case Else show = false
start = true
End Select
Function WriteHeader(n,hint,Title)
Dim s
s = "<div class=""head"" id=""head" & n & """>"
s = s & "<table border=""0"" cellspacing=""0"" cellpadding=""0""
width=""144"">"
s = s & "<tr><td height=""20"" valign=""top"" align=""left""
width=""14""><img border=""0"" src=""" & aServer &
"jscript/images/main_null.gif"" width=""7"" height=""10"" name=""img" & n
& """ align=""top"" vspace=""4""></td>"
If isIE4 Then
s = s & "<td height=""20"" valign=""middle"" align=""left""
width=""130""><a href=""#"" onclick=""displayHead('menu" & n & "','img" &
n & "',false); showMenu('menu" & n & "','img" & n &"');""
onmouseover=""displayHead('menu" & n & "',img" & n & ",true); showHint(" &
hint & ",144,getPos());"" onmouseout=""displayHead('menu" & n & "',img" &
n & ",false); closeAll();"">"
Else
s = s & "<td height=""20"" valign=""middle"" align=""left""
width=""130""><a href=""#"" onclick=""displayHead('menu" & n & "','img" &
n & "',false); showMenu('menu" & n & "','img" & n &"');""
onmouseover=""displayHead('menu" & n & "',img" & n & ",true);""
onmouseout=""displayHead('menu" & n &"',img" & n & ",false);"">"
End If
s = s & "<font size=""2"">" & Title &
"</font></a></td></tr></table></div>"
WriteHeader = s
End Function
Function showInactive(Title,Spacer)
Dim s
s = "<tr><td width=""14"" height=""16""></td>"
s = s & "<td height=""16""><img border=""0"" src=""" & aServer &
"jscript/images/sub_null.gif"" width=""12"" height=""9""></td><td
height=""16"">"
If Spacer Then s = s & "<img border=""0"" src=""" & aServer &
"images/leer.gif"" width=""10"" height=""3""><br>"
s = s & Title
If Spacer Then s = s & "<img border=""0"" src=""" & aServer &
"images/leer.gif"" width=""10"" height=""3""><br>"
s = s & "</td></tr>"
showInactive = s
End Function
Function showActive(mn,Title,Spacer,URL,Param)
Dim s, theParam
theParam = "?id=" & mn
If Len(Param) > 0 Then theParam = theParam & Param
s = "<tr><td width=""14"" height=""16""></td><td height=""16"">"
s = s & "<img border=""0"" src=""" & aServer &
"jscript/images/sub_null.gif"" width=""12"" height=""9"" name=""img" & mn
& """></td>"
s = s & "<td height=""16"">"
If Spacer Then s = s & "<img border=""0"" src=""" & aServer &
"images/leer.gif"" width=""10"" height=""3""><br>"
s = s & "<a href=""" & aServer & URL & theParam & """ target=""_top""
onmouseover=""displayItem(img" & mn & ",true)""
onmouseout=""displayItem(img" & mn & ",false)"">" & Title & "</a>"
If Spacer Then s = s & "<br><img border=""0"" src=""" & aServer &
"images/leer.gif"" width=""10"" height=""3""><br>"
s = s & "</td></tr>"
showActive = s
End Function
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>ST - SCHERER TEAM GMBH</title>
<% If isIE4 Then %>
<link rel="stylesheet" href="css/menu.css" type="text/css">
<% Else %>
<link rel="stylesheet" href="css/menuns.css" type="text/css">
<% End If %>
<script language="JavaScript">
<!--
var win;
function openwin(targurl, width, height, options) {
if (!options)
op = "resizable=auto";
op = "width=" + width + ",height=" + height + "," + options;
if (null != win) {
if (!win.closed) win.close();
}
win = window.open(targurl, "", op);
}
// -->
</script>
</head>
<%If show Then %>
<body
onload="displayHead('menu0<%=e%>','img0<%=e%>',false);showMenu('menu0<%=e%>','img0<%=e%>');"
topmargin="0" leftmargin="0" marginwidth="0" marginheight="0"
background="../images/bkg.gif" bgcolor="#FFFFFF" text="#000000"
link="#0A80C3" vlink="#0A80C3" alink="#0A80C3">
<%Else%>
<body topmargin="0" leftmargin="0" marginwidth="0" marginheight="0"
background="../images/bkg.gif" bgcolor="#FFFFFF" text="#000000"
link="#0A80C3" vlink="#0A80C3" alink="#0A80C3">
<%End If%>
<%OpenDB%>
<table border="0" width="760" cellspacing="0" cellpadding="0">
<tr>
<td width="145" align="right" valign="bottom" bgcolor="#FFFFFF"><a
href="10_extra/index01.asp"><img border="0" src="images/bohrer.gif"
vspace="4" WIDTH="87" HEIGHT="56"></a></td>
<td width="420" valign="bottom" align="left"><a
href="10_extra/index02.asp"><img border="0" src="images/mi3.gif"
vspace="4" hspace="4" width="87" height="56"></a><a
href="10_extra/index03.asp"><img border="0" src="images/chines.gif"
vspace="4" width="87" height="56"></a></td>
<td width="195" valign="top"><img border="0" src="images/logoalt.gif"
vspace="5" WIDTH="195" HEIGHT="70"></td>
</tr>
<tr>
<td width="145" align="left" valign="top" rowspan="3">
<script language="JavaScript" type="text/javascript">
var n;
var doc;
var style;
var activeMenu = 0;
var b = parseInt(navigator.appVersion);
var NS4 = (document.layers) ? true : false;
var IE4 = ((document.all)&&(b>=4))?true:false;
ver4 = (NS4 || IE4) ? true : false;
var isActive = 0;
if (parseInt(navigator.appVersion) >= 4) {
doc="document.all";
style = ".style";
}
with (document) {
if (NS4) {
write("<STYLE TYPE='text/css'>");
write(".head {position:absolute; left:0; top:100;
visibility:visible}");
write(".menu {position:absolute; left:0; top:0;
visibility:hidden}");
write("</STYLE>");
} else if (IE4) {
write("<STYLE TYPE='text/css'>");
write(".menu {display:none}");
write(".hint {position:absolute;}")
write("</STYLE>");
}
}
function showHint(name, x, y) {
closeAll();
if (isActive != name) {
eval('document.all["' + 'hint' + name + '"].style.pixelTop = y');
eval('document.all["' + 'hint' + name + '"].style.pixelLeft = x');
}
openHint("hint"+name);
isActive = name;
}
function openHint(hint_name){
eval(doc + '["' + hint_name + '"]' + style + '.visibility = "visible"');
}
function closeHint(hint_name){
eval(doc + '["' + hint_name + '"]' + style + '.visibility = "hidden"');
}
function closeAll(){
if (isActive) {
closeHint("hint"+isActive);
isActive = 0;
}
}
function initHint() {
document.onmouseup = closeAll;
}
function getIndex(item) {
index = null;
for (i=0; i<document.layers.length; i++) {
aMenu = document.layers[i];
if (aMenu.id == item) {
index = i;
break;
}
}
return index;
}
function setMenuPos() {
findex = 0;
nextY = document.layers[findex].pageY +
document.layers[findex].document.height;
for (i=findex+1; i<document.layers.length; i++) {
aMenu = document.layers[i];
if (aMenu.visibility != "hide") {
aMenu.pageY = nextY;
nextY += aMenu.document.height;
}
}
}
function initMenu(){
if (NS4) {
for (i=0; i<document.layers.length; i++) {
aMenu = document.layers[i];
if (aMenu.id.indexOf("menu") != -1) {
aMenu.visibility = "hide";
}
}
setMenuPos();
} else if (IE4) {
adiv = document.all.tags("DIV");
for (i=0; i<adiv.length; i++) {
if (adiv(i).className == "menu") {
adiv(i).style.display = "none";
}
}
}
}
if (document.images) {
var subnull = new Image();
subnull.src = "<%=aServer%>jscript/images/sub_null.gif";
var psub = new Image();
psub.src = "<%=aServer%>jscript/images/sub_left.gif";
var mainup = new Image();
mainup.src = "<%=aServer%>jscript/images/main_up.gif";
var maindn = new Image();
maindn.src = "<%=aServer%>jscript/images/main_dn.gif";
var mainnull = new Image();
mainnull.src = "<%=aServer%>jscript/images/main_null.gif";
}
function showMenu(item,img) {
if (!ver4) return;
isVisible = false;
if (IE4) {
aMenu = eval(item);
if (aMenu.style.display == "block") {
isVisible = true;
}
initMenu();
if (isVisible) {
aMenu.style.display = "none";
} else {
aMenu.style.display = "block";
}
} else {
aMenu = eval("document." + item);
if (aMenu.visibility == "show") {
isVisible = true;
}
initMenu();
aMenu = eval("document." + item);
if (isVisible) {
aMenu.visibility = "hide";
} else {
aMenu.visibility = "show";
}
setMenuPos();
}
}
function displayItem(a,flag) {
if (flag) {
a.src = psub.src;
}
else
a.src = subnull.src;
}
function displayHead(item,a,flag) {
if (flag) {
if (!ver4) {
a.src = mainup.src;
return;
}
isVisible = false;
if (IE4) {
aMenu = eval(item);
if (aMenu.style.display == "block") {
isVisible = true;
}
} else {
aMenu = eval("document." + item);
if (aMenu.visibility == "show") {
isVisible = true;
}
}
if (isVisible) {
a.src = mainup.src;
}
else
a.src = maindn.src;
}
else
a.src = mainnull.src;
}
function getPos() {
var el = document.elementFromPoint(event.x,event.y);
return 79 +
el.parentElement.parentElement.parentElement.parentElement.parentElement.parentElement.offsetTop;
}
if (IE4) initHint();
</script>
<%
Dim rs1
Function OpenRS_1(sql)
Set rs1 = Server.CreateObject("ADODB.Recordset")
cmdTemp.CommandText = sql
cmdTemp.CommandType = 1
Set cmdTemp.ActiveConnection = DataConn
rs1.Open cmdTemp, , 1, 3
End Function
Function CloseRS_1
rs1.Close
Set rs1 = Nothing
End Function
%>
<% If isIE4 Then %>
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="16"> </td>
</tr>
</table><%
End If
Dim i, m, n, OpenID, menuID
menuID = CLng(thisID)
i = 1
OpenRS("SELECT * FROM ""st_menugroup"" WHERE ""Active"" = 1 ORDER BY
""GroupOrder""")
With rs
Do While Not .EOF
n = "0" & i%>
<%=WriteHeader(n,i,.Fields("GroupName"))%><%
OpenRS_1("SELECT * FROM ""st_menu"" WHERE ""GroupID"" = " &
.Fields("GroupID") & " AND ""Active"" = 1 ORDER BY ""ItemOrder""")
With rs1
If (.RecordCount > 0) Then %>
<div class="menu" id="menu0<%=i%>">
<table border="0" cellspacing="2" cellpadding="0"><%
m = 0
Do While Not .EOF
m = m + 1
OpenID = .Fields("OpenID")
If (OpenID = menuID) Then %>
<%=showInactive(.Fields("ItemName"),CBool(.Fields("Spacer")))
%><%
Else %>
<%=showActive(.Fields("OpenID"),.Fields("ItemName"),CBool(.Fields("Spacer")),.Fields("ItemURL"),"")
%><%
End If
.MoveNext
Loop
End If%>
</table>
</div><%
End With
CloseRS_1
i = i + 1
.MoveNext
Loop
End With
CloseRS %>
<div class="head">
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="14"><img border="0" src="<%=aServer%>images/leer.gif"
width="14" height="2"></td>
<td></td>
<td><img border="0" src="<%=aServer%>images/leer.gif" width="10"
height="2"></td>
</tr>
<tr>
<td height="190" width="14"></td>
<td valign="bottom" height="190"><font
face="Verdana,Arial,Geneva,Helvetica" size="2"
color="#FFFFFF">Suche</font></td>
<td height="190"></td>
</tr>
<tr>
<td width="14"></td>
<td>
<form method="POST" action="<%=aServer%>query.asp" name="search"
id="search">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="90%" valign="top" align="left"><input
style="font-size: 8pt" type="text" name="query" <%If isIE4 Then
%>size="12" <% Else %>size="8" <%End If%> size="20"></td>
<td width="10%" valign="top" align="left"><input type="image"
border="0" src="<%=aServer%>de/images/go.gif" align="top" hspace="4"
vspace="3" onclick="submit();" width="26" height="17"></td>
</tr>
</table>
</form>
</td>
<td></td>
</tr>
<tr>
<td width="14"></td>
<td><% If Not Start Then %>
<a href="<%=aServer%>de/index.asp"><img border="0"
src="<%=aServer%>de/images/home.gif" width="44" height="17"></a><% End
If%>
</td>
<td></td>
</tr>
<tr>
<td width="14" height="30"></td>
<td valign="bottom" height="30"><a
href="<%=aServer%>de/recht.asp"><font
face="Verdana,Arial,Geneva,Helvetica" size="1" color="#FFFFFF"
style="text-decoration: none">Rechtliche Hinweise</font></a></td>
<td height="30"></td>
</tr>
</table>
</div>
<% If Not isIE4 Then %>
<script language="JavaScript">
<!--
fmenu = "Head01";
findex = getIndex(fmenu);
setMenuPos();
// -->
</script>
<% End If %>
<% If isIE4 Then %>
<div class="hint" id="hint1">
<table border="0" cellspacing="0" cellpadding="4" bgcolor="#0A80C3"
width="230">
<tr>
<td><font size="1"> </font></td>
<td><font face="Verdana,Arial,Geneva,Helvetica" size="2"
color="#FFFFFF">Lernen Sie uns kennen,<br>
erfahren Sie, was wir tun,<br>
wie wir es tun und vor allem:<br>
<b>warum</b> wir es tun.</font></td>
</tr>
</table>
</div>
<div class="hint" id="hint2">
<table border="0" cellspacing="0" cellpadding="4" bgcolor="#0A80C3"
width="230">
<tr>
<td><font size="1"> </font></td>
<td><font face="Verdana,Arial,Geneva,Helvetica" size="2"
color="#FFFFFF">Hier
verraten wir Ihnen, wie<br>
wir profitable und langfristige<br>
Beziehungen für und mit<br>
unseren Kunden aufbauen.</font></td>
</tr>
</table>
</div>
<div class="hint" id="hint3">
<table border="0" cellspacing="0" cellpadding="4" bgcolor="#0A80C3"
width="230">
<tr>
<td><font size="1"> </font></td>
<td><font face="Verdana,Arial,Geneva,Helvetica" size="2"
color="#FFFFFF">Sehen Sie
selbst, wie viele<br>
große Marken uns bereits<br>
ihr Vertrauen geschenkt<br>
haben. Sie werden staunen ...</font></td>
</tr>
</table>
</div>
<div class="hint" id="hint4">
<table border="0" cellspacing="0" cellpadding="4" bgcolor="#0A80C3"
width="230">
<tr>
<td><font size="1"> </font></td>
<td><font face="Verdana,Arial,Geneva,Helvetica" size="2"
color="#FFFFFF">Zusammen sind wir einfach<br>
stärker - noch stärker!
</font></td>
</tr>
</table>
</div>
<div class="hint" id="hint5">
<table border="0" cellspacing="0" cellpadding="4" bgcolor="#0A80C3"
width="230">
<tr>
<td><font size="1"> </font></td>
<td><font face="Verdana,Arial,Geneva,Helvetica" size="2"
color="#FFFFFF">Unsere
Presseabteilung -<br>
das Neueste von uns und<br>
über uns ...</font></td>
</tr>
</table>
</div>
<div class="hint" id="hint6">
<table border="0" cellspacing="0" cellpadding="4" bgcolor="#0A80C3"
width="230">
<tr>
<td><font size="1"> </font></td>
<td><font face="Verdana,Arial,Geneva,Helvetica" size="2"
color="#FFFFFF">Stellungswechsel
gefällig?<br>
Hier liegen Sie richtig!<br>
Alles über unsere aktuellen<br>
Jobangebote, inkl. Online-<br>
Bewerbung.</font></td>
</tr>
</table>
</div>
<div class="hint" id="hint7">
<table border="0" cellspacing="0" cellpadding="4" bgcolor="#0A80C3"
width="230">
<tr>
<td><font size="1"> </font></td>
<td><font face="Verdana,Arial,Geneva,Helvetica" size="2"
color="#FFFFFF">Tipps,
Trends, Tools<br>
und Fun ...</font></td>
</tr>
</table>
</div>
<div class="hint" id="hint8">
<table border="0" cellspacing="0" cellpadding="4" bgcolor="#0A80C3"
width="230">
<tr>
<td><font size="1"> </font></td>
<td><font face="Verdana,Arial,Geneva,Helvetica" size="2"
color="#FFFFFF">Mails and
more. Nehmen<br>
Sie Verbindung mit uns auf.<br>
Lob, Kritik, Anregungen,<br>
Verbesserungsvorschläge -<br>
wir sind offen für alles und<br>
freuen uns auf den Dialog<br>
mit Ihnen.</font></td>
</tr>
</table>
</div>
<% End If %>
</td>
<td width="615" colspan="2" align="right"><img border="0"
src="../images/strichob.gif" WIDTH="593" HEIGHT="12"></td>
</tr>
<tr>
<td width="420" valign="top" align="center" rowspan="2">
<table border="0" width="380" cellspacing="0" cellpadding="0">
<tr>
<td width="100%"><img border="0" src="images/hl/hilites.gif"
hspace="2" vspace="10" width="108" height="15"></td>
</tr>
<tr>
<td width="100%" background="../images/strichl.gif"><img
border="0" src="images/leer.gif" width="10" height="20"></td>
</tr>
<!-- Start Container 1 -->
<%
OpenRS("SELECT * FROM ""st_Homepage"" WHERE ""inBox"" = 0 AND ""active"" =
1 ORDER BY ""HomeOrder""")
With rs
Do While Not .EOF %>
<tr>
<td width="100%">
<table border="0" width="380" cellspacing="8" cellpadding="0">
<tr>
<td valign="top" width="75"><a
href="<%=.Fields("Link")%>"><img border="0"
src="<%=.Fields("ImageName")%>" width="<%=.Fields("ImageWidth")%>"
height="<%=.Fields("ImageHeight")%>"></a></td>
<td valign="top" width="305"><a
href="<%=.Fields("Link")%>"><%If .Fields("TitleImage") <> "" Then%><img
border="0" src="<%=.Fields("TitleImage")%>"
WIDTH="<%=.Fields("TitleWidth")%>"
HEIGHT="<%=.Fields("TitleHeight")%>"><%Else%>
<font face="Verdana,Arial,Geneva,Helvetica"
size="2"><b><%=.Fields("Title")%></b></font><%End If%></a><br>
<img border="0" src="images/leer.gif" width="5"
height="5"><br>
<font face="Verdana,Arial,Geneva,Helvetica"
size="2"><%=.Fields("Teaser")%> </font><a
href="<%=.Fields("Link")%>"><img border="0" src="../images/pfeil.gif"
alt="mehr" align="absbottom" width="15" height="13"></a></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%" background="../images/strichl.gif"><img
border="0" src="images/leer.gif" width="10" height="13"></td>
</tr><%
.MoveNext
Loop
End With
CloseRS %>
<!-- Ende Container 1 -->
<!-- Start Container Ticker -->
<tr>
<td width="100%"> <br><%
Dim jn, tar
OpenRS("SELECT * FROM ""st_JavaTicker""")
With rs
If .RecordCount > 0 Then
%>
<applet style="LEFT: 0px; TOP: 0px" codebase="java/"
code="aTicker.class" width="380" height="18" mayscript
archive="../aticker.jar" VIEWASTEXT id=Applet1>
<param NAME="font2" VALUE="Verdana, 12, 1, 0">
<param NAME="font1" VALUE="Verdana, 12, 1, 688323">
<param NAME="speed" VALUE="2"><%
jn = 0
Do While Not .EOF
Select Case .Fields("Target")
Case 1 tar = "_top"
Case 2 tar = "_blank"
Case 3 tar = "_self"
End Select
%>
<param NAME="s<%=jn%>"
VALUE="<%=.Fields("Text")%>;<%=.Fields("URL")%>;<%=tar%>"><%
jn = jn + 1
.MoveNext
Loop %>
<param NAME="bgcolor" VALUE="16777215">
<param NAME="delay" VALUE="30">
<param NAME="file" VALUE="s">
<param NAME="local" VALUE="true">
<param NAME="csep" VALUE=";">
</applet><%
End If
End With
CloseRS
%>
</td>
</tr>
<!-- Ende Container Ticker -->
</table>
</td>
<td width="195" valign="top">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%"><img border="0" src="images/hl/update.gif"
hspace="6" vspace="10" WIDTH="70" HEIGHT="15"><br>
<img border="0" src="images/leer.gif" width="5"
height="5"></td>
</tr>
<tr>
<td width="100%"><%
OpenRS("SELECT * FROM ""st_Homepage"" WHERE ""inBox"" = 1 AND ""active"" =
1 ORDER BY ""HomeOrder""")
With rs
If .RecordCount > 0 Then %>
<table border="0" width="100%" cellspacing="0" cellpadding="1"
bgcolor="#808080">
<tr>
<td width="100%">
<table border="0" width="100%" cellspacing="0" cellpadding="8"
bgcolor="#F9F9F9"><%
Do While Not .EOF %>
<tr>
<td valign="top"><b><font face="Verdana,Arial,Geneva,Helvetica"
size="2"><%=.Fields("Title")%></font><br>
</b><img border="0" src="../images/leer.gif" width="5"
height="5"><br>
<font face="Verdana,Arial,Geneva,Helvetica"
size="2"><%=.Fields("Teaser")%> </font><a
href="<%=.Fields("Link")%>"><img
border="0" src="../images/pfeil.gif" alt="mehr"
align="absbottom" width="15" height="13"></a><br></td>
</tr><%
.MoveNext
Loop %>
</table>
</td>
</tr>
</table><%
End If
End With %></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="195" valign="bottom" align="right"><img border="0"
src="../images/ball.jpg" WIDTH="100" HEIGHT="60"></td></tr></table>
<%CloseDB%>
</body>
</html>