hmmmm?

10 svar · 183 visningar · startad av crisse6 24 mars 2001

crisse6Medlem sedan dec. 20002 526 inlägg

24 mars 2001 10:36#1

jag ska använda mig utav samma databas, men skriva ut på två olika ställen på en och samma sida.... tror nog väl att man måste ge ett unikt namn på varje db:koppling...? får inte detta att funka, den ger mig felmeddelande "Inbördes konflikt..."

<%
Set Databas = Server.CreateObject("ADODB.Connection")
Set Databas2 = Server.CreateObject("ADODB.Connection")
MdbFilePath = Server.MapPath("users.mdb")
MdbFilePath2 = Server.MapPath("users.mdb")
Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & MdbFilePath & ";"
Databas2.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath2 & ";"
%>
<%
SQL = "SELECT TOP 1 username, fakta FROM users ORDER BY id DESC"
set news = databas.execute (sql)
%>
<%
SQL2 = "select Count(*) AS klo from users"
Set RS_klo = databas2.execute(SQL2)
Randomize
Set rstemp = Server.Createobject("ADODB.Recordset")
SQL2 = "Select * from users"
rstemp.cursorlocation = aduseclient
rstemp.cachesize = 5
rstemp.open SQL, "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath2 & ";"
rstemp.move Int(Rnd*RS_klo("klo"))
%>

------------------
www.groda.net *kvack*, *kvack*

@ndersMedlem sedan juni 200032 969 inlägg

24 mars 2001 11:33#2

varför har du två databaskopplingar öht :q

rstemp.open SQL, "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath2 & ";"

borde du inte slänga med ett connectionobjekt?

borde du inte också ange att du ska öppna recordsetet med adopendynamic / adlockoptimistic ?

är det verkligen sql och inte sql2 som är frågan du ska köra?

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
all your base are belong to us!</A>

crisse6Medlem sedan dec. 20002 526 inlägg

24 mars 2001 14:38#3

öhhh... okej, nu förstår inte jag ett piss :(

kan någon förklara lite mer...?

------------------
www.groda.net *kvack*, *kvack*

LarsGMedlem sedan dec. 200012 464 inlägg

24 mars 2001 19:53#4

Felorsaken är nog, som @nders säger, att finna i denna del

SQL2 = "Select * from users"
rstemp.cursorlocation = aduseclient
rstemp.cachesize = 5
rstemp.open SQL, "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath2 & ";"
rstemp.move Int(Rnd*RS_klo("klo"))

är nog bättre med

SQL2 = "Select * from users"
rstemp.cursorlocation = aduseclient
rstemp.cachesize = 5
rstemp.open SQL[b]2, databas,adOpenKeyset[/b]
rstemp.move Int(Rnd*RS_klo("klo"))

Generellt så borde du inte behöva flera kopplingar och flera recordset. I och med att du bara hämtar en post så kan du ju lägga över det i lokala variabler och sedan stänga recordsetet, sätta det till nothing och sedan återutnyttja det.

Så här ungefär


<%
Set Databas = Server.CreateObject("ADODB.Connection")
MdbFilePath = Server.MapPath("users.mdb")
Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & MdbFilePath & ";"

sql = "select top 1 username,fakta from users order by id desc"
set rs = databas.execute(sql)
if  rs.eof then
username = ""
fakta = ""
rs.close
set rs = nothing
else
username = rs("username")
fakta = rs("fakta")
rs.close
set rs = nothing
SQL = "select Count(*) AS KLO from users"
Set RS = databas.execute(SQL)
klo = RS("KLO")
rs.close
set rs = nothing

Set rs = Server.Createobject("ADODB.Recordset")
SQL = "Select * from users"
rs.cursorlocation = adUseClient
rs.cachesize = 5
rs.open SQL, Databas,adOpenKeyset
Randomize
rs.move Int(Rnd*klo)
'hantera data
end if
database.close
set database = nothing
%>

------------------
essentitia preter non sans multiplicandum

[Redigerat av LarsG den 24 mar 2001]

crisse6Medlem sedan dec. 20002 526 inlägg

24 mars 2001 23:17#5

jag vet inte vad jag gör för fel, men nu får ni hela koden att kolla på :e

<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=iso-8859-1">
<title>No title</title>
</head>

<body bgcolor="#F6C643" text="black" link="blue" vlink="purple" alink="red">

<table border="0" cellpadding="0" cellspacing="0" width="1035">
<tr>
<td width="607" valign="top"><table border="0" cellpadding="0" cellspacing="0">
    <tr>
        <td width="568" background="uppe.jpg"><p>&nbsp;</td>
    </tr>
    <tr>
        <td width="568" background="mitten.jpg"><p>&nbsp; 
            
            <div align="center"><table border="0" cellpadding="0" cellspacing="0">
                <tr>
                    <td width="551"><p><font face="Verdana" size="2" color="black"><b><br> 
                        Vad &auml;r nytt?</b></font><font face="Verdana" size="1"
                         color="black"><br> <br> Allt!<br> Nej, men vi har som 
                        ni nog ser &auml;ndrat v&auml;ldigt mycket p&aring; 
                        designen. <br> Vi tycker det blir snyggare s&aring; 
                        *kvack* <br> Annars har vi kvar samma funktioner som 
                        f&ouml;rrut, men vi har &quot;fixat&quot; till dom lite 
                        f&ouml;r er skull (s&aring;klart) *ler* <br> Vi har 
                        &auml;n s&aring; l&auml;nge inte funktionen &quot;Skicka 
                        vykort&quot; p&aring; menyn, vi m&aring;ste f&aring; 
                        lite ordning p&aring; det. <br> Nu p&aring; starten 
                        h&auml;r av version 2.01 blir det v&auml;l tyv&auml;rr 
                        s&aring; att ni kommer att hitta fel os&aring;... <br> 
                        men vi hoppas ju p&aring; det b&auml;sta *kvack*<br> 
                        &Auml;r det nu s&aring; att ni r&aring;kar st&ouml;ta 
                        p&aring; problem ska ni inte vara r&auml;dda f&ouml;r 
                        att ta kontakt med oss.<br> Vi har lagt till lite omr&ouml;stning 
                        ocks&aring; som byts ut varje m&aring;nad. <br> Sj&auml;lvklart 
                        kommer det mer p&aring; sidan, h&auml;ng ut!</font></p>
                        <p><font face="Verdana" size="2" color="black"><b>Vanliga 
                        fr&aring;gor och svar:</b></font></p>
                        <p><font face="Verdana" size="1" color="black">Hur blir 
                        man en medlem h&auml;r p&aring; groda.net?<br> </font><font
                         face="Verdana" size="1" color="black"><b><u>Svar:</u></b> <br> Genom ett 
                        enkelt klick h&auml;r *kvack*<br> Hur ser jag om jag 
                        har n&aring;got nytt mejl?<br> </font><font face="Verdana"
                         size="1" color="black"><b><u>Svar:</u></b></font><font
                         face="Verdana" size="1" color="black"> <br> Du ser 
                        det redan p&aring; den sida du hamnar p&aring; efter 
                        inloggning, eller s&aring; kan du klicka p&aring; &quot;Mejlen&quot; 
                        uppe i menyn. </font></p>
                        <p>&nbsp;</td>
                </tr>
            </table></div>
            <p>&nbsp;</td>
    </tr>
    <tr>
        <td width="568" height="23" background="ner.jpg"><p>&nbsp;</td>
    </tr>
</table>
<p>&nbsp;</p>

<td width="300" valign="top"><table border="0" cellpadding="0" cellspacing="0">
    <tr>
        <td width="190" height="18" background="liten_upp.jpg">            <p>&nbsp;</td>
    </tr>
    <tr>
        <td width="190" background="lite_mitt.jpg"><div align="center"><table
             border="0" cellpadding="0" cellspacing="0">
                <tr>
                    <td width="157"><p><input type="text" name="username" style="font-family:Verdana; font-size:9; border-width:1; border-color:black; border-style:solid;"> 
                        <input type="text" name="password" style="font-family:Verdana; font-size:9; border-width:1; border-color:black; border-style:solid;"> 
                        <br>
                        <input type="image" name="OK !" src="ok_knapp.jpg" width="76" height="38" border="0"></td>
                </tr>
            </table></div></td>
    </tr>
    <tr>
        <td width="190" height="21" background="liten_nere.jpg">
                                    <p>&nbsp;</p>
</td>
    </tr>
</table>
<br><table border="0" cellpadding="0" cellspacing="0">
    <tr>
        <td width="190" height="18" background="liten_upp.jpg">            <p>&nbsp;</td>
    </tr>
    <tr>
        <td width="190" background="lite_mitt.jpg">
                        <table align="center" border="0" width="171">
                            <tr>
                                <td width="161">
                                    <p><font face="Verdana" size="1">Senast 
                                    registrerade groda var, 

<%
Set Databas = Server.CreateObject("ADODB.Connection")
MdbFilePath = Server.MapPath("users.mdb")
Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & MdbFilePath & ";"

sql = "select top 1 username,fakta from users order by id desc"
set rs = databas.execute(sql)
if rs.eof then
username = ""
fakta = ""
rs.close
set rs = nothing
else
username = rs("username")
fakta = rs("fakta")
rs.close
set rs = nothing
SQL = "select Count(*) AS KLO from users"
Set RS = databas.execute(SQL)
klo = RS("KLO")
rs.close
set rs = nothing

Set rs = Server.Createobject("ADODB.Recordset")
SQL = "Select * from users"
rs.cursorlocation = adUseClient
rs.cachesize = 5
rs.open SQL, Databas,adOpenKeyset
Randomize
rs.move Int(Rnd*klo)
'hantera data
end if
database.close
set database = nothing
%>

<b><%=rs("username")%>.</b><br>
Så här berättar han om sig själv,<br>
<%=rs("fakta")%>
</font></p>
                                </td>
                            </tr>
                        </table>
</td>
    </tr>
    <tr>
        <td width="190" height="21" background="liten_nere.jpg">
                                    <p>&nbsp;</p>
</td>
    </tr>
</table>        
    </table>

 <table width="568" cellpadding="0" cellspacing="0">
        <tr>
            <td width="567" background="uppe.jpg">
                <p>&nbsp;</p>
            </td>
        </tr>
        <tr>
            <td width="567" background="mitten.jpg">
 <table align="center" cellpadding="0" cellspacing="0" width="547">
                    <tr>
                        <td width="547">
                            <p>

<%=rs("username")%>
&nbsp;</p>
                        </td>
                    </tr>
                </table>

                <p>&nbsp;</p>
                <p>&nbsp;</p>
            </td>
        </tr>
        <tr>
            <td width="567" background="ner.jpg" height="24">
                <p>&nbsp;</p>
            </td>
        </tr>
    </table>

    <p>&nbsp;</p>
</body>

</html>

jag är lite jobbig :e

------------------
www.groda.net *kvack*, *kvack*

LarsGMedlem sedan dec. 200012 464 inlägg

25 mars 2001 14:14#6

Jag har ändrat lite och använt variabler där du tidigare använt recordset,men det mesta är oförändrat. (Det gick inte att klippa och klistra in det i ett stycke så det kan ha blivit någon miss där)

<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=iso-8859-1">
<title>No title</title>
</head>
<body bgcolor="#F6C643" text="black" link="blue" vlink="purple" alink="red">

<table border="0" cellpadding="0" cellspacing="0" width="1035">
<tr>
<td width="607" valign="top"><table border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="568" background="uppe.jpg"><p> </td>
</tr>
<tr>
<td width="568" background="mitten.jpg"><p>

<div align="center"><table border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="551"><p><font face="Verdana" size="2" color="black"><b><br>
Vad dr nytt?</b></font><font face="Verdana" size="1"
color="black"><br> <br> Allt!<br> Nej, men vi har som
ni nog ser dndrat vdldigt mycket pe
designen. <br> Vi tycker det blir snyggare se
*kvack* <br> Annars har vi kvar samma funktioner som
fvrrut, men vi har "fixat" till dom lite
fvr er skull (seklart) *ler* <br> Vi har
dn se ldnge inte funktionen "Skicka
vykort" pe menyn, vi meste fe
lite ordning pe det. <br> Nu pe starten
hdr av version 2.01 blir det vdl tyvdrr
se att ni kommer att hitta fel ose... <br>
men vi hoppas ju pe det bdsta *kvack*<br>
Dr det nu se att ni rekar stvta
pe problem ska ni inte vara rddda fvr
att ta kontakt med oss.<br> Vi har lagt till lite omrvstning
ockse som byts ut varje menad. <br> Sjdlvklart
kommer det mer pe sidan, hdng ut!</font></p>
<p><font face="Verdana" size="2" color="black"><b>Vanliga
fregor och svar:</b></font></p>
<p><font face="Verdana" size="1" color="black">Hur blir
man en medlem hdr pe groda.net?<br> </font><font
face="Verdana" size="1" color="black"><b><u>Svar:</u></b> <br> Genom ett
enkelt klick hdr *kvack*<br> Hur ser jag om jag
har negot nytt mejl?<br> </font><font face="Verdana"
size="1" color="black"><b><u>Svar:</u></b></font><font
face="Verdana" size="1" color="black"> <br> Du ser
det redan pe den sida du hamnar pe efter
inloggning, eller se kan du klicka pe "Mejlen"
uppe i menyn. </font></p>
<p> </td>
</tr>
</table></div>
<p> </td>
</tr>
<tr>
<td width="568" height="23" background="ner.jpg"><p> </td>
</tr>
</table>
<p> </p>

<td width="300" valign="top"><table border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="190" height="18" background="liten_upp.jpg"> <p> </td>
</tr>
<tr>
<td width="190" background="lite_mitt.jpg"><div align="center"><table
border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="157"><p><input type="text" name="username" style="font-family:Verdana; font-size:9; bord\
er-width:1; border-color:black; border-style:solid;">
<input type="text" name="password" style="font-family:Verdana; font-size:9; border-width:1; border-\
color:black; border-style:solid;">
<br>
<input type="image" name="OK !" src="ok_knapp.jpg" width="76" height="38" border="0"></td>
</tr>
</table></div></td>
</tr>
<tr>
<td width="190" height="21" background="liten_nere.jpg">
<p> </p>
</td>
</tr>
</table>
<br><table border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="190" height="18" background="liten_upp.jpg"> <p> </td>
</tr>
<tr>
<td width="190" background="lite_mitt.jpg">
<table align="center" border="0" width="171">
<tr>
<td width="161">
<p><font face="Verdana" size="1">Senast
registrerade groda dr,

<%
Set Databas = Server.CreateObject("ADODB.Connection")
MdbFilePath = Server.MapPath("users.mdb")
Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & MdbFilePath & ";"

sql = "select top 1 username,fakta from users order by id desc"
set rs = databas.execute(sql)
if  rs.eof then
    response.write "hittade ingen groda"
    username = ""
    fakta = ""
else
    response.write rs("username") & "<br>"
    response.write rs("fakta") & "<br>"
    rs.close
    set rs = nothing
    SQL = "select Count(*) AS KLO from users"
    Set RS = databas.execute(SQL)
    klo = RS("KLO")
    rs.close
    set rs = nothing

    Set rs = Server.Createobject("ADODB.Recordset")
    SQL = "Select * from users"
    rs.cursorlocation = adUseClient
    rs.cachesize = 5
    rs.open SQL, Databas,adOpenKeyset
    Randomize
    rs.move Int(Rnd*klo)
    username = rs("username")
    fakta = rs("fakta")
end if
rs.close
set rs = nothing
database.close
set database = nothing
%>

<b> Dagens slumpmdssiga groda </b><br>
<b><%=username%>.</b><br>
Se hdr berdttar han om sig sjdlv,<br>
<%=fakta%>
</font></p>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="190" height="21" background="liten_nere.jpg">
<p> </p>
</td>
</tr>
</table>
</table>

<table width="568" cellpadding="0" cellspacing="0">
<tr>
<td width="567" background="uppe.jpg">
<p> </p>

</td>
</tr>
<tr>
<td width="567" background="mitten.jpg">
<table align="center" cellpadding="0" cellspacing="0" width="547">
<tr>
<td width="547">
<p>

<%=username%>
 </p>
</td>
</tr>
</table>

<p> </p>
<p> </p>
</td>
</tr>
<tr>
<td width="567" background="ner.jpg" height="24">
<p> </p>
</td>
</tr>
</table>

<p> </p>
</body>

</html>

------------------
essentitia preter non sans multiplicandum

[Redigerat av LarsG den 25 mar 2001]

crisse6Medlem sedan dec. 20002 526 inlägg

30 mars 2001 15:51#7

hallå, nu har jag använt den koden LarsG.... den visar senaste medlemmen men inte slumpningen.... :( får detta felmesset:

ADODB.Recordset error '800a0bb9' 

Programmet använder felaktiga parametrar, som antingen ligger utanför tillåtet intervall, eller som skapar en inbördes konflikt. 

/groda2/noname3.asp, line 121

nu undrar jag var felet ligger... har använt din kod ovan....
hjääääälp!!!!

------------------
www.groda.net *kvack*, *kvack*

@ndersMedlem sedan juni 200032 969 inlägg

30 mars 2001 15:59#8

line 121?

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
all your base are belong to us!</A>

LarsGMedlem sedan dec. 200012 464 inlägg

30 mars 2001 16:14#9

Ber så mycket om ursäkt, det skall inte vara med någon cursortyp i open här nere

Set rs = Server.Createobject("ADODB.Recordset")
SQL = "Select * from users"
rs.cursorlocation = adUseClient
rs.cachesize = 5
rs.open SQL, Databas[b],adOpenKeyset[/b]
Randomize
rs.move Int(Rnd*klo)
username = rs("username")
fakta = rs("fakta")
end if
rs.close
set rs = nothing
database.close
set database = nothing
%>

testa så här istället

rs.open SQL, Databas

------------------
essentitia preter non sans multiplicandum

crisse6Medlem sedan dec. 20002 526 inlägg

30 mars 2001 20:46#10

hmmm.... jag har gjort som du sa, men den gillar det inte ändå :( kolla på hur själva db:kopplingen är skriven här:

<%
Set Databas = Server.CreateObject("ADODB.Connection")
MdbFilePath = Server.MapPath("users.mdb")
Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & MdbFilePath & ";"

sql = "select top 1 username,fakta from users order by id desc"
set rs = databas.execute(sql)
if rs.eof then
response.write "hittade ingen groda"
username = ""
fakta = ""
else
response.write rs("username") & "<br>"
response.write rs("fakta") & "<br>"
rs.close
set rs = nothing
SQL = "select Count(*) AS KLO from users"
Set RS = databas.execute(SQL)
klo = RS("KLO")
rs.close
set rs = nothing

Set rs = Server.Createobject("ADODB.Recordset")
SQL = "Select * from users"
rs.cursorlocation = adUseClient
rs.cachesize = 5
rs.open SQL, Databas
Randomize
rs.move Int(Rnd*klo)
username = rs("username")
fakta = rs("fakta")
end if
rs.close
set rs = nothing
database.close
set database = nothing
%>

+ att jag skriver ut ex. fakta om personen så här:

<%=fakta%>

inte bra detta :(

------------------
www.groda.net *kvack*, *kvack*

[Redigerat av crisse6 den 30 mar 2001]

LarsGMedlem sedan dec. 200012 464 inlägg

30 mars 2001 23:58#11

Jag märker att du inte gör include på adovbs.inc I så fall så är konstanten adUseClient inte definierad.

Du kan antingen göra include på den eller sätta adUseClient = 3 i början på koden.

------------------
essentitia preter non sans multiplicandum