For mig virker det som om der mangler conn til DB\'er i din kode. Min kode til udtræk virker udmærket, men der må være en nemmere måde, desuden er jeg ikke sikker på at jeg for den lukket ordentlig igen:
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"design.mdb\")
SQLstmt = \"SELECT * FROM valg WHERE 141 = \" & Request(\"id\")
Set rs = conn.Execute(SQLstmt)
%>
<%
\'DO WHILE NOT rs.EOF
farve1 = rs(\"farve1\")
skriftfarve = rs(\"skriftfarve\")
skrifttype = rs(\"skrifttype\")
alink = rs(\"alink\")
blink = rs(\"blink\")
%>
<html>
<head>
<title>Hyper Web</title>
<style>
<!--
body {
font-family: \"<%=skrifttype%>\",\"Verdana\", \"Arial\";
}
-->
</style>
</head>
<!---------------------- BODY----------------------->
<body link=\"#C0C0C0\" vlink=\"<%=alink%>\" alink=\"<%=blink%>\" bgcolor=\"#ffffff\" text=\"<%=skriftfarve%>\" background=\"<%=farve1%>\">
<!---------------------- VENSTRE TABEL ----------------------->
<TABLE ALIGN=LEFT BORDER=0 WIDTH=540>
<TR VALIGN=TOP ALIGN=RIGHT VALIGN=LEFT>
<TD WIDTH=30 ROWSPAN=7>
<IMG SRC=\"v1.gif\" WIDTH=30 HEIGHT=1 BORDER=0></A>
</TD>
<TD>
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"../menu/design.mdb\")
SQLstmt = \"SELECT * FROM valg WHERE 141 = \" & Request(\"id\")
Set rs = conn.Execute(SQLstmt)
%>
<%
\'DO WHILE NOT rs.EOF
side1 = rs(\"side1\")
%>
<!---------------------- SIDE NAVN ----------------------->
<TR VALIGN=TOP ALIGN=LEFT VALIGN=LEFT>
<TD WIDTH=540>
<BR><BR>
<FONT SIZE=5 ><center><%=side1%></center></font>
<hr width=\"100%\" size=\"1\" noshade>
<TABLE WIDTH=540 ALIGN=MIDDLE COLSPAN=2 cellspacing=\'1\' cellpadding=\'5\'>
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"design.mdb\")
SQLstmt = \"SELECT * FROM valg WHERE 141 = \" & Request(\"id\")
Set rs = conn.Execute(SQLstmt)
%>
<%
\'DO WHILE NOT rs.EOF
skrifttype = rs(\"skrifttype\")
alink = rs(\"alink\")
blink = rs(\"blink\")
%>
<!---------------------- BILLEDE UPLOAD ----------------------->
<TR>
<TD WIDTH=540 HEIGHT=15 COLSPAN=6></TD>
</TR>
<TR>
<TD valign=top>
<!-- Nedenstående linier er nødvendige for ar få vist billedet på siden -->
<%
Dim Filesys, tekstfil, Image
Set Filesys = Server.CreateObject(\"Scripting.FileSystemObject\")
\' Først åbnes tekstfilen med navnet på den sidst uploadede fil, så vi
\' kan konstatere hvilken filtype, der er tale om...
Set tekstfil= Filesys.OpenTextFile(Server.MapPath(\"Images/UplImage.txt\"))
\' Filens navn lægges i variablen \"Image\"
Image = tekstfil.Readline
\' Luk tekstfile pænt efter brug.
tekstfil.Close
%>
<!-- Hertil -->
<IMG SRC=\"Images/<%=Image%>\" BORDER=0 ALT=\"\"><br></FONT></TD>
<!---------------------- SIDETEKST ----------------------->
<TD valign=top >
<font size=\"2\">
<%
Function LinkTekst(Tekst)
LinkTekst = \"\"
A_Start = 1
if InStr(Tekst, \"
http://\") then
do until A_Start >= len(Tekst)
LinkChr = InStr(A_Start, Tekst, \"
http://\")
NextSpace = InStr(LinkChr, Tekst, \" \")
if NextSpace = 0 then NextSpace = Len(Tekst) + 1
URL = Mid(Tekst, LinkChr, NextSpace - LinkChr)
LinkTekst = LinkTekst & Mid(Tekst, A_Start, LinkChr - A_Start)
LinkTekst = LinkTekst & \"<A Href=\" & Chr(34) & URL & Chr(34) & \" target=blank>\" & URL & \"</A>\"
if Int(LinkChr) = Int(InStrRev(Tekst, \"
http://\")) then
LinkTekst = LinkTekst & Mid(Tekst, NextSpace, Len(Tekst) - A_Start)
A_Start = Len(Tekst)
else
A_Start = NextSpace
end if
loop
else
LinkTekst = Tekst
end if
End Function
%>
<%=LinkTekst(Replace(rs(\"info_om\")&\"\", vbCrLf, \" <BR> \"))%>
</font><br></TD>
<!---------------------- SIDEFOD ----------------------->
</TR>
<TR>
<TD WIDTH=540 HEIGHT=30 COLSPAN=6>
<hr width=\"100%\" size=\"1\" noshade>
</TD></table>
<%
\'rs.MoveNext
\'LOOP
\'RS.Close
conn.Close
Set conn = nothing
%>
<TR VALIGN=BOTTOM ALIGN=LEFT VALIGN=LEFT >
<TD WIDTH=540>
<CENTER>
<P>
<FONT FACE=\"<%=skrifttype%>\" size=1\" >
<a href= \"
http://www.hypergrafx.dk\" target=\"_new\" style=\"color: <%=skriftfarve%>\">© Copyright HyperGrafX 2000</a>
</FONT>
</CENTR>
</TD>
</TR>
</TABLE>
</BODY>
</HTML>
Ny bruger
Nybegynder
Opret
Preview
