HVORFOR virker det ikke?????
Prøv lige at klikke her: (klik på KØB)http://www.meldgaard.com/dk/engros/forside3.asp
prøv så at klikke her
http://www.meldgaard.com/dk/engros/forside.asp
Hvorfor virker det på forside.asp når det ikke virker på forside3.asp???????
Her er koderne:
FORSIDE3.asp
<%response.buffer=true%>
<% adato = DateSerial(year(now),month(now),day(now))
if session("user") = "" then
response.redirect "login.asp"
end if
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open Session("ConnectionStringEngros")
SQL = "SELECT * FROM varer WHERE Nyhed = 'Ja'"
Set forsidetilbud = Conn.Execute(SQL)
%>
<HTML>
<HEAD>
<TITLE>meldgaard ENGROS A/S</TITLE>
<META HTTP-EQUIV="Pragma" CONTENT="no-cache">
<META HTTP-EQUIV="Expires" CONTENT="1-1-1999">
<link href="style.css" rel="stylesheet">
<SCRIPT language=javascript src="menuscript.js" type=text/javascript></SCRIPT>
<style type="text/css">
<!--
A:link {text-decoration: none}
A:visited {text-decoration: none}
A:active {text-decoration: none}
-->
</style>
<link rel=stylesheet href="http://www.meldgaard.com/meldgaardstyle.css" type="text/css">
<style type="text/css">
BODY{
scrollbar-3d-light-color: #abcdef;
scrollbar-arrow-color: #000080;
scrollbar-base-color: #000080;
scrollbar-dark-shadow-color: #ffffff;
scrollbar-face-color: #abcdef;
scrollbar-highlight-color: #ffffff;
scrollbar-shadow-color: #ffffff;
}
</style>
<script language="JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
//-->
</script>
</HEAD>
<BODY BACKGROUND="images/" BGCOLOR="#6789ab" TEXT="#000000" LINK="#cc0000" VLINK="#cc0000" ALINK="#cc0000" MARGINWIDTH="0" MARGINHEIGHT="0" TOPMARGIN="0" LEFTMARGIN="0" scroll="yes">
<!---- <SCRIPT LANGUAGE=VBScript RUNAT=Server>
FUNCTION ReplaceComma (s)
if len(s) > 5 then
pos = InStr(s, ",")
if pos > 0 and pos < 4 then
s = Mid(s, 1, pos - 1) & "." & Mid(s, pos + 1)
end if
end if
ReplaceComma = s
END FUNCTION
</SCRIPT> ---->
<script language="javascript">
<!--
function open_kurven(newin) {
kurven=window.open(newin,"kurven","width=340,height=340,top=100,left=100,scrollbars=yes")
}
function open_vindue(newin) {
vindue=window.open(newin,"vindue","width=520,height=180,top=100,left=100,scrollbars")
}
function open_favorit(newin) {
favorit=window.open(newin,"favorit","width=300,height=340,top=100,left=100,scrollbars")
}
function open_prisliste(newin) {
prisliste=window.open(newin,"prisliste","width=476,height=400,scrollbars")
}
// -->
</script>
<TABLE BORDER="0" align="center" CELLSPACING="0" CELLPADDING="0" HEIGHT="100%">
<TR>
<TD>
<TABLE WIDTH="780" BORDER="0" align="center" CELLPADDING="2" CELLSPACING="0">
<TR>
<TD VALIGN="top" bgcolor="#000080">
<!---- LOGO TOP ---->
<!---- INDHOLD ---->
<TABLE WIDTH="780" BORDER="0" CELLPADDING="0" CELLSPACING="0">
<TR>
<TD WIDTH="629" colspan="2" align="left" VALIGN="top" bgcolor="#ffffff"><img src="topbanner.jpg" width="630" height="80"></TD>
<TD rowspan="2" VALIGN="top" bgcolor="#9ABCDE"> <CENTER>
<BR>
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" WIDTH="150">
<!-- #include virtual="/dk/engros/navigation.asp" -->
</TABLE>
<BR>
</CENTER></TD>
</TR>
<TR>
<TD WIDTH="470" align="left" VALIGN="top" bgcolor="#ffffff"> <p><br>
<br>
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" WIDTH="295">
<FORM OnSubmit="return false" >
<TR>
<%
pcount = 0
do while not forsidetilbud.eof
set rsbillede=server.CreateObject("ADODB.Recordset")
rsbillede.open "SELECT * FROM billeder WHERE varenr = '"&forsidetilbud("varenr")&"'",conn,3
if rsbillede.recordcount < 1 then
dbbillede = ""
else
dbbillede = rsbillede("billede")
end if
pcount = pcount + 1
SQL = "SELECT * FROM tekster WHERE Varenr = '"& forsidetilbud("varenr") &"' ORDER BY sort"
Set forsidetilbudtekst = Conn.Execute(SQL)
tmpPath = Server.MapPath("../engros/prod-images/")
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(tmpPath)
Set arrFile = objFolder.Files
For Each File In arrFile
tmpFile = File.Name
billedet = dbbillede
if lcase(tmpfile) = lcase(billedet) then
billede = dbbillede
exit for
else
billede = "ingen.jpg"
end if
Next
Set objFS = Nothing
%>
<TD align="left" VALIGN="top"> <CENTER>
<table width="235" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="15" height="35"></td>
<td width="10" height="35" background="images/grid.gif">
<font face="verdana, arial, helvetica" color="#ffffff" size="3"><b>
</b></font> </td>
<td width="190" height="35" background="images/grid.gif">
<font face="verdana, arial, helvetica" color="#ffffff" size="3"><b>
<% =forsidetilbud("navn") %>
</b></font></td>
<td width="19" rowspan="7"></td>
<td width="1" rowspan="7" bgcolor="#78B243"></td>
</tr>
<tr>
<td width="15"> </td>
<td width="200" colspan="2"><img src="prod-images/<% =billede %>" width="200" height="150" border="0"></td>
</tr>
<tr>
<td width="15"> </td>
<td width="200" colspan="2"><font face="verdana, arial, helvetica" color="#999999" size="1">
<% do while not forsidetilbudtekst.eof %>
<% =forsidetilbudtekst("Beskrivelse") %>
<br>
<% forsidetilbudtekst.movenext
loop
%>
</font></td>
</tr>
<tr>
<td height="1"></td>
<td height="1" bgcolor="#999999"></td>
<td height="1" bgcolor="#999999"></td>
</tr>
<tr>
<% if session("user") <> "gæst" then
set rspris=server.CreateObject("ADODB.Recordset")
rspris.open "SELECT * FROM "&session("gruppe")&" WHERE Varenr = '"& forsidetilbud("varenr") &"'",conn,3
if rspris.recordcount < 1 then
set rspris=server.CreateObject("ADODB.Recordset")
rspris.open "SELECT * FROM Prisgruppe1 WHERE Varenr = '"& forsidetilbud("varenr") &"'",conn,3
end if
%>
<td> </td>
<td colspan="2" valign="middle" bgcolor="#CCCCCC">
<p><font color="#000000" size="3" face="Verdana, Arial, Helvetica, sans-serif"><strong>
</strong> </font><font color="#000000" size="3" face="Verdana, Arial, Helvetica, sans-serif"><strong>
</strong></font></p>
<div align="left"><font face="verdana, arial, helvetica" color="#000080" size="1">
</font><font color="#000000" size="3" face="Verdana, Arial, Helvetica, sans-serif"><strong>Kr.</strong></font><font face="verdana, arial, helvetica" color="#000080" size="1">
</font><font color="#000000" size="3" face="Verdana, Arial, Helvetica, sans-serif"><strong>
<% =formatnumber(rspris("pris"),2) %>
</strong></font><font face="verdana, arial, helvetica" color="#000080" size="1">
</font></div></td>
</tr>
<tr>
<td height="1"></td>
<td height="1" bgcolor="#999999"></td>
<td height="1" bgcolor="#999999"></td>
</tr>
<tr>
<td height="15"></td>
<td width="10" background="images/grid.gif"></td>
<td background="images/grid.gif"> <div align="right"><font face="verdana, arial, helvetica" size="1">
<INPUT NAME="PPris<% =pcount %>" TYPE="hidden" VALUE="<% =formatnumber(rspris("pris"),2) %>">
<INPUT NAME="PCode<% =pcount %>" TYPE="hidden" VALUE="<%=forsidetilbud("varenr")%>">
Stk.: <INPUT NAME="antal<% =pcount %>" TYPE="text" MAXLENGTH="4" SIZE="3" VALUE="1" style="font-family: Verdana, Arial, helvetica; color: #000000 ; font-size: 10px ">
<A HREF="#" OnClick="open_kurven('kurven.asp?antal=' + document.forms[0].antal<% =pcount %>.value + '&productcode=' + document.forms[0].PCode<% =pcount %>.value + '&pris=' + document.forms[0].PPris<% =pcount %>.value );document.forms[0].reset();"><IMG SRC="images/order.gif" WIDTH="55" HEIGHT="12" BORDER="0"></A></font></div></td>
<% else %>
<% end if %>
</tr>
<tr>
<td height="25" colspan="4"></td>
<td height="25" bgcolor="78B243"></td>
</tr>
</table>
</CENTER></TD>
<%
SET rspris = Nothing
pcount = pcount + 0
if pcount = 2 then
response.write("</TR><TR>")
end if
forsidetilbud.MoveNext()
loop %>
</TR>
</FORM>
</TABLE></TD>
<TD WIDTH="159" align="center" VALIGN="top" bgcolor="ffffff"> <div align="center">
<table width="145" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><br> <br> </td>
</tr>
<tr>
<td height="25" valign="middle" background="images/grid.gif"><div align="center"><font color="#FFFFFF" size="3" face="Verdana, Arial, Helvetica, sans-serif"><strong>NYHEDER</strong></font></div></td>
</tr>
<tr>
<td height="20">
<div align="right"><font color="#CCCCCC" size="1" face="Verdana, Arial, Helvetica, sans-serif">27.08.02</font></div></td>
</tr>
<tr>
<td><img src="images/display-small.jpg" width="140" height="200"></td>
</tr>
<tr>
<td><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Ny
DISPLAY løsning fra Nature Line!</font></strong></td>
</tr>
<tr>
<td height="1" bgcolor="#78B243"></td>
</tr>
<tr>
<td><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Trænger
din butik til lidt pep? eller ønsker du at sælge
mere tilbehør?<br>
<br>
Så er denne displayløsning lige det du mangler!<br>
<br>
Ring til os på <strong>74 33 72 84 </strong>eller
send en <a href="mailto:webshop@meldgaard.com"><font color="#78B243">mail</font></a><font color="#78B243">
</font>for at høre hvordan du kommer igang!</font></td>
</tr>
<tr>
<td> </td>
</tr>
</table>
</div></TD>
<!---- NAVIGATION ---->
</TR>
</TABLE>
<!---- BUND NAVIGATION ---->
</TD>
</TR>
<tr align="right">
<td height="32" class=copyright valign="top"><br>
<img src="http://www.meldgaard.com/logoer/engroslogo.gif" border="0"><br>
© Copyright meldgaard GRUPPEN 2001-2002</td>
</tr>
</TABLE>
</BODY>
******************************************************
FORSIDE.asp
<%response.buffer=true%>
<% adato = DateSerial(year(now),month(now),day(now))
if session("user") = "" then
response.redirect "login.asp"
end if
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open Session("ConnectionStringEngros")
SQL = "SELECT * FROM varer WHERE Nyhed = 'Ja'"
Set forsidetilbud = Conn.Execute(SQL)
%>
<HTML>
<HEAD>
<TITLE>meldgaard ENGROS A/S</TITLE>
<META HTTP-EQUIV="Pragma" CONTENT="no-cache">
<META HTTP-EQUIV="Expires" CONTENT="1-1-1999">
<link href="style.css" rel="stylesheet">
<SCRIPT language=javascript src="menuscript.js" type=text/javascript></SCRIPT>
<style type="text/css">
<!--
A:link {text-decoration: none}
A:visited {text-decoration: none}
A:active {text-decoration: none}
-->
</style>
<link rel=stylesheet href="http://www.meldgaard.com/meldgaardstyle.css" type="text/css">
<style type="text/css">
BODY{
scrollbar-3d-light-color: #abcdef;
scrollbar-arrow-color: #000080;
scrollbar-base-color: #000080;
scrollbar-dark-shadow-color: #ffffff;
scrollbar-face-color: #abcdef;
scrollbar-highlight-color: #ffffff;
scrollbar-shadow-color: #ffffff;
}
</style>
<% if session("user") <> "gæst" then %>
<script type="text/javascript">
hiddenImg= new Image();
hiddenImg.src= "tilbud-moelle.gif";
hiddenImg.src= "moelleknap.gif";
</script>
<% end if %>
<script language="JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
//-->
</script>
</HEAD>
<BODY BACKGROUND="images/" BGCOLOR="#6789ab" TEXT="#000000" LINK="#cc0000" VLINK="#cc0000" ALINK="#cc0000" MARGINWIDTH="0" MARGINHEIGHT="0" TOPMARGIN="0" LEFTMARGIN="0" scroll="yes">
<!---- <SCRIPT LANGUAGE=VBScript RUNAT=Server>
FUNCTION ReplaceComma (s)
if len(s) > 5 then
pos = InStr(s, ",")
if pos > 0 and pos < 4 then
s = Mid(s, 1, pos - 1) & "." & Mid(s, pos + 1)
end if
end if
ReplaceComma = s
END FUNCTION
</SCRIPT> ---->
<script language="javascript">
<!--
function open_kurven(newin) {
kurven=window.open(newin,"kurven","width=340,height=340,top=100,left=100,scrollbars=yes")
}
function open_vindue(newin) {
vindue=window.open(newin,"vindue","width=520,height=180,top=100,left=100,scrollbars")
}
function open_favorit(newin) {
favorit=window.open(newin,"favorit","width=300,height=340,top=100,left=100,scrollbars")
}
function open_prisliste(newin) {
prisliste=window.open(newin,"prisliste","width=476,height=400,scrollbars")
}
// -->
</script>
<% if session("user") <> "gæst" then %>
<!-- Julereklame -->
<script language="JavaScript">
<!-- Gem koden for gamle browsere
function PopWin(url,h,w) { var ww = 629, wh = 300, leftPos = null, topPos = null;
if (top.screen){
if (screen.width){
leftPos = Math.round((screen.width-h-10)/2);
topPos = Math.round((screen.height-w-29)/2);
} else { leftPos = 50
topPos = 50
}
}
popupWin = window.open(url, 'popup', 'scrollbars, height=' + h + ',width=' + w + ',top=' + topPos + ',left=' + leftPos + '')
}
// -->
</script>
<script language=javascript src="tilbud.js"></script>
<% end if %>
<CENTER>
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="100%">
<TR>
<TD>
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="2" WIDTH="780">
<TR>
<TD VALIGN="top" bgcolor="#000080">
<!---- LOGO TOP ---->
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" WIDTH="780">
<TR>
<TD VALIGN="top" ALIGN="right" bgcolor="#000080"><IMG SRC="http://www.meldgaard.com/logoer/engroslogo.gif" BORDER="0"><BR><IMG SRC="images/1x1.gif" WIDTH="780" HEIGHT="3" BORDER="0"><BR></TD>
</TR>
</TABLE>
<!---- NAVIGATION ---->
<% if session("user") <> "gæst" then %>
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" WIDTH="780" HEIGHT="5">
<TR>
<TD VALIGN="top" width="628" height="1" bgcolor="#000080" id="meldgaard_rulle"></TD>
<TD VALIGN="top" width="1" height="1" bgcolor="#000008"></TD>
<TD VALIGN="top" width="1" height="1" bgcolor="#000080"></TD>
<TD VALIGN="top" width="150" height="1" bgcolor="#000080"></TD>
</TR>
<TR>
<TD VALIGN="top" width="628" height="4" bgcolor="#ffffff"></TD>
<TD VALIGN="top" width="1" height="4" bgcolor="#ffffff"></TD>
<TD VALIGN="top" width="1" height="4" bgcolor="#000080"></TD>
<TD VALIGN="top" width="150" height="4" bgcolor="#9abcde"></TD>
</TR>
</TABLE>
<% end if %>
<!---- INDHOLD ---->
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" WIDTH="780">
<TR>
<TD VALIGN="top" bgcolor="#ffffff" WIDTH="629">
<!---- ---->
<CENTER>
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" WIDTH="590">
<TR>
<TD VALIGN="top"><IMG SRC="1x1.gif" WIDTH="210" HEIGHT="1" BORDER="0"></TD>
<TD VALIGN="top"><IMG SRC="1x1.gif" WIDTH="380" HEIGHT="1" BORDER="0"></TD>
</TR>
<tr>
<td height="2" colspan="2"></td>
</tr>
<TR>
<TD VALIGN="top" COLSPAN="2"><CENTER><FONT FACE="verdana, arial, helvetica" COLOR="#000000" SIZE="3"><B>FORSIDE</B></FONT></CENTER><BR></TD>
</TR>
<FORM OnSubmit="return false" >
<%
pcount = 0
do while not forsidetilbud.eof
set rsbillede=server.CreateObject("ADODB.Recordset")
rsbillede.open "SELECT * FROM billeder WHERE varenr = '"&forsidetilbud("varenr")&"'",conn,3
if rsbillede.recordcount < 1 then
dbbillede = ""
else
dbbillede = rsbillede("billede")
end if
pcount = pcount + 1
SQL = "SELECT * FROM tekster WHERE Varenr = '"& forsidetilbud("varenr") &"' ORDER BY sort"
Set forsidetilbudtekst = Conn.Execute(SQL)
tmpPath = Server.MapPath("../engros/prod-images/")
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(tmpPath)
Set arrFile = objFolder.Files
For Each File In arrFile
tmpFile = File.Name
billedet = dbbillede
if lcase(tmpfile) = lcase(billedet) then
billede = dbbillede
exit for
else
billede = "ingen.jpg"
end if
Next
Set objFS = Nothing
%>
<TR>
<TD VALIGN="top" WIDTH="200"><IMG SRC="prod-images/<% =billede %>" WIDTH="200" HEIGHT="150" BORDER="0"></TD>
<TD VALIGN="top" WIDTH="390">
<TABLE BORDER="1" CELLSPACING="0" CELLPADDING="0" WIDTH="390" HEIGHT="150" bordercolor="#000080">
<TR>
<TD COLSPAN="2" BGCOLOR="#000080" HEIGHT="20">
<% if session("user") <> "gæst" then %>
<A HREF="java script:open_favorit('tilfavo.asp?varenr=<% =forsidetilbud("varenr") %>')"><IMG SRC="images/favorit.gif" ALIGN="right" BORDER="0"></A>
<% end if %>
<FONT FACE="verdana, arial, helvetica" COLOR="#ffffff" SIZE="1"><B><% =forsidetilbud("navn") %></B><BR></FONT></TD>
</TR>
<TR>
<TD VALIGN="top" COLSPAN="2" HEIGHT="110"><FONT FACE="verdana, arial, helvetica" COLOR="#000080" SIZE="1">
<% do while not forsidetilbudtekst.eof %>
<% =forsidetilbudtekst("Beskrivelse") %><BR>
<% forsidetilbudtekst.movenext
loop
%>
</FONT></TD>
</TR>
<TR>
<% if session("user") <> "gæst" then
set rspris=server.CreateObject("ADODB.Recordset")
rspris.open "SELECT * FROM "&session("gruppe")&" WHERE Varenr = '"& forsidetilbud("varenr") &"'",conn,3
if rspris.recordcount < 1 then
set rspris=server.CreateObject("ADODB.Recordset")
rspris.open "SELECT * FROM Prisgruppe1 WHERE Varenr = '"& forsidetilbud("varenr") &"'",conn,3
end if
%>
<TD VALIGN="middle" HEIGHT="20" BGCOLOR="#ABCDEF"><FONT FACE="verdana, arial, helvetica" COLOR="#000080" SIZE="1">Pris <% =formatnumber(rspris("pris"),2) %></FONT></TD>
<TD VALIGN="top" HEIGHT="20" ALIGN="right" BGCOLOR="#ABCDEF"><FONT FACE="verdana, arial, helvetica" COLOR="#000080" SIZE="1">
<INPUT NAME="PPris<% =pcount %>" TYPE="hidden" VALUE="<% =formatnumber(rspris("pris"),2) %>">
<INPUT NAME="PCode<% =pcount %>" TYPE="hidden" VALUE="<%=forsidetilbud("varenr")%>">
Stk.: <INPUT NAME="antal<% =pcount %>" TYPE="text" MAXLENGTH="4" SIZE="3" VALUE="1" style="font-family: Verdana, Arial, helvetica; color: #000000 ; font-size: 10px ">
<A HREF="#" OnClick="open_kurven('kurven.asp?antal=' + document.forms[0].antal<% =pcount %>.value + '&productcode=' + document.forms[0].PCode<% =pcount %>.value + '&pris=' + document.forms[0].PPris<% =pcount %>.value );document.forms[0].reset();"><IMG SRC="images/order.gif" BORDER="0" WIDTH="55" HEIGHT="12"></A>
</FONT>
</TD>
<% else %>
<TD VALIGN="top" BGCOLOR="#ABCDEF" HEIGHT="20" COLSPAN="2"> </TD>
<% end if %>
</TR>
</TABLE>
</TD>
</TR>
<TR>
<TD VALIGN="top" COLSPAN="2"><HR SIZE="1"></TD>
</TR>
<%
SET rspris = Nothing
forsidetilbud.movenext
loop
%>
</FORM>
</TABLE>
</CENTER>
<!---- ---->
</TD>
<td width="1" bgcolor="#000080"></td>
<!---- NAVIGATION ---->
<TD VALIGN="top" bgcolor="#9ABCDE" WIDTH="150">
<CENTER><BR>
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" WIDTH="150">
<!-- #include virtual="/dk/engros/navigation.asp" -->
</TABLE>
<BR>
</CENTER>
</TD>
</TR>
</TABLE>
<!---- BUND NAVIGATION ---->
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" WIDTH="780">
<TR>
<TD VALIGN="top" bgcolor="#000080" height="5"></TD>
</TR>
</TABLE>
</TD>
</TR>
<tr align="right">
<td height="32" class=copyright valign="top">© Copyright meldgaard GRUPPEN 2001</td>
</tr>
</TABLE>
</CENTER>
</BODY>
