List i ASP
Jeg har denne liste i ASPhttp://cms.larsenmotorcykler.dk/default.asp?Docid=415&RevID=278&Tpl=Modules/Listbrugtmotorcykler/list_brugt.asp
hvor ASP koden ser sådan her ud.
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<%@ lcid=1030%>
<!--#include file="../../GlobalResources/Scripts/GlobalData.asp"-->
<!--#include file="../../GlobalResources/Scripts/GlobalFuncLib.asp"-->
<%
Dim dbType, mbl, lang
dbType = GetSettingValue("DatabaseType", "SiteResources\Data\")
mbl=Session("Member_Level")
lang=Session("contentLanguage")
if Not IsNumeric(mbl) Or mbl="" Then mbl="0"
if Not IsNumeric(lang) Or lang="" Then lang="1"
Function GetNews()
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
Set rs2 = Server.CreateObject("ADODB.Recordset")
conn.Open GetConStr ("SiteResources\Data\")
' SBM rettelse tilføj: DocId
strSQL = "SELECT DocumentLanguages.DocName, DocumentLanguages.DocId "
strSQL = strSQL & " FROM Documents, DocumentLanguages, DocumentFields "
strSQL = strSQL & " WHERE (ParentID = 413)"
strSQL = strSQL & " AND Documents.DocumentID = DocumentLanguages.DocId "
strSQL = strSQL & " AND Documents.DocumentID = DocumentFields.DocID "
strSQL = strSQL & " AND (secLevel <= " &mbl& ") "
strSQL = StrSql & " AND ((DocumentLanguages.LangId = " & lang & ") AND (DocumentLanguages.ActiveRevisionStatus=5) )"
strSQL = strSQL & " GROUP BY DocumentLanguages.DocName, DocumentLanguages.DocId ORDER BY DocumentLanguages.DocName "
rs2.Open strSQL, conn
while (Not rs2.EOF)
strDocID = rs2("DocId").Value
Response.Write " <a href=""read.asp?DocID=" & strDocID & """ target=""_self"">" & rs2("DocName")& "</a> Ydelse pr mdr."
strSQL = "SELECT DocumentLanguages.DocId AS DocId, DocumentLanguages.DocName AS DocName, DocumentFields.FieldValue AS FieldValue "
strSQL = strSQL & " FROM Documents, DocumentLanguages, DocumentFields "
strSQL = strSQL & " WHERE DocumentLanguages.DocName = '" & rs2("docname") & "' "
strSQL = strSQL & " AND (ParentID = 413) "
strSQL = strSQL & " AND Documents.DocumentID = DocumentLanguages.DocId "
strSQL = strSQL & " AND Documents.DocumentID = DocumentFields.DocID "
strSQL = strSQL & " AND (secLevel <= " &mbl& ") "
strSQL = StrSql & " AND ((DocumentLanguages.LangId = " & lang & ") AND (DocumentLanguages.ActiveRevisionStatus=5) )"
strSQL = strSQL & " ORDER BY Documents.PublishDate DESC, DocumentLanguages.DocName"
rs.Open strSQL, conn
tmptekst = ""
If Not rs.EOF And Not rs.BOF Then Response.Write "" & vbNewLine
While Not rs.EOF
'strDocID = rs("DocId").Value
'Response.Write "test <a href=""read.asp?DocID=" & strDocID & """ target=""_self"">" & rs("DocName").Value & "</a> " & vbNewLine & rs("FieldValue")
if (instr(lcase(rs("fieldvalue")), ".jpg") > 0) then
elseif (rs("FieldValue") <> "") then
if (tmptekst <> "") then
tmptekst = tmptekst & ", "
end if
tmptekst = tmptekst & rs("FieldValue")
end if
rs.MoveNext
Wend
If Not rs.EOF And Not rs.BOF Then Response.Write "" & vbNewLine
rs.Close
Response.Write tmptekst & "<br>"
rs2.moveNext
wend
rs2.Close
conn.Close
End Function
Function GetNewsItem(inDocID, inConn, ShowBody)
Dim strBody, strHeader, strS
strBody = ""
strHeader = ""
Set nrs = Server.CreateObject("ADODB.Recordset")
strS = "SELECT Name, FieldValue FROM DocumentFields WHERE (DocId = " & inDocID & ") AND (LangId = " & lang & ")"
nrs.Open strS, inConn
While Not nrs.EOF
SELECT CASE LCASE( nrs("Name").Value )
CASE LCase("Overskrift")
strHeader = nrs("FieldValue").Value
CASE LCase("Info")
strBody = nrs("FieldValue").Value
END SELECT
nrs.MoveNext
Wend
nrs.Close
Set nrs = Nothing
If ShowBody Then strHeader = strHeader & strBody
GetNewsItem = strHeader
End Function
%><html>
<head>
<meta name="Generator" content="Stone's WebWriter 4">
<meta http-equiv="Content-Language" content="da">
<title>Larsenmotorcykler</title>
<link rel="stylesheet" href="SiteResources/CSS/NewSite.css">
<base target="main">
</head>
<body leftmargin=5 topmargin=5>
<H1>Brugte Suzuki motorcykler</H1><p>
<% Call GetNews %>
<%=Maerke%>
<br><br>
<TABLE style="WIDTH: 100%; BORDER-COLLAPSE: collapse">
<TBODY>
<TR>
<TD>Der tages forbehold for indtastningsfejl og evt. prisændringer.</TD></TR>
<TR>
<TD>Leveringsomkostning 1737,- DKR</TD></TR>
<TR>
<TD>* Finansiering. Den oplyste ydelse er gældende, med en udb. på 20 % og løbetid 96 mdr. <A href="http://cms.larsenmotorcykler.dk/read.asp?Docid=370">Læs mere her</A></TD></TR>
<TR>
<TD></TD></TR></TBODY></TABLE></P>
</body></html>
Men det jeg ønsker er at de forskellige informationer kommer i en tabel i stedet, ligesom denne side
http://cms.larsenmotorcykler.dk/default.asp?Docid=409&RevID=272&Tpl=1Template1.asp
og den bare skriver ”Ja” til foto hvis der er en af celler i tabellen der indeholder, et link til et billede.
Screenshot fra de 3 tabeller der bruges kan ses her
http://cms.larsenmotorcykler.dk/Modules/Listbrugtmotorcykler/index.html
Er der nogen der kan hjælpe??
/Bruno
