pr. e-mail er vi sammen kommet frem til denne løsning;
<%@ Language=VBScript %>
<%SetLocale(1030)%>
<% response.buffer = true %>
<%
levid = request.querystring(\"id\")
if levid = \"\" then
response.redirect (\"startside.asp\")
end if
intPage = Request(\"page\") \'<-INDSAT
If isNumeric(intPage) = False Or intPage < 1 Then \'<-INDSAT
intPage = 1 \'<-INDSAT
End If \'<-INDSAT
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"din database.mdb\")
SQLstmt = \"SELECT * FROM Leverandører where Levnr = \'\" & levid & \"\'\"
Set rs = conn.Execute(SQLstmt)
strSQL = \"SELECT * FROM Registrering1995 where Levnr = \'\" & levid & \"\'\"
Set rs1 = Server.CreateObject(\"ADODB.RecordSet\") \'<-INDSAT
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"din database.mdb\") \'<-INDSAT
\'Set rs1 = conn1.Execute(SQLstmt) \'<-FJERNET
rs1.Open strSQL, strDSN, 1 \'<-INDSAT
firma = rs(\"firma\")
if firma <> \"\" then
show = firma
else
show = rs(\"Person\")
end if
%>
<html>
<head>
<title>Prøveplanter.dk - En del af Link2Green.net</title>
<meta name=\"copyright\" content=\"Florint FlowerWeb\">
<meta name=\"description\" content=\"Danmarks eneste portal, søgemaskine og indeks for Dansk Gartnerierhverv\">
<meta name=\"keywords\" content=\"it, web, mail, index, internet, news, search, search engine, business, click, e-mail,
computer, link, register, family, international, indeks, musik, søgemaskine, søgemaskiner, søg, emneindeks, emneindex,
portal, browse, job, jobs, artikel, artikler, artiklen, indhold, nyheder, it-nyheder, sport, edb, job, jobs, rekruttering,
jobdatabase, cv, erhverv, ferie, fritid, job, mobil, sms, spil, games, trafik, veje, tv, vejr, vejret, vejrudsigt, epost,
e-post, email, webmail, domæne, domain, oplysning,weather,blomster,flowers,greenhouse,gasa,florex,bog madsen,bøg madsen,
exposa,advokat,emballage,bocchiflower,gartnerier,gartneri,nursery,blumen,deg,salg,salgsformidling,småplanter,webdesign,
danpot,deg,Danpot,DEG,frø,proveplanter.dk, prøveplanter.dk, prøver, planter,\">
<meta name=\"language\" content=\"da\">
<meta name=\"author\" content=\"Florint FlowerWeb\">
<meta name=\"classification\" content=\"Internet Services\">
<meta name=\"rating\" content=\"SAFE FOR KIDS\">
<meta name=\"revisit-after\" content=\"30 Days\">
<meta name=\"robots\" content=\"ALL\">
<meta name=\"ProgId\" content=\"FrontPage.Editor.Document\">
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1252\">
<meta http-equiv=\"Content-Language\" content=\"da\">
<meta http-equiv=\"reply-to\" content=\"florint@florint.dk\">
<link rel=stylesheet href=\"links.css\" type=\"text/css\" title=\"Link2Green.net style sheet\">
<SCRIPT>
<!--
function displayWindow(url, width, height)
{
var Win = window.open(url,\"displayWindow\",\'width=\' + width + \',height=\' + height + \',resizable=no,scrollbars=no,menubar=no,status=no\' );
}
//-->
</SCRIPT>
</head>
<body bgcolor=\"#FFFFFF\" text=\"#000000\" background=\"tpl_images/background.gif\" link=\"#333333\" vlink=\"#333333\" alink=\"#FFFFFF\" leftmargin=\"0\" topmargin=\"0\" marginwidth=\"0\" marginheight=\"0\">
<script language=\"JavaScript1.2\">
<!--
//Datoscript **************
function MakeArray(size)
{
this.length = size;
for(var i = 1; i <= size; i++)
{this[i] = 0;
}
return this;
}
function dato()
{
dag = new Date();
document.writeln(convertDay(dag.getDay()) + \' d. \' + dag.getDate() + \'. \' + convertMonth(dag.getMonth())+dag.getFullYear());
}
function convertDay(dayValue) {
strDay= new MakeArray(7);
strDay[0] = \"Søndag\";
strDay[1] = \"Mandag\";
strDay[2] = \"Tirsdag\";
strDay[3] = \"Onsdag\";
strDay[4] = \"Torsdag\";
strDay[5] = \"Fredag\";
strDay[6] = \"Lørdag\";
return strDay[dayValue];
}
function convertMonth(monthValue) {
strMonth= new MakeArray(12);
strMonth[0] = \"jan \";
strMonth[1] = \"feb \";
strMonth[2] = \"mar \";
strMonth[3] = \"apr \";
strMonth[4] = \"maj \";
strMonth[5] = \"jun \";
strMonth[6] = \"jul \";
strMonth[7] = \"aug \";
strMonth[8] = \"sep \";
strMonth[9] = \"okt \";
strMonth[10] = \"nov \";
strMonth[11] = \"dec \";
return strMonth[monthValue];
}
// -->
</script>
<table border=\"0\" cellspacing=\"0\" cellpadding=\"0\" align=\"center\" width=\"700\">
<tr>
<td bgcolor=\"#666666\" width=\"1\"><img src=\"tpl_images/spacer.gif\" width=\"1\" height=\"1\"></td>
<td bgcolor=\"#DCDCDC\" align=\"center\">
<table border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<td><img src=\"tpl_images/spacer.gif\" width=\"15\" height=\"9\"></td>
<td></td>
<td><img src=\"tpl_images/spacer.gif\" width=\"15\" height=\"15\"></td>
</tr>
<tr>
<td> </td>
<td><img src=\"tpl_images/logo.gif\" width=\"150\" height=\"60\"><img src=\"tpl_images/mellem.gif\" width=\"50\" height=
D\"60\"><script language=\"JavaScript\"> var now = new Date(); var eadsIndex = now.getTime(); document.write(\'<s\' + \'cript language=javascript1.1 SRC=\"
http://www.eads.dk/getbanner.asp?hsize=60&count=true&id=33&nocache=\' + eadsIndex + \'\"></s\'+\'cript>\'); </script> <NOSCRIPT><A HREF=http://www.eads.dk/noscript.asp?mode=ahref&hsize=60&count=true&id=33><IMG SRC=http://www.eads.dk/noscript.asp?mode=img&hsize=60&count=true&id=33></A></NOSCRIPT></td>
<td> </td>
</tr>
<tr>
<td> </td>
<td bgcolor=\"#666666\">
<table width=\"670\" border=\"0\" cellspacing=\"1\" cellpadding=\"3\">
<tr>
<td bgcolor=\"#99CC33\">
<table border=\"0\" cellspacing=\"0\" cellpadding=\"0\" width=\"100%\">
<tr>
<td bgcolor=\"#666666\">
<table border=\"0\" cellspacing=\"1\" cellpadding=\"0\" width=\"100%\">
<tr>
<td height=\"17\" background=\"tpl_images/button_bg.gif\" align=\"center\"><a href=\"
http://www.proveplanter.dk\" class=\"menu\"> Forside </a></td>
<td height=\"17\" background=\"tpl_images/button_bg.gif\" align=\"center\"><a class=\"menu\" href=\"search.asp\" target=\"_top\"> SøgeSide </a></td>
<td height=\"17\" background=\"tpl_images/button_bg.gif\" align=\"center\"><a class=\"menu\" href=\"startside.asp\" target=\"_top\"> Gartnerier </a></td>
<td height=\"17\" background=\"tpl_images/button_bg.gif\" align=\"center\"><a href=\"tilbud.asp\" class=\"menu\" target=\"_top\"> Tilbud </a></td>
<td height=\"17\" background=\"tpl_images/button_bg.gif\" align=\"center\"><a href=\"services.asp\" class=\"menu\" target=\"_top\"> Services </a></td>
<td height=\"17\" background=\"tpl_images/button_bg.gif\" align=\"center\"><a href=\"
http://proveplanter.dk/nyheder\" class=\"menu\" target=\"_top\"> Nyheder </a></td>
<td height=\"17\" background=\"tpl_images/button_bg.gif\" align=\"center\"><a href=\"inspiration.asp\" class=\"menu\" target=\"_top\"> Inspiration </a></td>
<td height=\"17\" background=\"tpl_images/button_bg.gif\" align=\"center\"><a href=\"
http://www.link2green.net/cgi-bin/links/subscribe.cgi\" class=\"menu\" target=\"_blank\"> Nyhedsbrev </a></td>
<td height=\"17\" background=\"tpl_images/button_bg.gif\" align=\"center\"><a href=\"
http://www.florint.dk/Showdiary.asp\" target=\"_blank\" class=\"menu\"> Kalender </a></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td> </td>
</tr>
<tr>
<td><img src=\"tpl_images/spacer.gif\" width=\"15\" height=\"30\"></td>
<td> </td>
<td> </td>
</tr>
<tr>
<td> </td>
<td>
<table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<td valign=\"top\">
<table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<td bgcolor=\"#666666\">
<table width=\"100%\" border=\"0\" cellspacing=\"1\" cellpadding=\"3\">
<tr>
<td bgcolor=\"#99CC33\"><b><font size=\"2\" color=\"#FFFFFF\">
<%
response.write \"Udbud fra \" & show
%>
</b></font></td>
</tr>
</table>
</td>
</tr>
</table>
<div align=\"center\">
<center>
<table border=\"0\" width=\"100%\">
<tr>
<td>
<%
response.write show
response.write \"<br>\" & rs(\"Adresse\")
response.write \"<br>\" & rs(\"Postnr\")
response.write \"<br>Leverandør \" & rs(\"levnr\")
response.write \"<br>Tlf.\" & rs(\"Tel\")
response.write \"<br>Fax.\" & rs(\"Fax\")
%>
</td>
<td>
<%
response.write \"<br><br><br>\"
response.write \"<br>Website: <a href=http://\" & rs(\"Hjemmeside\") & \">\" & rs(\"Hjemmeside\") & \"</a>\"
response.write \"<br>Email: <a href=mailto:\" & rs(\"E-mail adresse\") & \">\" & rs(\"E-mail adresse\") & \"</a>\"
%>
</td>
</tr>
<tr>
<td></td>
<td></td>
</tr>
</table>
</center>
</div>
<br>
<FONT size=2>
<%
If Not (rs1.BOF Or rs1.EOF) Then \'<-INDSAT
rs1.PageSize = 2 \'<-INDSAT
rs1.AbsolutePage = intPage \'<-INDSAT
intRecCount = rs1.PageSize \'<-INDSAT
intPageCount = rs1.PageCount \'<-INDSAT
Response.Write \"<p><b>Side \" & intPage & \" af \" & intPageCount & \"</b></p>\" \'<-INDSAT
Do While Not rs1.EOF And intRecCount > 0 \'<-INDSAT
\'Do Until rs1.EOF \'<-FJERNET
url = levid & \"/\" & rs1(\"Billedeadresse\")
%>
<TABLE cellSpacing=4 cellPadding=0 width=\"100%\" bgColor=#c0c0c0 border=0>
<TBODY>
<TR>
<TD width=\"25%\" rowSpan=11><A href=\"java script:displayWindow(\'showimg.asp?id=<%=url%>\',280,400)\">
<IMG height=146 src=\"billeder/<%=levid%>/<%=rs1(\"Billedeadresse\")%>\" width=100 border=0></A></TD>
<HR><TD width=\"75%\"><FONT face=Verdana size=1>Plantenavn: <STRONG><%=rs1(\"Kultnavn\")%></STRONG></FONT></TD></TR>
<TR><TD width=\"75%\"><FONT face=Verdana size=1>Plantehøjde: <STRONG><%=rs1(\"Plantehøjde\")%></STRONG></FONT></TD></TR>
<TR><TD width=\"75%\"><FONT face=Verdana size=1>Plantebredde: <STRONG><%=rs1(\"Plantebredde\")%></STRONG></FONT></TD></TR>
<TR><TD width=\"75%\"><FONT face=Verdana size=1>Potte str. cm: <STRONG><%=rs1(\"Pottestr\")%></STRONG></FONT></TD></TR>
<TR><TD width=\"75%\"><FONT face=Verdana size=1>Pr. Kasse alm/eur: <STRONG><%=rs1(\"Stk i kassen alm/eur\")%></STRONG></FONT></TD></TR>
<TR><TD width=\"75%\"><FONT face=Verdana size=1>Pr Container alm/eur: <STRONG><%=rs1(\"Kasser pr cc alm/eur\")%></STRONG></FONT></TD></TR>
<TR><TD width=\"75%\"><FONT face=Verdana size=1>Udbud: <STRONG><%=rs1(\"Udbud lige nu\")%></STRONG></FONT></TD></TR>
<TR><TD width=\"75%\"><FONT face=Verdana size=1>Sæson: <STRONG><%=rs1(\"Sæson\")%></STRONG></FONT></TD></TR>
<TR><TD width=\"75%\"><FONT face=Verdana size=1>Farve: <STRONG><%=rs1(\"Farve\")%></STRONG></FONT></TD></TR>
<TR><TD width=\"75%\"><FONT face=Verdana size=1>Opdateret: <STRONG><%=rs1(\"Sidst opdateret\")%></STRONG></FONT></TD></TR>
</TBODY>
</TABLE>
<%
intRecCount = intRecCount - 1 \'<-INDSAT
rs1.MoveNext
Loop
End If \'<-INDSAT
Response.Write \"<p>Gå til side \" \'<-INDSAT
For intNum = 1 To intPageCount \'<-INDSAT
Response.Write \"<a href=udbud.asp?id=\" & request.querystring(\"id\") & \"&page=\" & intNum & \">\" & intNum & \"</a> \" \'<-INDSAT
Next \'<-INDSAT
Response.Write \"<p>\" \'<-INDSAT
If Clng(intPage) > 1 Then \'<-INDSAT
Response.Write \"<a href=udbud.asp?id=\" & request.querystring(\"id\") & \"&page=\" & intPage - 1 & \"><<</a>\" \'<-INDSAT
Else \'<-INDSAT
Response.Write \"<<\" \'<-INDSAT
End If \'<-INDSAT
Response.Write \" \" \'<-INDSAT
If Clng(intPage) < Clng(intPageCount) Then \'<-INDSAT
Response.Write \"<a href=udbud.asp?id=\" & request.querystring(\"id\") & \"&page=\" & intPage + 1 & \">>></a> \" \'<-INDSAT
Else \'<-INDSAT
Response.Write \">>\" \'<-INDSAT
End If \'<-INDSAT
%>
</FONT>
</td>
<td width=\"15\"><img src=\"tpl_images/spacer.gif\" width=\"15\" height=\"15\"></td>
<td width=\"175\" valign=\"top\" align=\"right\">
<table width=\"175\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<td bgcolor=\"#666666\">
<table width=\"175\" border=\"0\" cellspacing=\"1\" cellpadding=\"3\">
<tr>
<td bgcolor=\"#CCCCCC\"><b><font size=\"2\">Søg på
Link2Green.net</font></b></td>
</tr>
<tr>
<td bgcolor=\"#E2E2E2\">
<form action=\"
http://www.link2green.net/cgi-bin/links/search.cgi\" method=\"GET\">
<table border=\"0\" cellspacing=\"1\" cellpadding=\"3\">
<tr>
<td>
<input type=\"text\" size=18 name=\"query\">
</td>
</tr>
<tr>
<td>
<input type=submit value=\"Søg!\" name=\"submit\" class=buttonsearch>
</td>
</tr>
<tr>
<td><a href=\"
http://www.link2green.net/cgi-bin/links/search.cgi\"><font size=\"1\" class=footer>Avanceret Søgning</a><br><br>
<script>
<!--
dato()
//-->
</script>
</font></td>
</tr>
</table>
</form>
</td>
</tr>
</table>
</td>
</tr>
</table>
<br>
<table width=\"175\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<td bgcolor=\"#666666\">
<table width=\"175\" border=\"0\" cellspacing=\"1\" cellpadding=\"3\">
<tr>
<td bgcolor=\"#CCCCCC\"><font size=\"2\"><b>Grønne Links !</b></font></td>
</tr>
<tr>
<td bgcolor=\"#E2E2E2\"><font size=\"1\" class=footer><br><a href=\"
http://florint.dk/florint\">Hvem laver hvad ?</a><br><a href=\"
http://florint.dk/kartotek\">Send Tilbud til Sælgere</a><br><a href=\"
http://florint.dk/kartotek1\">Send Tilbud til Gartnere</a><br><a href=\"
http://www.link2green.net\">GartnerLinks </a><br><a href=\"
http://www.proveplanter.dk/maanedensplante.asp\">Månedens Potteplante </a><br><a href=\"
http://www.proveplanter.dk/maanedensniche.asp\">Månedens Nichekultur </a><br><a href=\"
http://www.florint.net\">Sæt dine planter på auktion </a><br><hr size=\"1\" noshade>
</font> </td>
</tr>
</table>
</td>
</tr>
</table>
<br>
<table width=\"175\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<td bgcolor=\"#666666\">
<table width=\"175\" border=\"0\" cellspacing=\"1\" cellpadding=\"3\">
<tr>
<td bgcolor=\"#CCCCCC\"><font size=\"2\"><b>Ugens Tilbud</b></font></td>
</tr>
<tr>
<td bgcolor=\"#E2E2E2\">
<p align=\"center\"><font size=\"1\"><br>
<img border=\"0\" src=\"tpl_images/tilbud.jpg\" width=\"160\" height=\"213\">
<br>
</font> </p>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td> </td>
</tr>
<tr>
<td> </td>
<td>
<hr size=\"1\" noshade>
<font size=\"1\" color=\"#666666\" class=footer>Sidst opdateret - <script>
<!--
dato()
//-->
</script>
| All rights reserved : <a href=\"
http://www.florint.dk/\">Florint FlowerWeb</a> | Copyright©2001 <a href=\"
http://www.florint.dk\" target=\"_blank\">Florint.dk </a></font></td>
<td> </td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
</tr>
</table>
</td>
<td bgcolor=\"#666666\" width=\"1\"><img src=\"tpl_images/spacer.gif\" width=\"1\" height=\"1\"></td>
</tr>
<tr>
<td bgcolor=\"#666666\" colspan=\"3\"><img src=\"tpl_images/spacer.gif\" width=\"1\" height=\"1\"></td>
</tr>
</table>
</body>
</html>