Hur gör jag för att koppla en server.execute till en kolumn i en databas?
(Ge exempel på koden om tabellen heter "vt", kolumnen heter "sida" och det skall tas från ID som hämtas via querystring)
6 svar · 194 visningar · startad av magnusfeldth
Hur gör jag för att koppla en server.execute till en kolumn i en databas?
(Ge exempel på koden om tabellen heter "vt", kolumnen heter "sida" och det skall tas från ID som hämtas via querystring)
Hanger inte med?
Right: jag tar ett exempel:
På startsidan klickar du på länken ADAM (som i en databas har ID=1) - du kommer då till artikel.asp?ID=1... som meny på denna sidan tänkte jag använda server.execute... sökvägen till vilken meny som skall användas kommer från tabellen, den går in med QueryString på ID=1 och ser att i kolumnen "meny" står länken "meny2.asp"... meny2.asp exekveras därefter och alla lever lyckliga länge... förstår ni bättre nu?
Varför inte börja knåpa så hjälper vi till att lösa knutarna?
Dim rs As RecordSet
strSQL = "SELECT sida FROM vt WHERE ID = " & Request.QueryString("ID") &";"
Set rs = [i]connectionobject[/i].Open(strSQL, , 128)
Server.Execute rs("sida")
Något sådant verkar du vilja göra. Knåpa på :)
så här löste jag det:
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &Server.MapPath("asp.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")
SQLsats = "SELECT * FROM asp WHERE id = " &Request.QueryString("id")
RecSet.Open SQLsats, Connect, adOpenStatic, adLockOptimistic
%>
<body bgcolor="#FFFFFF" text="#000000">
<p><font face="Verdana"><b>Filarkivet</b></font><br>
<font face="Verdana" size="1"><br>
</font></p>
<table width="340" border="0">
<tr>
<td><font face="Verdana" size="1"> <b>
<a href="testar.asp?id=<% = RecSet("id") %>"><% = RecSet("namn") %></a>
</b><font color="#000000"><br>
<% = RecSet("medd") %>
<br>
<b><a href="klick2.asp?id=<% = RecSet("id") %>">LADDA NER</a> - </b><b> nerladdad:
<% = RecSet("klick") %>
gånger</b></font></font></td>
</tr>
<tr>
<td><font face="Verdana" size="1"> </font></td>
</tr>
<%page = RecSet("zip")
Recset.Close
Set Recset = Nothing
Connect.Close
Set Connect = Nothing
%></table>
<%Server.execute page%>
tack för hjälpen folket!