Notifikationer

Markér alle som læst Log ud

okay Nybegynder

30. april 2001 - 15:57 Der er 15 kommentarer og
1 løsning

gøre det sådan

kan jeg gøre det på sådan måde:

<%
Dim titel, menutitle, connect
titel = \"Web-Zone.dk Ringtones System\"
menutitel = \"Web-Zone.dk/Ringetoner [ The Place Your Cellphone Will Like ]\"
Connect =\"<%
Set connect = Server.CreateObject(\"ADODB.Connection\")
Connect.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"XXX.mdb\")
sql = \"select * from partner ORDER BY id DESC\"
Set rs = Server.CreateObject(\"ADODB.Recordset\")
set rs = Connect.execute(SQL)

count = 10
While not rs.eof and count > 0
count = count -1
%>
<tr>
<td height=\"2\">
<a href=\"<% = rs(\"link\") %>\">
<% = rs(\"partner\") %></a> </td>
</tr>
<%
rs.movenext
Wend
%>\"

%>

sådan at når jeg skriver i min side <%=connect%> så vil den connect til nettet ???

Synes godt om

okay Nybegynder

30. april 2001 - 15:59 #1

ups connect til nettet ?? mener connect til databasen :)

Synes godt om

okay Nybegynder

30. april 2001 - 16:45 #2

?????????????

Synes godt om

burningice Nybegynder

30. april 2001 - 18:02 #3

well..
1. hvorfor har du <% %> to gange??
2. du skal nok have lavet en function istedet hvis du altså vil nøjes med at kunne skrive connect

function connect()

Set conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"XXX.mdb\")
sql = \"select * from partner ORDER BY id DESC\"
Set rs = Server.CreateObject(\"ADODB.Recordset\")
set rs = Connect.execute(SQL)

count = 10
While not rs.eof and count > 0
response.write \"<tr>\"
response.write\"<td height=\'2\'>\"
response.write\"<a href=\'\"& rs(\"link\") &\"\'>\"& rs(\"partner\")&\"</a> </td> \"
response.write\"</tr>\"
count = count -1
rs.movenext
Wend

conn.close
set conn = nothing

end function

Synes godt om

burningice Nybegynder

30. april 2001 - 18:03 #4

der skal være mellemrum efter alle response.write

Synes godt om

okay Nybegynder

30. april 2001 - 22:38 #5

Tror ik du forstod hvad jeg mente...
jeg skal lave sådan en config file, hvor jeg ligger en connecting til en database, også i alle mine asp filer kun include connect...når jeg skal så skifte navnet til database, så gøre jeg det kun i config filen...håber du er med :)

Synes godt om

burningice Nybegynder

30. april 2001 - 23:23 #6

well

dbconn.inc.asp
---------------------------------------
<%
Set connect = Server.CreateObject(\"ADODB.Connection\")
Connect.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"XXX.mdb\")
%>

default.asp
---------------------------------------

<%
sql = \"select * from partner ORDER BY id DESC\"
Set rs = Server.CreateObject(\"ADODB.Recordset\")
set rs = Connect.execute(SQL)
count = 10
While not rs.eof and count > 0
count = count -1
%>
<tr>
<td height=\"2\">
<a href=\"<% = rs(\"link\") %>\">
<% = rs(\"partner\") %></a> </td>
</tr>
<%
rs.movenext
Wend
conn.close
set conn = nothing
%>

Sådan??

Synes godt om

burningice Nybegynder

30. april 2001 - 23:24 #7

eller måske sådan

dbconn.inc.asp
---------------------------------------
<%
Set connect = Server.CreateObject(\"ADODB.Connection\")
Connect.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"XXX.mdb\")

sql = \"select * from partner ORDER BY id DESC\"
Set rs = Server.CreateObject(\"ADODB.Recordset\")
set rs = Connect.execute(SQL)
count = 10
%>

default.asp
---------------------------------------

<%
While not rs.eof and count > 0
count = count -1
%>
<tr>
<td height=\"2\">
<a href=\"<% = rs(\"link\") %>\">
<% = rs(\"partner\") %></a> </td>
</tr>
<%
rs.movenext
Wend
conn.close
set conn = nothing
%>

Synes godt om

okay Nybegynder

01. maj 2001 - 14:03 #8

hvor mange connectinger kan jeg lave i dbconn.inc.asp filen...
//nyheder
<%
Set connect = Server.CreateObject(\"ADODB.Connection\")
Connect.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"XXX.mdb\")

sql = \"select * from partner ORDER BY id DESC\"
Set rs = Server.CreateObject(\"ADODB.Recordset\")
set rs = Connect.execute(SQL)
count = 10
%>
//banner
<%
Set connect = Server.CreateObject(\"ADODB.Connection\")
Connect.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"XXX1.mdb\")

sql = \"select * from partner ORDER BY id DESC\"
Set rs = Server.CreateObject(\"ADODB.Recordset\")
set rs = Connect.execute(SQL)
count = 10
%>

Synes godt om

okay Nybegynder

01. maj 2001 - 14:03 #9

det var et eks.

Synes godt om

burningice Nybegynder

01. maj 2001 - 14:21 #10

det skulle helst ikke være nødvendigt at lave mere end EEN... hvis du brugere flere db\'er på nuværende tidspunkt skulle du måske overveje at smelte dem sammen til een !!

Udover det kan du lave så mange connection som du har lyst, men du skal altså kalde dem noget forskelligt... f.eks. conn1 conn2 conn3, plus at din sql, dit recordset, alt skal have hver sit navn, f.eks. slq1, sql2, sql3 og rs1, rs2, rs3

Det er noget rod og jeg kan ikke anbefale det!!

Synes godt om

okay Nybegynder

01. maj 2001 - 14:23 #11

så det er bedre hvis jeg deler connecting i filer ??

Synes godt om

burningice Nybegynder

01. maj 2001 - 14:42 #12

well.. du kan jo lave en conn1.inc.asp og en conn2.inc.asp og inkluderer enten den ene eller den anden på de på gældende sider hvor du skal bruge en connection :)

Synes godt om

okay Nybegynder

01. maj 2001 - 14:55 #13

ok :) en god ide...men så bliver der mange filer !!!!

Synes godt om

burningice Nybegynder

01. maj 2001 - 15:21 #14

har du da så mange db\'er?? det er da IKKE så smart i længden!!

Synes godt om

okay Nybegynder

01. maj 2001 - 20:46 #15

ja, det er dårligt...men gider ik at skifte hele l*rten igen :)

Men MEGET tak for hjælpen...

PS: har du tænkt dig at svarer :o)

Synes godt om

burningice Nybegynder

02. maj 2001 - 13:44 #16

allright then, hvis du insisterer :)

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
ASP classic kopiere database fil på server Af bsn i ASP	7	31/10/202610:20	01/11/202620:28
Persits.Upload Af bsn i ASP	9	17/09/202611:37	21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS