sökvägarna till databasen e rätt
men där jag ska visa informationen ur databasen så skriver jag så här..
<%=RecSet("spaltens namn")%>
kanske inte ska vara så när de e två databas anslutningar?
2databaser?
42 svar · 566 visningar · startad av iddi86 · sida 2 av 3
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
variabel_spaltens_namn = RecSet("spaltens namn")
RecSet.Close
Connect.Close
ger dig värdet i en variabel som du sen kan använda på sidan.
Fast du får bara den första posten i dit RecSet om det är flera.
Visa mer kod av sidan eller berätta vad du vill uppnå.
Enklast är nog annars att stänga dina recordsets samt connections efter att du använt all data du skall.
just nu username
så om fältets namn heter usernamne så ska jag skriva?
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
variabel_spaltens_namn = RecSet("username")
RecSet.Close
Connect.Close
LR?
De funakr inte:(
username = RecSet("username")
skostorlek = RecSet("skostorlek") osv.
Se annnars mitt tidigare inlägg som jag redigerade, alt posta all kod du har.
<%
If Session("login") <> "ok" Then
Session("meddelande") = "Du har blivit urloggad, var god logga in igen!"
Response.Redirect "default.asp"
End If
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("members.mdb")&";pwd=losen"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From members"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
RecSet.Close
Connect.Close
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("gb.mdb")&";"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From gb Where tillID = "&Request.QueryString("tillid") &" Order By Datum DESC"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
%>
När jag skriuver så så visar den bara information ur den första anlutningen.
Visa den kod som använder sig av den data du har i databaserna.
<%
If Session("login") <> "ok" Then
Session("meddelande") = "Du har blivit urloggad, var god logga in igen!"
Response.Redirect "default.asp"
End If
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("members.mdb")&";pwd=losen"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From members"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
username = RecSet("username")
RecSet.Close
Connect.Close
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("gb.mdb")&";"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From gb Where tillID = "&Request.QueryString("tillid") &" Order By Datum DESC"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
%>
<html>
<head>
<meta http-equiv="Content-Language" content="sv">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>a</title>
<style type="text/css">
<!--
td { font-family: verdana; font-size: 10px }
form { font-family: verdana; font-size: 10px }
input { font-family: verdana; font-size: 10px ; border-width: 1px ; border-color: Black}
select { font-family: verdana; font-size: 10px ; border-width: 1px ; border-color: Black}
option { font-family: verdana; font-size: 10px ; border-width: 1px ; border-color: Black}
textarea { font-family: verdana ; font-size: 10px ; border-width: 1px ; border-color: Black}
-->
</style>
</head>
<body bgcolor="#E1EAF0">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#6F99B9" width="780" height="1">
<tr>
<td style="border-style: solid; border-width: 1" height="90" colspan="2" valign="top" bgcolor="#CFDDE7">
<p style="margin-top: 0; margin-bottom: 0">z</p>
<p style="margin-top: 0; margin-bottom: 0" align="center"> <p style="margin-top: 0; margin-bottom: 0" align="center">
<font size="1" face="Verdana">WIPPI.TK</font></td>
</tr>
<tr>
<td width="100%" style="border-left-style: none; border-left-width: medium; border-right-style: none; border-right-width: medium; border-bottom-style: none; border-bottom-width: medium" height="2" colspan="2" valign="top">
<p style="margin-top: 0; margin-bottom: 0"><font size="1" face="Verdana"> </font></td>
</tr>
<tr>
<td width="84%" style="border-style: solid; border-width: 1" height="20" valign="top" bgcolor="#EAF0F4">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="1">
<tr>
<td width="100%" style="border-bottom:1px solid #6F99B9; padding-left: 4; padding-right: 4;" bgcolor="#B6CBDA" height="1">
<p style="margin-top: 0; margin-bottom: 0">
<font face="Verdana" size="1">Läs/skriv i <%=RecSet("username")%>'s gästbok</font></td>
</tr>
</table>
<p style="margin-top: 0; margin-bottom: 0"><font size="1" face="Verdana"> </font></p>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
<tr>
<td width="100%">
</tr>
<tr>
<td valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<% Do Until RecSet.EOF %><font size="1" face="Verdana"> </font>
<tr>
<td><font color="#000000"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b>Namn:</b> <%=RecSet("namn")%><br></font><font size="1" face="Verdana">
<font color="#000000"><B>Datum:</b> <%=RecSet("datum")%><%Recset("read") = "1"%></font></font></font></td>
</tr>
<tr>
\<td\>\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000"\>\<br\>\<b\>Meddelande:\</b\> \<%=Replace(TRIM(Server.HTMLEncode(RecSet("text"))),vbcrlf,"\<br\>")%\>\</font\>\</td\>
\</tr\>
\<tr\>
\<td\>
\<hr size="1" color="#B6CBDA" align="left"\>
\</td\>
\</tr\>
\<%
RecSet.MoveNext
Loop
RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
%><font size="1" face="Verdana"> </font>
</table>
<font size="1" face="Verdana" color="#000000"><b>Skriv i gästboken</b><br>
</font>
<form name="form1" method="post" action="write_gb.asp?tillid=<%=Request.QueryString("tillid")%>">
<font size="1" face="Verdana" color="#000000">
<textarea name="text" cols="45" rows="4" class ="table"></textarea>
<br>
<input type="submit" name="Submit" value="Skicka" class="knapp"> ( Ditt
namn registreras automatiskt ) </font>
</form>
</td>
</td>
</tr>
</table>
<p style="margin-top: 0; margin-bottom: 0"> </p>
</td>
<td width="16%" style="border-style: solid; border-width: 1" height="20" valign="top" bgcolor="#CCDBE6">
<p style="margin-top: 0; margin-bottom: 0"><font size="1" face="Verdana"><!--#include file="meny.asp"-->
</font></td>
</tr>
</table>
<p style="margin-top: 0; margin-bottom: 0"> </p>
</body>
</html>
Här är hela sidan:D
ADODB.Recordset fel '800a0cc1'
Objektet kunde inte hittas i mängden med det begärda namnet eller numret.
/community/read_gb.asp, rad 72
de felmedelandet får jag
Är det tänkt att båda recordseten skall loopas?
Om inte döp om det som inte skall loopas till RecSet2 överallt där det förekommer samt även Addera => Addera2.
Glöm sen inte heller att flytta stängningen av båda recordsetsen till efter att du använt dig av all info.
På rad 72 försöker du använda dig av info från ett recordset som inte är öppet längre.
Eftersom det är: <%=RecSet("username")%> skulle du kunna använda dig av variabeln username istället:
<%=username %>
OM det endast är en o samma användare det rör sig om och om du inte loopar genom hela databasen. (Orkar inte riktigt kolla hela din kod... ;) )
åå fattar inget
<% Do Until RecSet.EOF %><font size="1" face="Verdana"> </font>
<tr>
<td><font color="#000000"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b>Namn:</b> <%=RecSet("namn")%><br></font><font size="1" face="Verdana">
<font color="#000000"><B>Datum:</b> <%=RecSet("datum")%><%Recset("read") = "1"%></font></font></font></td>
</tr>
<tr>
<td><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000"><br><b>Meddelande:</b> <%=Replace(TRIM(Server.HTMLEncode(RecSet("text"))),vbcrlf,"<br>")%></font></td>
</tr>
<tr>
<td>
<hr size="1" color="#B6CBDA" align="left">
</td>
</tr>
<%
RecSet.MoveNext
Loop
RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
Denna del, vilken av databaserna abnvänder den sig av?
Använder du info från den databasen på fler ställen på sidan?
Vem har sagt att det ska vara lätt? ;)
hur får jag reda på de da`?
när jag tar bort loop där så får jag felmedelandet
Kompileringsfel i Microsoft VBScript fel '800a03ea'
Syntaxfel
/community/funktioner.asp, rad 3
Function Funk_nya_mess
^
Vilka fält, typ: RecSet("datum") mfl hör till vilken databas, du använder ju två? members.mdb samt gb.mdb
ok, ändra då i din kod:
<%=RecSet("username")%>
till:
<%=username %>
så tycker jag nog att det ska fungera.
går de att göra så att den hämtar info av dom databserna utan att använda loop?
får fortfarande
ADODB.Recordset fel '800a0cc1'
Objektet kunde inte hittas i mängden med det begärda namnet eller numret.
/community/read_gb.asp, rad 72
Posta rad 72