Hjælp til at lave lille data udtræk om
Jeg har dette data udtræk som jeg ikke har kunne finde ud af hvordan jeg laver det som en kode, så jeg undgår 3 database kald, så det kun sker en gang. Så vil jeg gerne have lavet det om så database kald funktionen kommer til at logge i en fil for sig selv, så via komandoer kan åbne og lukke databasen og så jeg ikke skal skive det database kald flere gang.Et andet problem er at når jeg kalder dataer ud fra databsen så starter den udtrækket med et tomt felt, før den begynder at udskrive og dette kan jeg ikke forstå.
Se problemet her: www.danskehojtider.dk
Håber der er en venlig sjæl der kan og vil hjælpe mig.
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<table width="100%" border="0" cellspacing="10">
<tr>
<td>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("opskriftdata.mdb")
Conn.Open DSN
strSQL = "Select * From kategorier Order By hojtidnavn"
Set rs = Conn.Execute(strSQL)
i = 1
while not rs.EOF
strNavn = rs("hojtidnavn")
strLink = "<a href='visindex.asp?id=" & rs("hojtid") & "'>" & strNavn & "</a>"
With Response
.Write"<td>"
.Write"<li>" & strLink & "</li>"
.Write"</td>" & vbcrlf
End With
if (i mod 5) = 0 then
Response.Write "</tr><tr>" & vbcrlf
end if
i = i + 1
rs.MoveNext
wend
Conn.Close
Set Conn = Nothing
%>
</td>
</tr>
</table><br>
<table width="100%" border="0" cellspacing="10">
<tr>
<td>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("opskriftdata.mdb")
Conn.Open DSN
strSQL = "Select * From kategori1 Order By emmenavn"
Set rs = Conn.Execute(strSQL)
i = 1
while not rs.EOF
strNavn = rs("emmenavn")
strLink = "<a href='visemme.asp?id=" & rs("emme") & "'>" & strNavn & "</a>"
With Response
.Write"<td>"
.Write"<li>" & strLink & "</li>"
.Write"</td>" & vbcrlf
End With
if (i mod 5) = 0 then
Response.Write "</tr><tr>" & vbcrlf
end if
i = i + 1
rs.MoveNext
wend
Conn.Close
Set Conn = Nothing
%>
</td>
</tr>
</table><br>
<table width="100%" border="0" cellspacing="10">
<tr>
<td height="22">
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("opskriftdata.mdb")
Conn.Open DSN
strSQL = "Select * From kategori2 Order By varenavn"
Set rs = Conn.Execute(strSQL)
i = 1
while not rs.EOF
strNavn = rs("varenavn")
strLink = "<a href='visvare.asp?id=" & rs("vare") & "'>" & strNavn & "</a>"
With Response
.Write"<td>"
.Write"<li>" & strLink & "</li>"
.Write"</td>" & vbcrlf
End With
if (i mod 4) = 0 then
Response.Write "</tr><tr>" & vbcrlf
end if
i = i + 1
rs.MoveNext
wend
Conn.Close
Set Conn = Nothing
%>
</td>
</tr>
</table>
</body>
</html>
