7 svar · 170 visningar · startad av GbgKalle
Tjena, jag vill presentera data från en databas men på två olika sätt, den ena presentationen består av en dynamisk meny som hämtas upp ur två fält i en tabell, den andra presentationen hämtas upp ur ett annat fält i samma tabell men är beroende av adressen typ. http://www.domän.net/index.asp?DocumentID=16 där bara texten i fältet DocumentID presenteras.
Jag får inte detta att fungera, skickar med koden nedan, är nybörjare så snälla hjälp mig .. =)
..... kod ....
<!--#include file ="include/common.asp"-->
<%
dim adoCn
dim strSQL
set adoCn = Server.CreateObject("ADODB.Connection")
adoCn.Open strConn
dim adoRs
set adoRs = Server.CreateObject("ADODB.Recordset")
strSQL = "Select * From Documents order by DocumentID Desc"
set adoRs = adoCn.Execute(strSQL)
%>
<%
dim intDocumentID
dim strTitle
dim strContent
dim textCn
dim str2SQL
set textCn = Server.CreateObject("ADODB.Connection")
textCn.Open strConn
intDocumentID = Request.QueryString("DocumentID")
dim textRs
set textRs = Server.CreateObject("ADODB.Recordset")
str2SQL = "Select * From Documents where DocumentID=" & intDocumentID
set textRs = textCn.Execute(strSQL)
If not textRs.EOF then
strTitle = textRs("Title")
strContent = textRs("Content")
End If
textRs.Close
set textRs = nothing
textCn.Close
set textCn = nothing
%>
<HTML>
<HEAD>
<TITLE>DEMO</TITLE>
<style>
<!--a{text-decoration:none}//-->
</style>
<style><!--a:hover{color:FF9900; }--></style>
</HEAD>
<BODY BGCOLOR=#FFFFFF topmargin="0" leftmargin="0" marginheight=0 marginwidth=0 rightmargin=0 bottommargin=0 link="#000000" vlink="#000000">
<TABLE WIDTH="100%" BORDER=0 CELLPADDING=0 CELLSPACING=0 style="border-collapse: collapse" bordercolor="#111111" height="50">
<TR>
<TD bgcolor="#FF9900">
<font face="Arial"><b><font size="6" color="#333333"><span style="letter-spacing: 0"> demo</span></font></b><span style="letter-spacing: 0"><font size="5" color="#666666" face="Arial">SAJT</font></span></font></TD>
</TR>
<TR>
<TD bgcolor="#000000">
<img border="0" src="images/spacer.gif" width="1" height="1"></TD>
</TR>
</TABLE>
<div align="left">
<table border="0" cellpadding="0" cellspacing="0" width="650">
<tr>
<td width="150" valign="top" bgcolor="#FFFFFF">
<div align="left">
<table border="0" cellspacing="0" width="153" style="border-collapse: collapse" bordercolor="#111111">
<tr>
<td bgcolor="#999999" width="149">
<p align="center"><b><font size="2" face="Verdana" color="#FFFFFF">Meny</font></b></td>
</tr>
<tr>
<td width="149">
<div align="left">
<table border="0" cellspacing="1" cellpadding="3">
<%
Do While Not adoRs.EOF%>
\<tr\>
\<td\>\<font face="Arial" size="2"\>\<b\>\<a href="index.asp?DocumentID=\<%=adoRs("DocumentID")%\>"\>\<li\>\<%=adoRs("Title")%\>\</li\>\</a\>\</b\>\</font\>\</td\>
\</tr\>
<%
adoRs.MoveNext
Loop%>
\</table\>
\</div\>
\</td\>
\</tr\>
\<tr\>
\<td width="149"\>
\</td\>
\</tr\>
\<tr\>
\<td bgcolor="#999999" width="149"\>
\<p align="center"\>\<b\>
\<font size="2" face="Verdana" color="#FFFFFF"\>Sök här:\</font\>\</b\>\</td\>
\</tr\>
\<tr\>
\<td width="149"\>
\<form method="POST" action="resultat.asp"\>
\<p align="right"\>\<input type="text" name="T1" size="21"\>\<input type="submit" value="Sök" name="B1"\>\</p\>
\</form\>
\<p\>
\</td\>
\</tr\>
\<tr\>
\<td width="149"\>\</td\>
\</tr\>
\</table\>
\</div\>
\</td\>
\<td bgcolor="#000000" width="1"\>
\<img border="0" src="images/spacer.gif" width="1" height="1"\>\</td\>
\<td valign="top" bgcolor="#FFFFFF" width="614"\>
\<div align="left"\>
\<table border="0" cellpadding="3" width="100%"\>
\<tr\>
\<td\>\<font face="Verdana" size="2"\>\<%=strContent%\>\</font\>
\</td\>
\</tr\>
\</table\>
\</div\>
\<p\> \</p\>
\</tr\>
</table>
</div>
</BODY>
</HTML>
<%
adoRs.Close
set adoRs = nothing
adoCn.Close
set adoCn = nothing
%>
.... slut på kod ....
Mvh:
GbgKalle
GbgKalle, välkommen till wF... :)
För att kunna hjälpa till på bästa sätt måste jag ställa en motfråga: Vad är det som inte fungerar? Får du något felmeddelande?
Mvh, Vide
Ps. Du kan formatera din kod i inlägget med wF-kod, som du hittar via en länk till höger om där du skriver inlägget...
------------------
Mostly Harmless
Hej Vide, tack för mottagandet .. =)
Jag får inget felmeddelande, menyn funkar dunder men texten som skall baseras på DocumentID="siffra" hämtar bara upp första raden i databasen oavsett siffra ..
Mvh:
GbgKalle
Vid en snabb överblick tycker jag det ser ut som att du kör fel sqlsträng:
str2SQL = "Select * From Documents where DocumentID=" & intDocumentID
set textRs = textCn.Execute(strSQL)
Borde det inte stå:
set textRs = textCn.Execute(str2SQL)
I det sammanhanget?
------------------
/solbulle
Hemmabio | Spelautomater | The Who
Hej solbulle (härligt namn =),
.. du har alldeles rätt, det var en tvåa som fattades .. hmm .. jaja är man nybörjare så är man .. =) ..
.. nu kommer givetvis del 2 i mina problem .. hehe .. om det inte finns en adress sträng utan man bara besöker index.asp, så klagar sidan på att strängen fattas, hur skriver jag in i koden att om "strängen - ?DocumentID=18" fattas så visa ingen text eller ännu bättre visa ?DocumentID=nummer till första sidan?
Mvh:
GbgKalle
Hej!
if Request.QueryString("DocumentID") = "" then
intDocumentID = 1
else
intDocumentID = Request.QueryString("DocumentID")
end if
------------------
mvh André
Hej Andre´,
Tack så hemskt mkt för det, det löste mina problem .. =) .. underbart med ett forum där man kan få hjälp utan bli en påhoppad "newbie" ..
Ni ska ha mkt tack för detta, å ha en go fortsättning på det nya året ..
Mvh:
GbgKalle
"å ha en go fortsättning på det nya året .. "
Det är väl bara att hålla med. :)
------------------
/solbulle
Hemmabio | Spelautomater | The Who