---
title: "2databaser?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/45420-2databaser/page2"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "iddi86"
published: "2002-06-07T16:22:05.000Z"
updated: "2002-06-07T17:51:41.000Z"
replies: 42
views: 614
page: 2
pages: 3
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/45420-2databaser"
---

# 2databaser?

_Sida 2 av 3._

## #21 — iddi86, 2002-06-07T16:59Z

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?

Permalänk: https://www.webforum.nu/p/691089

## #22 — solbulle, 2002-06-07T17:01Z

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.

Permalänk: https://www.webforum.nu/p/691090

## #23 — iddi86, 2002-06-07T17:01Z

just nu username

Permalänk: https://www.webforum.nu/p/691091

## #24 — iddi86, 2002-06-07T17:04Z

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:(

Permalänk: https://www.webforum.nu/p/691095

## #25 — solbulle, 2002-06-07T17:06Z

username = RecSet("username") 
skostorlek = RecSet("skostorlek")  osv.

Se annnars mitt tidigare inlägg som jag redigerade, alt posta all kod du har.

Permalänk: https://www.webforum.nu/p/691097

## #26 — iddi86, 2002-06-07T17:07Z

\<%

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.

Permalänk: https://www.webforum.nu/p/691099

## #27 — solbulle, 2002-06-07T17:09Z

Visa den kod som använder sig av den data du har i databaserna.

Permalänk: https://www.webforum.nu/p/691100

## #28 — iddi86, 2002-06-07T17:11Z

\<%

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"\>&nbsp;\<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"\>&nbsp;\</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"\>&nbsp;\</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"\>&nbsp;\</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"\>&nbsp;\</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

Permalänk: https://www.webforum.nu/p/691103

## #29 — solbulle, 2002-06-07T17:16Z

Ä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... ;) )

Permalänk: https://www.webforum.nu/p/691106

## #30 — iddi86, 2002-06-07T17:21Z

åå fattar inget

Permalänk: https://www.webforum.nu/p/691108

## #31 — solbulle, 2002-06-07T17:24Z

```

<% 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? ;)

Permalänk: https://www.webforum.nu/p/691111

## #32 — iddi86, 2002-06-07T17:28Z

hur får jag reda på de da\`?

Permalänk: https://www.webforum.nu/p/691116

## #33 — iddi86, 2002-06-07T17:28Z

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
^

Permalänk: https://www.webforum.nu/p/691117

## #34 — solbulle, 2002-06-07T17:30Z

Vilka fält, typ: RecSet("datum") mfl hör till vilken databas, du använder ju två? members.mdb samt gb.mdb

Permalänk: https://www.webforum.nu/p/691119

## #35 — iddi86, 2002-06-07T17:32Z

alla förutom 

RecSet("username")    hör till gb.mdb

Permalänk: https://www.webforum.nu/p/691121

## #36 — solbulle, 2002-06-07T17:40Z

ok, ändra då i din kod:

\<%=RecSet("username")%\>

till:

\<%=username %\>

så tycker jag nog att det ska fungera.

Permalänk: https://www.webforum.nu/p/691127

## #37 — iddi86, 2002-06-07T17:40Z

går de att göra så att den hämtar info av dom databserna utan att använda loop?

Permalänk: https://www.webforum.nu/p/691128

## #38 — iddi86, 2002-06-07T17:43Z

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

Permalänk: https://www.webforum.nu/p/691129

## #39 — solbulle, 2002-06-07T17:43Z

Posta rad 72

Permalänk: https://www.webforum.nu/p/691130

## #40 — iddi86, 2002-06-07T17:45Z

\<%=username%\>

rad 72

Permalänk: https://www.webforum.nu/p/691132

---

Tråden på webben: https://www.webforum.nu/amne/asp/45420-2databaser/page2  
Föregående sida: https://www.webforum.nu/amne/asp/45420-2databaser.md  
Nästa sida: https://www.webforum.nu/amne/asp/45420-2databaser/page3.md