Hej Hej Nina. Hej Benni Det räcker med att du skapar en koppling mot databasen som du sen använder. jag kan alltså ta Mer att du öppnar bara en anslutning överst på sidan. Stänger den i slutet av sidan. Öppnar och stänger den alltså bara en gång. men det går ju mot olika databaser ? Har du två databaser, så måste du ha två connectionssträngar. två databaser har jag därför att jag skriver in folk i den ena och laddar upp den. Om jag då skulle ha Jag tycker fortfarande det borde vara bättre att ha en databas. Varför inte skapa en sida för att skriva in folk? Varför måste du göra detta i Access? Vet inte om det framgår att Andreas menar att han tycker man skall använda sig av 1 databas men att båda tabellerna "tabellen" och "saba" ligger i just den databasen. - men även om jag har tabellerna i samma databas det skulle ju bli likadant ändå, eftersom jag har databasen liggande på hårddisken hemma och fyller på den efterhand, och kanske efter 3-4 dagar sänder upp den till servern - då skulle ju "klickantalet" skrivars över, jag skulle ha missat dom som fått träffar under dom där 3-4 dagarna. Den texten som du skriver in, kan du ju också skriva in online. Allt du behöver göra är ju ettRensa upp i koden..
Jag undrar om det finns något sätt att göra den här filen bättre.
Jag har egentligen inget problem med den men jag undrar ändå... :-)
Det jag undrar är över alla connectsträngar eller vad det nu heter, om man kan göra något för att snabba upp det?
<%@ Language = VBSCRIPT %>
<!-- #INCLUDE FILE = "adovbs.inc" -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source= "& server.MapPath("klick.mdb")
' Uppdaterar antalet klick
strSQL = "UPDATE saba SET klick = klick + 1, klicktotalt = klicktotalt + 1 WHERE id = " & Request.Querystring("id")
Connect.Execute(strSQL)
Connect.Close: Set Connect = Nothing
%>
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Set RecSet = Server.CreateObject("ADODB.Recordset")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source= "& server.MapPath("galleriet.mdb")
strSQL = "SELECT fnamn, enamn From tabellen WHERE id = " & Request.QueryString("id")
RecSet.Open strSQL, Connect
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>- historiesajten.se - <%=RecSet("fnamn")%> <%=RecSet("enamn")%></title>
<link rel="stylesheet" type="text/css" href="mall.css">
<META NAME="Author" CONTENT="Nina Ringbom">
<META NAME="Description" CONTENT="Historia">
<META NAME="KeyWords" CONTENT="Sverige">
</head>
<%
RecSet.Close
Set RecSet = Nothing
Connect.Close
Set Connect = Nothing
%>
<body>
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Set RecSet = Server.CreateObject("ADODB.Recordset")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source= "& server.MapPath("galleriet.mdb")
strSQL = "SELECT * From tabellen WHERE id = " & Request.QueryString("id")
RecSet.Open strSQL, Connect
%>
<table border="0" width="510" cellpadding="3" cellspacing="0">
<TR class="rubrik">
<TD align="left" WIDTH="6%">
</TD>
<TD><%=RecSet("fnamn")%>
<%=RecSet("fnamn2")%>
<%=RecSet("enamn")%></TD>
<TD align="right" WIDTH="2%">">
</TD>
<TD align="right" WIDTH="2%">" target="_blank">
</TD> </TR>
<TR><TD id="row1" HEIGHT="15" colspan="2"> </TD></TR>
<TR><TD width="1%" valign="top"><B>Titel:</B></TD> <td><%=RecSet("yrke2")%></TD></TR>
<TR><TD><b>Levde: </b></TD><td><%=RecSet("fodd")%> - <%=RecSet("dod")%> <%=RecSet("alder")%></TD></TR>
<TR><TD HEIGHT="10" colspan="2"></TD></TR>
<TR><td colspan="2"><img src="foto/<%=RecSet("id")%>.jpg" border="0" align="right" alt="<%=RecSet("foto")%>"> <%=RecSet("historia")%></TD></TR>
<TR><td height="10" colspan="2"></TD></TR>
<TR><TD width="1%"><b>Område:</b></TD><TD>" style="text-decoration: none;"> <%=RecSet("yrke1")%> " style="text-decoration: none;"> <%=RecSet("yrke3")%> " style="text-decoration: none;"> <%=RecSet("yrke4")%> " style="text-decoration: none;"> <%=RecSet("yrke5")%></TD></tr>
<TR><TD><b>Personer:</b> </TD><TD>Efternamn | Förnamn | Kvinnor | Födelseår | Dödsår | Yrken/titlar</TD></tr>
<TR><td height="20" colspan="2"></TD></TR>
<tr><td height="20" colspan="5"><img src="divider.jpg" align="middle" alt="delare"></td></tr>
<TR class="ltextfarg"><td align="left" width="10%"> tillbaka
</nobr></TD></TR>
<%
RecSet.Close
Set RecSet = Nothing
Connect.Close
Set Connect = Nothing
%>
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Set RecSet = Server.CreateObject("ADODB.Recordset")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source= "& server.MapPath("klick.mdb")
strSQL = "SELECT klicktotalt From saba WHERE id = " & Request.QueryString("id")
RecSet.Open strSQL, Connect
%>
<tr align="center" class="footer"><td colspan="3">Sidan har haft <%=RecSet("klicktotalt")%> besök</TD></TR>
<%
RecSet.Close
Set RecSet = Nothing
Connect.Close
Set Connect = Nothing
%>
</body>
</html>
Sv: Rensa upp i koden..
Det här kör du fyra ggr.
<code>
Set Connect = Server.CreateObject("ADODB.Connection")
Set RecSet = Server.CreateObject("ADODB.Recordset")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source= "& server.MapPath("galleriet.mdb")
</code>
Jag skulle nog ha gjort på ett helt annat vis, det kanske inte blir snabbare, men det blir inte så "grötigt".
Om du bygger upp en extra fil, med subbar, som du hänvisar till, så kan du får det bättre.
Jag brukar också ha min connectens i en includefil, så skulle jag behöva att ändra någon sökväg,
så är det bara på ett ställe som man behöver ändra.
Vill du ha mera tips, så får du säga till, så skall jag försöka att bygga någonting till dig.Sv:Rensa upp i koden..
Jag trodde att man var tvungen att ha:
<code>
Set Connect = Server.CreateObject("ADODB.Connection")
Set RecSet = Server.CreateObject("ADODB.Recordset")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source= "& server.MapPath("galleriet.mdb")
</code>
varje gång man skall göra något mot databasen...?
Som du märker så är jag inte hemma i dom här områdena ;-)Sv: Rensa upp i koden..
Dvs din Connect sträng.
Recordset kan du stänga när du är klar med dem, sist av allt stänger du kopplingen till databasen.
När jag kodar så använder jag alltid en include fil till databaskopplingen, behöver jag ändra sökväg så behöver jag bara ändra i en fil.
Set Connection = Server.CreateObject("ADODB.Connection")
SET Connection = Conn_GetDatabaseConn()
Så anropar jag kopplingen till databasen.
' Skapa koppling till databasen
Function Conn_GetDatabaseConn()
Dim oConn
Set oConn = Server.CreateObject ("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source= "& server.MapPath("db/databas.mdb")
Set Conn_GetDatabaseConn = oConn
End Function
//Anna-Karin
Sv:Rensa upp i koden..
Set Connect = Server.CreateObject("ADODB.Connection")
Set RecSet = Server.CreateObject("ADODB.Recordset")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source= "& server.MapPath("galleriet.mdb")
och slänga in det i en egen fil som jag sen inkluderar före varje sådanhär?
strSQL = "SELECT * From tabellen WHERE id = " & Request.QueryString("id")
RecSet.Open strSQL, Connect
Sv: Rensa upp i koden..
Sv:Rensa upp i koden..
den ena heter galleriet och den andra heter klick, så jag måste väl ha två stycken sånna här?Sv: Rensa upp i koden..
Ett allternativ äratt du importera din data ifrån den andra databasen och enbart använder dig av en
databas och en connectionsstring.Sv:Rensa upp i koden..
antal klick på varje person i samma databas skulle jag ju skriva över "antal klick" varje gång jag sände upp min databas och då skulle räkningen bli fel.Sv: Rensa upp i koden..
Sv:Rensa upp i koden..
Och jag håller med honom - det är bäst.Sv: Rensa upp i koden..
Sen tycker jag det är enklare att jobba så - att skriva, först i world, och sen klistra in det i databasen - eftersom jag på en text kanske ändrar 50 gånger, ett ord här, en annan mening där osv. Sv:Rensa upp i koden..
administrationsscript, och så är ju dina problem lösta.
Att hålla på och ladda upp databasen fram och tillbaka, tycker jag verkar både hårdarbetat och dålig
planering av webbplatsen.