CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

thomashansen Nybegynder

15. december 2015 - 07:58 Der er 21 kommentarer og
1 løsning

Pludseligt opståede problemer med databasekald

Hej

På vores hjemmeside www.smalspor.dk/index.asp er der opstået alvorlige problemer.

Hjemmesiden er opbygget omkring 2 access databaser; én database indeholder lokomotivdata og den anden, der er en del af et WebWiz forum afvikler forumindlæg.

Ingen af databaserne kan tilgås efter ca. 1/12 2015 og vi har været i kontakt med webhotel, der mener der er problemer med koden.

Det eneste der i længere tid er opdateret på hjemmesiden er databaserne. Lokomotivdatabasen opdateres jævnligt via upload fra Frontpage og WebWiz databasen opdateres når der skrives i Forum.

Jeg er bevidst om, at vi anvender bedaget teknologi, men det har altså kørt upåklageligt i over 10 år...

Jeg har forsøgt at få browseren til, at vise fejlmeddelelser men det er ikke lykkedes, da det ser ud som om kaldet ikke "timer out".

Det er siden d. 1/12 lykkedes nogle få gange, at få systemet til at vise siderne, men kun periodisk.

Vi har mange brugere til dette "niche-site", så vi bliver henrykte hvis nogen vil hjælpe os med, igen at kunne vise data om danske smalsporslokomotiver.

MVH

Thomas

Synes godt om

thomashansen Nybegynder

15. december 2015 - 08:05 #1

Hej

Jeg skal tilføje, at hvis man blot skriver www.smalspor.dk i adresselinien åbnes en html side, der automatisk burde føre til www.smalspor.dk/index.asp via:

<meta http-equiv="REFRESH"
content="1; URL=http://www.smalspor.dk/index.asp">

Denne manøvre er sat ind fordi der for ca. 1 år siden var problemer med lange svartider, men dog max ca .20 sec.

MVH

Thomas

Synes godt om

keysersoze Guru

15. december 2015 - 10:17 #2

Worst case hos mig er at browseren crasher - best case er at der loades uendeligt. Når vi ingenting kan se på siden og du ikke kommer med noget kode er det lidt svært at gætte - men hvor meget fylder dine databaser og har du prøvet at lave en meget simpel test-side, hvor du udskriver fx 10 poster fra databasen (hvis ikke, så prøv og lad os se din kode).

Synes godt om

Syska Mester

15. december 2015 - 10:19 #3

Virker siden lokalt?

Det du faktisk har gjort her er at klage over din bil ikke virker uden at aflevere den til mekanikkeren ... og så kan han bare begynde at fejlsøge :-) Du kan godt se problemet ...

Synes godt om

thomashansen Nybegynder

15. december 2015 - 18:51 #4

Hej

På opfordring har jeg nu reduceret databasen til, at indeholde 10 poster og den er desuden blevet komprimeret.

Koder til de forskellige kald er vist nedenfor (hver ny kode-fil starter med *****

Tak fordi I allerede har taget jer tid til, at svare os

*****HER ER KODEN FOR index.asp:

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Smalsporede industribanelokomotiver</title>
<meta name="description" content="Giver overblik over eksistensen af smalsporslokomotiver i DK">

<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="keywords" content="demag, deutz, diema, henschel, industribane, jenbach, jung, kastrup, krauss, lokomotiv, orenstein, o&k, pm, schöma, smalspor, tog, tipvogn">

<%@LANGUAGE="VBSCRIPT"%>
<%Session.LCID = 1030
Response.Charset = "iso-8859-1"%>



<%
soeg = Request.QueryString("soeg")
If soeg = "" Then
soegestreng = "'%'"
Else
soegestreng = "'%" & soeg & "%'"
End If

Set list = Server.CreateObject ("ADODB.Recordset")
list.Open "SELECT * FROM smalspor WHERE Smalspor_Status =1 ORDER BY LiveTime DESC" , Conn

strSQL1 = "SELECT TOP 1 Smalspor.LiveTime, Smalspor.Ejer, Smalspor.LokomotivNavn, Smalspor.LbNr, Smalspor.Status, Smalspor.BilledLink1, BilledText1, Fotograf1 FROM Smalspor ORDER BY Smalspor.LiveTime DESC"
Set rs1 = Conn.Execute(strSQL1)
%>

<script language="JavaScript">

</script>
</head>

<body onload="FP_preloadImgs(/*url*/'../Buttons/buttona2.jpg')" link="#000000" vlink="#666666" alink="#000000">

<div align="center">

<table border="0" width="713" id="table1" style="border-collapse: collapse">
<tr>
<td colspan="5">

<a target="_top" href="http://www.smalspor.dk/">
<img border="0" src="http://www.smalspor.dk/forum/includes/skinnesymbol01.gif" width="23" height="23"></a>
 Smalsporede industribanelokomotiver 
 </td>
</tr>
<tr>
<td align="center" valign="top" width="165">
<div align="center">
<table border="0" id="table2" cellspacing="0" cellpadding="0" width="133">
<tr>
<td width="139" align="center">

 
 
Menu
            

<a target="_top" title="Find lokomotiver i lokomotivdatabasen" href="../search_drivkraftlokomotivfabrikat01.asp">Lokomotiver</a>


            

<a target="_top" title="Fritekst søgning i lokomotivdatabasen" href="../search_alt001.asp">Fri søg</a>


            

<a target="_blank" href="http://www.smalspor.dk/forum/default.asp">Forum</a>


            
<a target="_blank" title="Fritekst søgning i Forum" href="http://www.smalspor.dk/forum/search_form.asp?FID=0">
Forum Søg</a>

            
<a title="Flere udfordringer på udflugten - geocaching med smalspor´s tema" target="_blank" href="http://www.geocaching.com/seek/nearest.aspx?u=www.smalspor.dk">
Geocaching</a>


            

<a target="_blank" href="http://www.smalspor.dk/forum/forum_posts.asp?TID=76">Spot´s</a>


            
<a target="_blank" href="http://www.smalspor.dk/forum/forum_posts.asp?TID=271&PID=595">Køreplaner</a>

            

<a target="_blank" href="http://www.flickr.com/smalspor">
Fotoalbum</a>

            

<a target="_blank" title="Kort og godt..." href="https://twitter.com/_TKH/media">Smalfilm</a>


            

<a href="../kontaktind.htm" target="_top">Kontakt</a>
            

<a href="../kilder.htm" target="_top">Kilder</a>
            

<a href="../links.htm" target="_top">Link´s</a>
            

<a href="../baggrund.htm" target="_top">Baggrund</a>     
 

      
<tr>
<td align="left">

<a target="_blank" href="https://twitter.com/smalspor">
#smalspor </a>
<a target="_blank" title="TKH på twitter" href="https://twitter.com/_TKH">
<img border="0" src="twitter-bird-blue-on-white_small.png" width="82" height="81"></a>

</td>
</tr>
</table></div>

 </td>
<td align="center" valign="top" width="4"> </td>
<td align="center" valign="top" width="534">
 

        Seneste opdatering i
lokomotiv-databasen: <% Response.Write ("<a target=_top href='search_seneste01.asp" & "'target=>" & list.Fields("Opd") & "</a>")%></th>

<a target="_top" OnMouseOver="window.status='Se seneste opdatering i databasen'; return true" title="Seneste opdatering i lokomotiv-databasen" href="../search_seneste01.asp">

<img src="http://www.smalspor.dk/foto/<% =rs1("BilledLink1") %>" size="0" border="0" width="475" height="353" style="position: relative"></a>
 


<div align="center">
<table border="0" width="467" id="table3" cellpadding="0" bordercolor="#000000" style="border-collapse: collapse">
<tr>
<td align="center">
Fotograf:</a> </th><% = rs1("Fotograf1")%>
  Lokomotiv:</a> </th><% = rs1("LokomotivNavn")%>   Status:</a> </th><% = rs1("Status")%> <tr>
<td align="center">

FotoTekst:</a> </th><% = rs1("BilledText1")%></a>   Ejer: </th><% = rs1("Ejer")%></a></tr>
<tr>
<td align="center">



D<a target="_top" OnMouseOver="window.status='Se seneste opdatering i databasen'; return true" title="Seneste opdatering i databasen" href="../search_seneste01.asp" style="text-decoration: none">i</a>verse
Indlæg fra Forum: 
<tr>
<td align="center">

 </table>
 
 </div>
<a target="_top" OnMouseOver="window.status='Se seneste opdatering i databasen'; return true" title="Seneste opdatering i databasen" href="../search_seneste01.asp">
</td>
<td align="center" valign="top" width="25"> </td>
<td align="center" valign="top" width="1">

<%
Response.Buffer = True

dim Side_B
Side_B = "http://www.smalspor.dk/Forum/TH_43.asp"

Dim objXMLHTTP, xml

' Create an xmlhttp object:
Set xml = Server.CreateObject("Microsoft.XMLHTTP")
' Or, for version 3.0 of XMLHTTP, use:
' Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP")

' Opens the connection to the remote server.
xml.Open "GET", Side_B, False

' Actually Sends the request and returns the data:
xml.Send

'Display the HTML both as HTML and as text
'Response.Write "<h1>The HTML text</h1><xmp>"
'Response.Write xml.responseText
'Response.Write "</xmp><hr><h1>The HTML Output</h1>"
%>
<%Response.Write xml.responseText

Set xml = Nothing
%>
</td>
</tr>




</body>

</html>

*****HER ER KODEN FOR dbconnect4.asp:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/fpdb/smalspor.mdb")
Conn.Open DSN
%>

*****HER ER KODEN FOR HER ER KODEN FOR TH_43.asp:

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Anvendelse</title>
</head>

<%@LANGUAGE="VBSCRIPT"%>
<%Session.LCID = 1030
Response.Charset = "iso-8859-1"%>



<%
Set list = Server.CreateObject ("ADODB.Recordset")
list.Open "SELECT TOP 9 tblAuthor.Username, tblTopic.Topic_ID, tblTopic.Subject, tblThread.Message_date, tblThread.Message FROM tblTopic INNER JOIN (tblAuthor INNER JOIN tblThread ON tblAuthor.Author_ID = tblThread.Author_ID) ON tblTopic.Topic_ID = tblThread.Topic_ID ORDER BY tblThread.Thread_ID DESC ", Conn
%>

<html>
<head>
<title>Anvendelse</title>
</head>

<body style="text-align: right">

<div align="center">
<table style="border-left-color: #000000; border-top-color: #000000" cellspacing="0" bordercolorlight="#000000" bordercolordark="#000000" border="0" cellpadding="0" width="314">
<tr>
<td valign="top" width="18" align="left" bordercolor="#FFFFFF"> </td>
<td valign="top" width="296" align="left" bordercolor="#FFFFFF" colspan="2">

 Seneste nyheder på Forum  </td>
</tr>
<tr>
<td valign="top" width="18" align="left" bordercolor="#FFFFFF"> </td>
<td valign="top" width="97" align="left" bordercolor="#FFFFFF">
Forfatter:</td>
<td valign="top" width="238" bordercolor="#FFFFFF" align="left">
Emne:</td>
</tr>

<%
While NOT list.EOF
%>

<td valign="top" width="18" align="left" bordercolor="#FFFFFF"> </td>
<td valign="top" width="97" align="left" bordercolor="#FFFFFF">
<% = list.Fields("Username")%> </td>
<td valign="top" width="238" align="left" bordercolor="#FFFFFF">
<% Response.Write ("<a target=_blank href='http://www.smalspor.dk/forum/forum_posts.asp?TID=" & list.Fields("Topic_ID") & ("&PD=0") & "'target=>" & list.Fields("Subject") & "</a>")%></td>
</tr>

<%
list.MoveNext
Wend
%>

</table>
<table border="0" width="314" id="table1" style="border-collapse: collapse">
<tr>
<td align="center">
 
Blog´s, temasider, etc. 
_<table border="0" width="100%" id="table2" style="border-collapse: collapse">
<tr>
<td width="76" style="line-height: 150%"> </td>
<td width="172" style="line-height: 150%">
*

 
<a title="60 år er ingen alder for et lokomotiv" target="_blank" href="http://www.smalspor.dk/forum/forum_posts.asp?TID=173&PD=0">
Danske lok. i Letland</a> 
*
 
<a title="Flere udfordringer på udflugten" target="_blank" href="http://www.smalspor.dk/forum/forum_posts.asp?TID=190">
GPS - Skattejagt</a> 
* 
 <a target="_blank" href="http://bloustroedbrickyard.blogspot.dk/">Nyt
- BloustrødBanen</a> 
*

  
<a title="Industribaneklubbens arbejde i Maskinafdelingen og Baneafdelingen" target="_blank" href="http://www.maskinafdelingsnyt.blogspot.com/">
Nyt - IBK Mafd & Bafd</a>. 
*

 
<a target="_blank" href="http://www.m.dk/~/media/Metro/Metrobyggeriet/Tunnelboring/Tunnelboring-Eva-v-NO.jpg">
Så langt er de 4 TBM´er</a> 
 </td>
<td> </td>
</tr>
</table>
<table border="0" width="100%" id="table3" style="border-collapse: collapse">
<tr>
<td width="40%" align="center"> </td>
<td>
<a target="_blank" href="http://www.smalspor.dk/forum/RSS_topic_feed.asp">
<img border="0" src="Forum/rss.gif" width="36" height="14"></a></a><a href="http://www.addthis.com/bookmark.php?v=250&username=xa-4b50f22f2988a9e1" class="addthis_button_compact"></a></th></script><script type="text/javascript" src="http://s7.addthis.com/js/250/addthis_widget.js#username=xa-4b50f22f2988a9e1"></script><script type="text/javascript">
var addthis_config = {
services_compact: 'email, favorites, googletranslate, pdf online, print, twitter',
services_exclude: '',
services_expanded: 'delicious, google'
}
</script></td>
<td width="25%"> </td>
</tr>
</table>
</td>
</tr>
</table>
</div>



</table>

</form>











</body>
</html>

<%
list.close
set list = nothing
%>

*****HER ER KODEN FOR THdbconnectForum.asp:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/Forum/dennyebasse/dennyebasse.mdb")
Conn.Open DSN
%>

Synes godt om

thomashansen Nybegynder

15. december 2015 - 18:53 #5

Hej

Som det fremgår har vi aldrig ryddet meget op i koden og den er derfor med tiden blevet omfattende.

index.asp kalder som nævnt 2 databaser.

MVH

Thomas

Synes godt om

keysersoze Guru

16. december 2015 - 09:40 #6

Med en simpel side tænkte jeg lige så meget på at vi kunne undgå en masse irrelevant markup osv for at lette overskueligheden - men noget jeg i hvert fald lægger mærke til er at du så vidt jeg kan se ikke lukker dine connections osv og det er en dræber.

Er denne kode det der ligger online nu eller hvad sker der når du kører koden? Og hvad sker der hvis du kører din originale kode lokalt? Hvor meget fylder databasen før/efter oprydning?

Prøv igen med en yderst simpel side op imod en kopi af databasen;

'conn
'rs
'loop
'rs.close
'conn.close

Synes godt om

thomashansen Nybegynder

16. december 2015 - 21:24 #7

Hej

Jeg har prøvet at forsimple koden, så den blive lettere at gå til.

De følgende 2 filer er uploadet:

*****Filen indextroulble01.asp er en forsimplet udgave af index.asp, men uden kald til Forum:

<%@LANGUAGE="VBSCRIPT"%>
<%Session.LCID = 1030
Response.Charset = "iso-8859-1"%>



<%
soeg = Request.QueryString("soeg")
If soeg = "" Then
soegestreng = "'%'"
Else
soegestreng = "'%" & soeg & "%'"
End If

Set list = Server.CreateObject ("ADODB.Recordset")
list.Open "SELECT * FROM smalspor WHERE Smalspor_Status =1 ORDER BY LiveTime DESC" , Conn

strSQL1 = "SELECT TOP 1 Smalspor.LiveTime, Smalspor.Ejer, Smalspor.LokomotivNavn, Smalspor.LbNr, Smalspor.Status, Smalspor.BilledLink1, BilledText1, Fotograf1 FROM Smalspor ORDER BY Smalspor.LiveTime DESC"
Set rs1 = Conn.Execute(strSQL1)
%>

<script language="JavaScript">

</script>
</head>

<body onload="FP_preloadImgs(/*url*/'../Buttons/buttona2.jpg')" link="#000000" vlink="#666666" alink="#000000">

<div align="center">

<table border="0" width="713" id="table1" style="border-collapse: collapse">
<tr>
<td align="center" valign="top" width="4"> </td>
<td align="center" valign="top" width="534">
 

        Seneste opdatering i
lokomotiv-databasen: <% Response.Write ("<a target=_top href='search_seneste01.asp" & "'target=>" & list.Fields("Opd") & "</a>")%></th>

<a target="_top" OnMouseOver="window.status='Se seneste opdatering i databasen'; return true" title="Seneste opdatering i lokomotiv-databasen" href="../search_seneste01.asp">

<img src="http://www.smalspor.dk/foto/<% =rs1("BilledLink1") %>" size="0" border="0" width="475" height="353" style="position: relative"></a>
 


<div align="center">
<table border="0" width="467" id="table3" cellpadding="0" bordercolor="#000000" style="border-collapse: collapse">
<tr>
<td align="center">
Fotograf:</a> </th><% = rs1("Fotograf1")%>
  Lokomotiv:</a> </th><% = rs1("LokomotivNavn")%>   Status:</a> </th><% = rs1("Status")%> <tr>
<td align="center">

FotoTekst:</a> </th><% = rs1("BilledText1")%></a>   Ejer: </th><% = rs1("Ejer")%></a></tr>
<tr>
<td align="center">



D<a target="_top" OnMouseOver="window.status='Se seneste opdatering i databasen'; return true" title="Seneste opdatering i databasen" href="../search_seneste01.asp" style="text-decoration: none">i</a>verse
Indlæg fra Forum: 
<tr>
<td align="center">

 </table>
 
 </div>
<a target="_top" OnMouseOver="window.status='Se seneste opdatering i databasen'; return true" title="Seneste opdatering i databasen" href="../search_seneste01.asp">
</td>
<td align="center" valign="top" width="1">

</td>
</tr>




</body>

</html>

*****Filen indextroulble02.asp er en forsimplet udgave af index.asp og udelukkende med kald til Forum:

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Smalsporede industribanelokomotiver</title>
<meta name="description" content="Giver overblik over eksistensen af smalsporslokomotiver i DK">

<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="keywords" content="demag, deutz, diema, henschel, industribane, jenbach, jung, kastrup, krauss, lokomotiv, orenstein, o&k, pm, schöma, smalspor, tog, tipvogn">

<%@LANGUAGE="VBSCRIPT"%>
<%Session.LCID = 1030
Response.Charset = "iso-8859-1"%>



<%
soeg = Request.QueryString("soeg")
If soeg = "" Then
soegestreng = "'%'"
Else
soegestreng = "'%" & soeg & "%'"
End If

Set list = Server.CreateObject ("ADODB.Recordset")
list.Open "SELECT * FROM smalspor WHERE Smalspor_Status =1 ORDER BY LiveTime DESC" , Conn

strSQL1 = "SELECT TOP 1 Smalspor.LiveTime, Smalspor.Ejer, Smalspor.LokomotivNavn, Smalspor.LbNr, Smalspor.Status, Smalspor.BilledLink1, BilledText1, Fotograf1 FROM Smalspor ORDER BY Smalspor.LiveTime DESC"
Set rs1 = Conn.Execute(strSQL1)
%>

<script language="JavaScript">

</script>
</head>

<body onload="FP_preloadImgs(/*url*/'../Buttons/buttona2.jpg')" link="#000000" vlink="#666666" alink="#000000">

<div align="center">

<table border="0" width="713" id="table1" style="border-collapse: collapse">
<tr>
<td align="center" valign="top" width="4"> </td>
<td align="center" valign="top" width="534">
 

        
<a target="_top" OnMouseOver="window.status='Se seneste opdatering i databasen'; return true" title="Seneste opdatering i databasen" href="../search_seneste01.asp">
</td>
<td align="center" valign="top" width="25"> </td>
<td align="center" valign="top" width="1">

<%
Response.Buffer = True

dim Side_B
Side_B = "http://www.smalspor.dk/Forum/TH_43.asp"

Dim objXMLHTTP, xml

' Create an xmlhttp object:
Set xml = Server.CreateObject("Microsoft.XMLHTTP")
' Or, for version 3.0 of XMLHTTP, use:
' Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP")

' Opens the connection to the remote server.
xml.Open "GET", Side_B, False

' Actually Sends the request and returns the data:
xml.Send

'Display the HTML both as HTML and as text
'Response.Write "<h1>The HTML text</h1><xmp>"
'Response.Write xml.responseText
'Response.Write "</xmp><hr><h1>The HTML Output</h1>"
%>
<%Response.Write xml.responseText

Set xml = Nothing
%>
</td>
</tr>




</body>

</html>

Synes godt om

thomashansen Nybegynder

16. december 2015 - 21:40 #8

Hej

Det undrer mig som nævnt, at der er fejl på 2 forskellige databaser.

Jeg tror man skal starte med fejlsøgning på indextroulble01.asp

Den tilhørende database fylder ca. 0,3 MB.

MVH

Thomas

Synes godt om

keysersoze Guru

16. december 2015 - 21:46 #9

Kører både index og indextroulble01 på samme database?

Synes godt om

thomashansen Nybegynder

16. december 2015 - 22:16 #10

Hej

Ja, begge filer læser fra samme database.

MVH

Thomas

Synes godt om

keysersoze Guru

16. december 2015 - 22:42 #11

prøv som nævnt at lægge en ny database op kun denne test-side snakker med - og så få lavet dit eksempel så den som skrevet lukker alt hvad du åbner, heriblandt din conn. Vi er ligeglade med markup osv, bare en connection, et kald og lidt udskrift fra en tabel.

Synes godt om

thomashansen Nybegynder

17. december 2015 - 07:40 #12

Hej

Jeg prøver at lave et simpelt kald i en testfil, men da det nok er 10 år siden jeg har rodet med det her for alvor, skal jeg have fat i mine bøger først.

Jeg har nogle kommentarer:

Er det ikke påfaldende, at jeg har 2 Access systemer, der pludselig ikke virker (WebWiz forummet er endda købt fra deres hjemmeside og installeret efter forskrifterne og hr kørt fint i mindst 5 år) ?

Jeg er inde på, at mit webhotel har foretaget en eller anden opdatering, der blokerer for alle mine databasekald (dette i lyset af, at der netop ikke har været rettet i koden i lang tid). Jeg startede naturligvis med fejlsøgningen i samarbejde med webhotellet, hvilket dog ikke fik systemerne til at fungere, selvom de installerede en backup.

Kender man andre, der har fået tilsvarende problemer med Access kald på hjemmesider ?

Tak for jeres tid, jeg vender tilbage.

MVH

Thomas

www.smalspor.dk

Synes godt om

keysersoze Guru

17. december 2015 - 09:31 #13

Jo, selvfølgelig virker det underligt, men du kommer nok ikke hurtigere i luften igen ved kun at give webhotellet skylden (uden "beviser" i hvert fald) og derfor er der ikke mange andre veje end at prøve sig frem. Du kunne også afprøve på et andet webhotel eller lokalt hos dig selv, afprøve mindre og simple løsninger i en form for sandbox, se om webhotellet har en log med yderligere information eller lignende.

Jeg kender ikke til mange andre kørende løsninger i klassisk ASP og har ikke hørt om fejlen før.

Synes godt om

thomashansen Nybegynder

18. december 2015 - 00:20 #14

Hej

Nu har jeg forsøgt, at vise jer 2 simple filer, men jeg får stadig ingen udlæsning når jeg kalder TestReadOut_search_status01.asp fra adresselinien

Thomas

*****Denne fil skaber connection:

dbconnect4.asp

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/fpdb/smalspor.mdb")
Conn.Open DSN
%>

*****Denne fil udlæser Ejer på det enkelte lokomotiv efter valg af status (med status menes f.eks om lokomotivet er "i drift"). Jeg er kalr over, at der er nogen html-kode i eksemplet, men ellers forsvinder meningen helt

TestReadOut_search_status01.asp

<%@LANGUAGE="VBSCRIPT"%>



<%
soeg = Request.QueryString("soeg")
If soeg = "" Then
soegestreng = "'%'"
Else
soegestreng = "'%" & soeg & "%'"
End If

Set list = Server.CreateObject ("ADODB.Recordset")
list.Open "SELECT * FROM smalspor WHERE Smalspor_Status =1 AND Status LIKE " & soegestreng & " ORDER BY Status, Ejer, TilgaaetAar, Lokalitet, LoebeNr, Sporvidde_mm, LokomotivNavn, Transmision", Conn
%>

<tr><td bgcolor="#CCCCCC">

<form name="FrontPage_Form1" method="get" action="search_status01.asp" onsubmit="return FrontPage_Form1_Validator(this)" language="JavaScript">

<form method="GET" action="search_sporv.asp">

</td>

Vælg status: 
<select name="soeg" onchange="this.form.submit();">
<option selected><% = soeg%></option>
<option value=""></option>
<option value="I drift">I drift</option>
<option value="Ude af drift">Ude af drift</option>
<option value="Udstillet/ ej køreklar">Udstillet/ ej køreklar</option>
<option value="Udstillet/ køreklar">Udstillet/ køreklar</option>
<option value="Udstillet/ ej oplyst">Udstillet/ ej oplyst</option>
<option value="Under restaurering">Under restaurering</option>
<option value="?">?</option>
</select>  
</form>

<table style="border-left-color: #000000; border-top-color: #000000; border-collapse:collapse" bordercolorlight="#000000" bordercolordark="#000000" border="2" cellpadding="0">

<%
While NOT list.EOF
%>

<td valign="top"><% = list.Fields("Ejer")%> </td>

<%
list.MoveNext
Wend
%><%
list.close
set list = nothing
%>

Synes godt om

thomashansen Nybegynder

18. december 2015 - 00:23 #15

Hej

Jeg er i tvivl, men burde dette simple kald afsløre om der overhovedet kan afvikles asp fra mit webhotel ?

NB: alle de nævnte asp-filer i denne tråd ligger tilgængelige på www.smalspor.dk

*****TestHelloWorld.asp

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Ny side 1</title>
</head>

<!DOCTYPE html>
<html>
<body>

<%response.write("Hello World!")%>

</body>
</html>

Synes godt om

thomashansen Nybegynder

18. december 2015 - 17:14 #16

Hej

Problemet er formodentligt lokaliseret til at skulle findes i database- eller connection til database i WebWiz forummet.

Når forum åbnes oprettes fejlagtigt en ldb database-fil.

Problemet er muligvis, at databasen ligger i en forkert sti efter en opdatering på webhotellet, der er meget behjælpelige iøvrigt.

Lige nu kan jeg ikke slette ldb-filen, der vist kræver administratoradgang, så det må nok vente til mandag medmindre nogen her kender en metode.

Forløbigt tak. Vi er dog ikke helt i mål endnu.

MVH

Thomas

Synes godt om

keysersoze Guru

18. december 2015 - 21:09 #17

Nu er det godt nok lang tid siden jeg har arbejdet med access, men jeg mener nu at det er meget normalt at der skabes en ldb-fil ved åbning af databasen så tvivler stærkt på at det er årsagen.

Du glemmer stadig at lukke for Conn og så mener jeg heller ikke at Wend giver nogen mening i dit setup. Noget helt andet, som dog ikke direkte har noget med sagen at gøre, er at du med din kode er pivåben over for SQL injection.

Det er fuldstændig korrekt at din TestHelloWorld.asp bare burde blive eksekveret og da hverken database eller anden er inde over burde det tage få millisekunder - men når selv den side slet ikke loades og der med stor sandsynlighed et problem på webhotellet eller den måde de har valgt at konfigurere dig på, så jeg ville prøve at henvise til den side næste gang du taler med dem.

Synes godt om

thomashansen Nybegynder

25. december 2015 - 09:29 #18

Hej

Tak for hjælpen med dette problem !

Vi er i del-mål og jeg har fået megen inspiration til fejlsøgning efter diverse indlæg.

Som nævnt har vi 2 MS Access databaser på samme site og den ene fungerer nu, det er samtidigt "krumtappen", så vi kan tillade os, at holde juleferie og så fortsætte med fejlsøgning i WebWiz forummet efter jul.

keysersoze får alle point, men jeg skal vist bruge et svar først ?

Glædelig jul

Thomas
www.smalspor.dk

Synes godt om

keysersoze Guru

26. december 2015 - 09:01 #19

Hvad var så problemet?

Synes godt om

thomashansen Nybegynder

26. december 2015 - 11:46 #20

Hej

Problemet er, at databasen i forummet efterlader en ldb fil når den åbnes og efterfølgende kan den så ikke åbnes igen hvilket betyder, begge databaser blokkeres og herved fungerer hjemmesiden ikke.

Ved midlertidgt at lukke adgang til forum og få slettet ldb filen af administrator på webhotellet kan den ene database på hjemmesidenkøre, så pt.er der adgang til lokomotivdata men inke til forum.

Fejlen i Forum mangler vi at finde, men det beder jeg omhjælp til i en anden tråd.

Thomas

Synes godt om

keysersoze Guru

26. december 2015 - 12:40 #21

Der må være mere end bare det der blokerer når du tidligere ikke engang kunne eksekvere en fil, der ikke brugte en database.

Som nævnt er en ldb-fil normalt ikke noget problem da den vil forsvinde idet databasen lukkes - så har du husket at gøre det nu?

Synes godt om

kjulius Novice

31. december 2015 - 23:59 #22

Bare en kommentar. For mange år siden havde jeg ansvaret for en side, som også pludselig ikke svarede. Når websitet blev genstartet kunne den igen køre et stykke tid. Det viste sig, at jeg ikke fik lukket connections ordentligt ned og når et bestemt antal brugere havde brugt siden blev det maksimale antal connections nået, og der kunne ikke længere etableres nye. Jeg troede på det tidspunkt, at en forbindelse automatisk blev frigivet, når asp siden var "færdig". Men resourcerne blev faktisk "stående" i web serveren og optog ram mv.

Så ligesom keysersoze vil jeg kraftigt opfordre dig til at sikre, at connections lukkes og frigives igen for hver side:

conn.close
set conn = nothing

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

Database management kurser

Computerworld tilbyder specialiserede kurser i database-management

Se alle Database management kurser

Flere spørgsmål fra MS SQL kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Danske karakterter i simpel insert Af boris i MS SQL	2	25/04/202414:05	29/04/202411:41
Kan ikke connecte til sql serveren Af simsen i MS SQL	2	05/01/202417:02	05/01/202420:51
Count med NOT IN og 2 conditions Af sorenmt84 i MS SQL	2	08/11/202308:37	08/11/202310:32
Top X af group Af totalpc i MS SQL	1	18/10/202321:23	09/11/202313:08
Row level security på flere kolonner Af dane022 i MS SQL	8	30/08/202321:28	01/09/202300:55

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

05/07

Dynamics-kæmpen Cepheo leverer røde tal i første regnskab som selvstændigt selskab

05/07

Store sager fra BMW i5: Alt er bare perfekt afstemt her

05/07

Nørgaard: Derfor bruger fattigrøvene AI meget mere end de rige svin

05/07

IBM-direktør efter blodrødt regnskab: “Vi er godt på vej ud af det stormvejr, som ramte os i 2023”

05/07

Kom i problemer efter ransomware-angreb: Nu køber rigmand Christian Stadil IT-Hotellets bunker

05/07

Stiftere overvejer at gøre Flatpay til en bank – krav om compliance er en stopklods

05/07

Rejsekort reducerer kraftigt den tid, som selskabet vil beholde dine lokationsdata i: Vil nu slette dem efter få måneder

05/07

Hackerangreb på OpenAI: Selskabets designs af AI-teknologi stjålet

05/07

Efter skatte-dom: IBM Danmark sætter 163 millioner kroner til side til ekstra skatte-regning i Danmark

05/07

KMD ændrer i sit ikoniske logo efter 17 år

05/07

Klar tale til Tesla og SAP: Snart skal du tale med dit ERP-system

Vis flere artikler

IT-JOB

IT & Co ApS

IT-tekniker

Sydbank

Software Developer til Digital Banking

Formpipe Software A/S

Afleveringskonsulent/teknisk konsulent (nyuddannet eller erfaren)

MDSI

UI Software Developer

OK a.m.b.a.

OK søger to udviklere til vores IT-finansteam

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

I dag 00:30	Fejl i Ark Af Morten_Jepsen i Excel
I går 16:56	Kan min mobil hackes Af SBS i Mobiltelefoner
I går 12:56	Forskellige billeder til forskellige skærme ? Af snedker1 i Mac
I går 11:56	Om brug af funktionen sumprodukt Af Erik R i Excel
05/0722:41	Hjælp til at skrive opgave Af Needhelp i Småopgaver