Avatar billede steen67_dk Juniormester
02. september 2005 - 23:16 Der er 17 kommentarer og
1 løsning

Connection String til Access

Jeg har lavet en website med Dreamweaver med blandet andet Asp-dokumenter. Siten er testet lokalt IIS-server. Her fungere siten fint.

Men på Danhost (hvor siten er uploadet) skulle connection stringen ændres til:

DBPath = "DBQ=" & server.mappath("database.mdb") & “DRIVER={Microsoft Access Driver (*.mdb)};"

Dette har jeg imidlertidig ikke kunne få til, at virke. I stedet fik jeg bikset en følgende string:

"Provider=Microsoft.Jet.OLEDB.4.0;Data Source='\\WEB\www_dan13116\DB\LaserDatabase.mdb'"

Denne string fungere åbent bart på nogle af siderne, men ikke på andre.

Jeg får bland andet følgende fejl:

"ADODB.Field error'800a0bcd' - Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

Er der nogen der kan hjælpe?

På forhånd tak!

Steen
Avatar billede softspot Forsker
02. september 2005 - 23:36 #1
Det tror jeg ikke har noget med din connectionstring at gøre. Det lyder til at du forsøger at aflæse en række i et tomt recordset. Har du mulighed for at vise noget kode, alternativt teste det SQL som resulterer i fejlen...?
Avatar billede stigdk Nybegynder
02. september 2005 - 23:41 #2
Det betyder at databasen er tom.

For at undgå disse fejl så skriv i din kode:
<%
if rs.eof or rs.bof then
Response.Write("Databasen er tom!")
end if
%>

//eXe out - I just love ASP SO what!
Avatar billede softspot Forsker
02. september 2005 - 23:45 #3
Aaarh, det er vel lidt voldsomt at påstå at hele databasen er tom når man får den fejl... :D

Det kan godt være den er det, men det er ikke det fejlen signalerer ;)

Men rent bort set fra det, så er jeg enig i fremgangsmåden til at checke om et RECORDSET er tomt.
Avatar billede stigdk Nybegynder
03. september 2005 - 20:26 #4
ja okay vi kan også sige RecordSet emn hovedsagen er at tabelen er tom...

//eXe out - I just love ASP SO what!
Avatar billede steen67_dk Juniormester
06. september 2005 - 04:48 #5
Tak for svarene!

Men da jeg selv har udfyldt access databasen med test tekst m.m., ved jeg at den ikke er tom. Jeg bruger endvidere Dreamweaver til at fremstille af Asp-siderne, connections string, forespørgelser m.v. Her kan man grafisk se de forskellige tabeller og deres indhold, når der klikkes på tabellerne. Men på de pågældende sider er der ingen kontakt til tabellerne.

Hilsen

Steen
Avatar billede softspot Forsker
06. september 2005 - 10:24 #6
Men hvis din forspørgsel returnerer et tomt recordset, så kan der være nok så mange data i dine tabeller... prøv lige at vise din forspørgsel.
Avatar billede steen67_dk Juniormester
07. september 2005 - 01:48 #7
Hej Softspot!

Jeg er ingen haj til dette her, og Dreamweaver laveer meget af arbejdet. Men er det her du mener?

Jeg har en menu, hvor der kan udvælges en nyhed. Koden er følgende:

<%
Dim nyheder
Dim nyheder_numRows

Set nyheder = Server.CreateObject("ADODB.Recordset")
nyheder.ActiveConnection = MM_DBLaser_STRING
nyheder.Source = "SELECT *  FROM nyheder  ORDER BY Dato DESC;"
nyheder.CursorType = 0
nyheder.CursorLocation = 2
nyheder.LockType = 1
nyheder.Open()

nyheder_numRows = 0
%>

Udfra valgene i ovenstående menu vises en valgt nyhed vha. (bla.)denne kode:

<%
Dim nyhedSektion
Dim nyhedSektion_numRows

Set nyhedSektion = Server.CreateObject("ADODB.Recordset")
nyhedSektion.ActiveConnection = MM_DBLaser_STRING
nyhedSektion.Source = "SELECT * FROM nyheder WHERE Dato LIKE '%" + Replace(nyhedSektion__MMColParam, "'", "''") + "%' ORDER BY Dato DESC"
nyhedSektion.CursorType = 0
nyhedSektion.CursorLocation = 2
nyhedSektion.LockType = 1
nyhedSektion.Open()

nyhedSektion_numRows = 0
%>

Håber det var dette du efterspurgte?

På forhånd tak!

Steen
Avatar billede softspot Forsker
07. september 2005 - 02:14 #8
Ja, det var det, men jeg kunne også godt tænke mig at høre om den kode der fejler kommer efter den første forspørgsel du viser eller efter den anden? Mit umiddelbare gæt vil være efter den anden, for det er den der har en betinget udvælgelse, men det finder jeg jo nok snart ud af :)
Avatar billede steen67_dk Juniormester
07. september 2005 - 23:48 #9
Hej Softspot!

Endnu engang tak for din interesse!

Den første forespørgsel "udskriver" en dynamisk menu indholdende datoer og overskrifter.
Sidstnævnte fungere som et dynamisk links, der "opsætter" og viser en uddybende artikel (ud fra overskrift og dato). Dvs. anden forespørgsel aktiveres ud fra et parameter, der gives aktiveret "overskrift".

Det er i hvert tilfælde sådan jeg forstår det.

JEG undre mig blot over, at
den siden hvor de to forespørgsler indgår vises med den dynamiskte menu, samt første nyhedsartikel.

MEN, når jeg sidder i Dreamweaver i "Remote view" tilstanden (dvs. connected til serveren), siger programmet at connection Stringen/stien ikke passer.


Ps. Fejlmeddelelsen var:

Dato:

ADODB.Field error '800a0bcd'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

/steen/nyhed.asp, line 261
Avatar billede softspot Forsker
08. september 2005 - 00:07 #10
Kan du også vise de linier omkring det sted hvor koden fejler?

Det et godt nok en spøjs fejlmeddelelse, men det kan være at den kode hvor du læser dine recordsets, kan kaste lidt mere lys over hvorfor den kommer...
Avatar billede steen67_dk Juniormester
08. september 2005 - 22:03 #11
Hej Softspot!

Dette er kodelineg til den fejlmedelelse jeg beskrev sidst:


<%= DoDateTime((nyhedSektion.Fields.Item("Dato").Value), 2, 2070) %></span></td>

Fejlmeddelelsen kommer, når jeg trykker på den før omtalte dynamiske menu, bestående af dato og kode.

Håber det kaster lys over et eller andet?

Hilsen

Steen
Avatar billede softspot Forsker
08. september 2005 - 22:21 #12
Det siger mig ikke noget i de stumper de kommer her. Det er super svært at se sammenhængene. Er det muligt at poste hele den relevante kode i sammenhæng, eller er det for stor en mundfuld?
Avatar billede steen67_dk Juniormester
13. september 2005 - 06:12 #13
Hej Softspot!

Jeg beklager min langsomme reaktion på din sidte mail.

Men her er hele siden(håber det var det du ville have:


<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/DBLaser.asp" -->
<%
Dim nyheder
Dim nyheder_numRows

Set nyheder = Server.CreateObject("ADODB.Recordset")
nyheder.ActiveConnection = MM_DBLaser_STRING
nyheder.Source = "SELECT *  FROM nyheder  ORDER BY Dato DESC;"
nyheder.CursorType = 0
nyheder.CursorLocation = 2
nyheder.LockType = 1
nyheder.Open()

nyheder_numRows = 0
%>
<%
Dim nyhedSektion__MMColParam
nyhedSektion__MMColParam = "1"
If (Request.QueryString("Dato") <> "") Then
  nyhedSektion__MMColParam = Request.QueryString("Dato")
End If
%>
<%
Dim nyhedSektion
Dim nyhedSektion_numRows

Set nyhedSektion = Server.CreateObject("ADODB.Recordset")
nyhedSektion.ActiveConnection = MM_DBLaser_STRING
nyhedSektion.Source = "SELECT *  FROM nyheder  WHERE Dato LIKE '%" + Replace(nyhedSektion__MMColParam, "'", "''") + "%'  ORDER BY Dato DESC"
nyhedSektion.CursorType = 0
nyhedSektion.CursorLocation = 2
nyhedSektion.LockType = 1
nyhedSektion.Open()

nyhedSektion_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = 10
Repeat1__index = 0
nyheder_numRows = nyheder_numRows + Repeat1__numRows
%>
<%
Dim MM_paramName
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters

Dim MM_keepNone
Dim MM_keepURL
Dim MM_keepForm
Dim MM_keepBoth

Dim MM_removeList
Dim MM_item
Dim MM_nextItem

' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> "") Then
  MM_removeList = MM_removeList & "&" & MM_paramName & "="
End If

MM_keepURL=""
MM_keepForm=""
MM_keepBoth=""
MM_keepNone=""

' add the URL parameters to the MM_keepURL string
For Each MM_item In Request.QueryString
  MM_nextItem = "&" & MM_item & "="
  If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
    MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item))
  End If
Next

' add the Form variables to the MM_keepForm string
For Each MM_item In Request.Form
  MM_nextItem = "&" & MM_item & "="
  If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
    MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item))
  End If
Next

' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
If (MM_keepBoth <> "") Then
  MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
End If
If (MM_keepURL <> "")  Then
  MM_keepURL  = Right(MM_keepURL, Len(MM_keepURL) - 1)
End If
If (MM_keepForm <> "") Then
  MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
End If

' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
  If (firstItem <> "") Then
    MM_joinChar = "&"
  Else
    MM_joinChar = ""
  End If
End Function
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>                   
function DoDateTime(str, nNamedFormat, nLCID)               
    dim strRet                               
    dim nOldLCID                               
                                       
    strRet = str                               
    If (nLCID > -1) Then                           
        oldLCID = Session.LCID                       
    End If                                   
                                       
    On Error Resume Next                           
                                       
    If (nLCID > -1) Then                           
        Session.LCID = nLCID                       
    End If                                   
                                       
    If ((nLCID < 0) Or (Session.LCID = nLCID)) Then               
        strRet = FormatDateTime(str, nNamedFormat)           
    End If                                   
                                       
    If (nLCID > -1) Then                           
        Session.LCID = oldLCID                       
    End If                                   
                                       
    DoDateTime = strRet                           
End Function                                   
</SCRIPT>                                   
<html>
<head>
<title>Stutteri Laser nyheder</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function MM_swapImgRestore() { //v3.0
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}

function MM_swapImage() { //v3.0
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
  if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//-->
</script>
<style type="text/css">
<!--
.style1 {
    font-family: Verdana, Arial, Helvetica, sans-serif;
    font-weight: bold;
    font-size: 24px;
}
.style2 {
    font-family: Verdana, Arial, Helvetica, sans-serif;
    font-size: 14px;
    color: #3333FF;
}
.style4 {
    font-family: Verdana, Arial, Helvetica, sans-serif;
    font-size: 16px;
    font-weight: bold;
}
.style9 {font-family: Arial, Helvetica, sans-serif; font-size: 12px; }
.style15 {font-size: 16px}
-->
</style>
<style type="text/css">
<!--
.style10 {
    font-size: 18px;
    font-weight: bold;
}
.style11 {
    font-family: Arial, Helvetica, sans-serif;
    font-size: 14px;
}
.style13 {font-family: Arial, Helvetica, sans-serif; font-size: 14px; font-weight: bold; }
-->
</style>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new image; d.MM_p[j++].src=a[i];}}
}
//-->
</script>
<style type="text/css">
<!--
body {
    margin-left: 0px;
    margin-top: 0px;
    margin-right: 0px;
    margin-bottom: 0px;
    background-color: #33cb98;
}
-->
</style>

<link href="css/basis.css" rel="stylesheet" type="text/css">
</head>
<body onLoad="MM_preloadImages('image/nyheder_g.jpg','image/forside_b.jpg','image/booking_b.jpg','image/laser_b.jpg','image/kontakt_b.jpg','image/avlshingste_b.jpg','image/folhopper_b.jpg','image/1aarige_b.jpg','image/aov_arkiv_g.jpg')">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td width="*" background="image/bagg_farve.jpg" bgcolor="#33Cb98">&nbsp;</td>
    <td width="10" background="image/ram_skyg_v.jpg">&nbsp;</td>
    <td width="810" align="center" valign="top" background="image/ram_kant.gif">
      <table width="800" height="313" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td colspan="10"  bgcolor="#0033FF"><img src="image/logo_6.jpg" width="800" height="80" hspace="0" vspace="0" border="0" align="top"></td>
        </tr>
        <tr>
          <td height="5"  width="800"  border="0" colspan="10"  bgcolor="#0033FF">&nbsp;</td>
        </tr>
        <tr height="26" width="800" border="0">
          <td height="26" width="66" border="0" bgcolor="#0033FF"><a href="index.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image20','','image/forside_b.jpg',1)"><img src="image/forside_g.jpg" name="Image20" width="66" height="26" border="0"></a></td>
          <td height="26" width="78" border="0" bgcolor="#0033FF"><a href="nyhed.asp"><img src="image/nyheder_b.jpg" width="78" height="26" border="0"></a></td>
          <td height="26" width="74" border="0" bgcolor="#0033FF"><a href="booking.htm" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image12','','image/booking_b.jpg',1)"><img src="image/booking_g.jpg" name="Image12" width="74" height="26" border="0"></a></td>
          <td height="26" width="124" border="0" bgcolor="#0033FF"><a href="laser.htm" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image13','','image/laser_b.jpg',1)"><img src="image/laser_g.jpg" name="Image13" width="124" height="26" border="0"></a></td>
          <td height="26" width="74" border="0" bgcolor="#0033FF"><a href="kontakt.htm" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image14','','image/kontakt_b.jpg',1)"><img src="image/kontakt_g.jpg" name="Image14" width="74" height="26" border="0"></a></td>
          <td height="26" width="101" border="0"  bgcolor="#0033FF"><a href="avls.htm" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image15','','image/avlshingste_b.jpg',1)"><img src="image/avlshingste_g.jpg" name="Image15" width="101" height="26" border="0"></a></td>
          <td height="26" width="89" border="0"  bgcolor="#0033FF"><a href="f_hopper.htm" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('fol_hopper','','image/folhopper_b.jpg',1)"><img src="image/folhopper_g.jpg" name="fol_hopper" width="89" height="26" border="0"></a></td>
          <td height="26" width="62" border="0"  bgcolor="#0033FF"><a href="1aarige_overs.htm" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('1aarige','','image/1aarige_b.jpg',1)"><img src="image/1aarige_g.jpg" name="1aarige" width="62" height="26" border="0"></a></td>
          <td height="26" width="66" border="0" bgcolor="#0033FF"><img src="image/2_3aarige_gg.jpg" width="66" height="26"></td>
          <td height="26" width="66" border="0" bgcolor="#0033FF"><img src="image/2_3aarige_gg.jpg" width="66" height="26"></td>
        </tr>
        <tr align="left" valign="top">
          <td  width="800" height="" colspan="10"  border="0"> <table width="800" height="445" border="0" cellpadding="0" cellspacing="0">
              <tr>
                <th width="595" scope="row">&nbsp;</th>
                <td width="5" align="left" valign="top">&nbsp;</td>
                <td height="15">&nbsp;</td>
              </tr>
              <tr>
                <th width="595" rowspan="3" align="left" valign="top" scope="row">
                  <table width="595" border="0" cellspacing="0" cellpadding="0">
                    <tr>
                      <td> <table width="595" border="0" cellspacing="0" cellpadding="0">
                          <tr>
                            <td width="1" height="10">&nbsp;</td>
                            <td height="10" colspan="3" align="center" valign="middle"><table width="287" border="0" cellspacing="0" cellpadding="0">
                                <tr>
                                  <td align="left" valign="middle"><span class="setDato2">Dato:
                                    <%= DoDateTime((nyhedSektion.Fields.Item("Dato").Value), 2, 2070) %></span></td>
                                </tr>
                              </table></td>
                            <td width="332" height="10" align="center" valign="middle"><span class="style7 style8"></span></td>
                            <td width="1" height="10">&nbsp;</td>
                          </tr>
                          <tr>
                            <td width="1" height="5">&nbsp;</td>
                            <td height="5" colspan="4" align="center" valign="middle"><h3><%=(nyhedSektion.Fields.Item("overskrift_n").Value)%></h3></td>
                            <td width="1" height="5">&nbsp;</td>
                          </tr>
                          <tr>
                            <td width="1" height="40" rowspan="2">&nbsp;</td>
                            <td width="14" align="left" valign="middle"><span class="style5 style10"></span></td>
                            <td width="251" align="left" valign="middle"><span class="style5 style10"><font face="Verdana, Arial, Helvetica, sans-serif"><img name="Nyhedsbilled" src="C:\Inetpub\wwwroot\LaserJan_2\image\<%=(nyhedSektion.Fields.Item("img_n").Value)%>" alt=""></font></span></td>
                            <td width="21" rowspan="2" align="center" valign="middle">&nbsp;</td>
                            <td height="101" align="center" valign="middle"><%=(nyhedSektion.Fields.Item("indledning_n").Value)%></td>
                            <td width="1" height="40" rowspan="2">&nbsp;</td>
                          </tr>
                          <tr>
                            <td colspan="2" align="center" valign="middle"><%=(nyhedSektion.Fields.Item("img_tekst").Value)%></td>
                            <td height="20" align="center" valign="middle">&nbsp;</td>
                          </tr>
                          <tr>
                            <td width="1" height="0">&nbsp;</td>
                            <td height="" colspan="4">&nbsp;</td>
                            <td width="1" height="0">&nbsp;</td>
                          </tr>
                          <tr>
                            <td width="1" height="1">&nbsp;</td>
                            <td height="1" colspan="4"> <table width="575" border="0" cellspacing="0" cellpadding="0">
                                <tr>
                                  <td width="15"><span class="style13"></span></td>
                                  <td><%=(nyhedSektion.Fields.Item("tekst_n").Value)%></td>
                                </tr>
                              </table></td>
                            <td width="1" height="1">&nbsp;</td>
                          </tr>
                          <tr>
                            <td width="1" height="5">&nbsp;</td>
                            <td height="5" colspan="4">&nbsp;</td>
                            <td width="1" height="5">&nbsp;</td>
                          </tr>
                          <tr>
                            <td width="1" height="16">&nbsp;</td>
                            <td colspan="4"> <table width="575" border="0" cellspacing="0" cellpadding="0">
                                <tr>
                                  <td align="left"><span class="style11"></span></td>
                                  <td width="5">&nbsp;</td>
                                  <td>&nbsp;</td>
                                </tr>
                              </table></td>
                            <td width="1" height="16">&nbsp;</td>
                          </tr>
                          <tr>
                            <td width="1" height="16">&nbsp;</td>
                            <td colspan="4">&nbsp;</td>
                            <td width="1" height="16">&nbsp;</td>
                          </tr>
                          <tr>
                            <td width="1">&nbsp;</td>
                            <td colspan="4"> <table width="575" border="0" cellspacing="0" cellpadding="0">
                                <tr>
                                  <td class="style7 style8  style11">&nbsp;</td>
                                  <td width="5">&nbsp;</td>
                                  <td>&nbsp;</td>
                                </tr>
                              </table></td>
                            <td width="1">&nbsp;</td>
                          </tr>
                          <tr>
                            <td width="1" height="5">&nbsp;</td>
                            <td colspan="4">&nbsp;</td>
                            <td width="1" height="5">&nbsp;</td>
                          </tr>
                          <tr>
                            <td width="1" height="">&nbsp;</td>
                            <td colspan="4"> <table width="575" border="0" cellspacing="0" cellpadding="0">
                                <tr>
                                  <td>&nbsp;</td>
                                  <td width="5">&nbsp;</td>
                                  <td>&nbsp;</td>
                                </tr>
                              </table></td>
                            <td width="1" height="">&nbsp;</td>
                          </tr>
                          <tr>
                            <td width="1" height="5">&nbsp;</td>
                            <td colspan="4">&nbsp;</td>
                            <td width="1" height="5">&nbsp;</td>
                          </tr>
                          <tr>
                            <td height="10">&nbsp;</td>
                            <td height="10" colspan="3"><span class="style7 style8"></span></td>
                            <td height="10">&nbsp;</td>
                            <td height="10">&nbsp;</td>
                          </tr>
                        </table>
                        &nbsp;</td>
                    </tr>
                  </table>
                  <p>&nbsp;</p>
                  <p>&nbsp;</p></th>
                <td width="5" rowspan="3" align="left" valign="top" background="image/g_streg.jpg">&nbsp;</td>
                <td height="255" align="left" valign="top"> <table width="200" border="0" cellspacing="0" cellpadding="0">
                    <tr align="center" valign="middle">
                      <td height="14" colspan="3" class="style4"><a href="nyhedsarkiv.asp" target="_self" onMouseOver="MM_swapImage('nyhedsarkiv','','image/aov_arkiv_g.jpg',1)" onMouseOut="MM_swapImgRestore()"><img src="image/aov_arkiv_b.jpg" name="nyhedsarkiv" width="88" height="14" border="0"></a></td>
                    </tr>
                    <tr align="center" valign="middle">
                      <td colspan="3" height=""><div align="center"><img src="image/tynd_g_st_11px.jpg"></div></td>
                    </tr>
                    <tr align="center" valign="middle">
                      <td height="12" colspan="3" class="style4">Seneste Nyheder</td>
                    </tr>
                    <tr>
                      <td colspan="3" height=""><div align="center"><img src="image/tynd_g_st_11px.jpg"></div></td>
                    </tr>
                    <tr>
                      <td height="" colspan="2" align="center" ><span class="setDato">Oprettet:</span></td>
                      <td height="" align="center"><span class="setDato">Overskrift:</span></td>
                     
                    </tr>
                    <tr>
                      <td colspan="3" height=""><div align="center"><img src="image/tynd_g_st_11px.jpg"></div></td>
                    </tr>
                    <%
While ((Repeat1__numRows <> 0) AND (NOT nyheder.EOF))
%>
                    <tr>
                      <td width="40" align="center" valign="top"><span class="setDato">&nbsp;&nbsp;<%= DoDateTime((nyheder.Fields.Item("Dato").Value), 2, 2070) %></span></td>
                      <td width="5" align="center" valign="top">&nbsp;</td>
                      <td width="155" valign="middle"><div align="center" class="style9"><A HREF="nyhed.asp?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "Dato=" & nyheder.Fields.Item("Dato").Value %>"><%=(nyheder.Fields.Item("overskrift_n").Value)%></A></div></td>
                    </tr>
                    <tr>
                      <td colspan="3" height="12">
                        <div align="center"><img src="image/tynd_g_st_11px.jpg" width="160" height="11"></div></td>
                    </tr>
                    <%
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  nyheder.MoveNext()
Wend
%>
                  </table>
                </td>
              </tr>
              <tr>
                <td width="200" height="0" align="left" valign="top">&nbsp;</td>
              </tr>
              <tr>
                <td align="left" valign="top"><p align="center" class="style1">&nbsp;</p>
                  <p align="center" class="style2">&nbsp;</p></td>
              </tr>
            </table>
            <p>&nbsp;</p></td>
        </tr>
      </table></td>
    <td width="10" background="image/ram_skyg.jpg">&nbsp;</td>
    <td width="*" background="image/bagg_farve.jpg" bgcolor="#33Cb98">&nbsp;</td>
  </tr>
</table>
</body>
</html>
<%
nyheder.Close()
Set nyheder = Nothing
%>
<%
nyhedSektion.Close()
Set nyhedSektion = Nothing
%>

MVH.

Steen
Avatar billede softspot Forsker
13. september 2005 - 12:40 #14
Jeg kunne tænke mig at forslå flg. midlertidige tilføjelse til din kode (indsættes umiddebart efter nyhedSektion.Open()):

if nyhedSektion.EOF or nyhedSektion.BOF then
  Response.Write "DER VAR INGEN DATA I DEN KALDTE FORSPØRGSEL!"
  Response.End
end if

og at du så prøver at køre det og fortælle mig hvad den siger.
Avatar billede steen67_dk Juniormester
07. oktober 2005 - 01:02 #15
Hej Softspot!
Det er snart et stykke tid siden jeg reagerede på dit sidste forslag. Det beklager jeg.

Men jeg afprøvede "næsten" dit svar. Blot brugte jeg de indbyggede server behaviors i Dreamweaver, hvor man kan teste på ligende måde.

Du havde ret! Det var ikke connections strengen det var galt med, men der i mod databasen. Jeg har derfor læst lidt mere på dette og udviklet en ny database (dog foreløbig en slags testdatabase). Så nu virker skidtet.

Jeg takker mange gange for dit arrangement i mit problem!

Hilsen

Steen
Avatar billede softspot Forsker
07. oktober 2005 - 01:22 #16
Velbekomme :)

Det er fedt du vender tilbage og giver en tilbagemelding (også selvom du synes der går lang tid). Det giver en god fornemmelse af at trådene bliver bundet sammen i enden - super godt!

I øvrigt synes jeg det er inspirerende at høre om din indstilling til tingene - det er et seriøst modspil som giver en lyst til fortsat at hjælpe folk her på eksperten :)
Avatar billede softspot Forsker
05. marts 2007 - 14:04 #17
...men pointgivning kom du ikke helt igennem med... :)
Avatar billede steen67_dk Juniormester
30. april 2010 - 01:35 #18
Flovt, har ikke rigtigt kunne finde ud af det med pointgivning. Men nu roder jeg op i alle mine gamle og nye tråde.

Jeg skylder dig nogle point fra "gamle dage". Og jeg ved det godt!

DET ER SIMPELTHEN FOR DÅRLIGT (af mig). Kan kun BEKLAGE!
Avatar billede 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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

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