---
title: "nyhetsscript problem!"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/92998-nyhetsscript-problem"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "MizzK"
published: "2003-12-18T14:52:13.000Z"
updated: "2003-12-18T15:21:22.000Z"
replies: 7
views: 273
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/92998-nyhetsscript-problem"
---

# nyhetsscript problem!

## #1 — MizzK, 2003-12-18T14:52Z

Har lite problem med detta scriptet, när jag har den ensamt fungerar det men när jag includerar det på sidan så fungerar det inte som det ska... ngn som kan hjälpa mig?

hela sidan inklusive scriptet!

```
 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<HTML><HEAD><TITLE>KONE DOOR</TITLE>
<META content="text/html; charset=utf-8" http-equiv=Content-Type>
<LINK href="style.css" rel=stylesheet>
<META content="MSHTML 5.00.3700.6699" name=GENERATOR>
<script language="javascript">
<!--
function frmCheckOpt1(theForm)
{	if (theForm.selectedIndex == 0) {
	}
	else {
		document.forms[0].submit();
	}
}
-->
</script>
</HEAD>
<body>

<table width="763" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" style="border: 1px solid #B8B7B7; background-image:url(bilder/back.gif); background-repeat:no-repeat;">
  <tr> 
    <td colspan="5" height="82"><!--head med loggo och rubrik--> 
<!--#include file="grund/head.htm"--></td>
  </tr>
  <tr> 
    <!--head med loggo och rubrik-->
    <!--#include file="grund/toppmeny.htm"-->
  </tr>
  <tr> 
    <td colspan="4">&nbsp;</td>
  </tr>
  <tr> 
    <td width="5" rowspan="2">&nbsp;</td>
        <!--meny-->
	<td width="140" height="272" valign="top">
	<!-- #include file="meny/meny.asp"-->
	<p>&nbsp;</p><br>
	                    <!--head med loggo och rubrik--> 
<!--#include file="grund/login.htm"--></td>
     <!--#include file="grund/vrand.htm"-->
    <td width="603" rowspan="2"  align="center" valign="top"><p>&nbsp;</p>
      <table width="90%"  border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td colspan="3" class="header">Nyhetsarkiv</td>
          <td width="4%" rowspan="4" v>&nbsp;</td>
          <td width="31%" rowspan="4" align="right" valign="top"><img  id="imagestandard" src="bilder/nyheter.jpg" width="166" height="99"></td>
        </tr>
        <tr>
          <td width="8%">&nbsp;</td>
          <td colspan="2">&nbsp;</td>
        </tr>
        <tr>
          <td valign="top" class="textorg"><p>&nbsp;</p>          </td>
        <td colspan="2" valign="top" class="textorg">&nbsp;</td>
        </tr>
        <tr>
          <td valign="top" class="textorg"><p class="textorg">&nbsp; </p>              </td>
        <td colspan="2" valign="top" class="textorg">
		<!-----------------------------------------------script-------------------------------------------->
		<%		If Request.form("Datum")<>"" then Session("Datum")=Request.form("Datum")%>
<TABLE BORDER = 0 width="100%">
<B>Datum:</B>
<FORM ACTION = "nyheter.asp" METHOD="POST">
  <select name = "Datum" onChange="frmCheckOpt1(this);" size = 1>
    <%
Set MinCon = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
MinCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("dbs/db1.mdb")
SQL = "SELECT * FROM q_nyhetsdatum WHERE Datum<=#" & Date() & "# AND Makulerad<>" & vbTrue
rs.Open SQL, MinCon
%>
    <option value="">VÃ¤lj datum
    <%
Do While Not rs.EOF
%>
    <%
If (Year(rs("Datum"))=Year(Session("Datum"))) AND (Month(rs("Datum"))=Month(Session("Datum"))) AND (Day(rs("Datum"))=Day(Session("Datum"))) Then
%>
    <option selected value=<%=rs("Datum")%> > <%=rs("Datum")%>
    <%
Else
%>
    <option value=<%=rs("Datum")%> > <%=rs("Datum")%>
    <%
End If
%>
    <%
rs.MoveNext
Loop
If Session("Datum")="9999-01-01" Then%>
    <option selected value="9999-01-01">Visa alla
    <%Else%>
    <option value="9999-01-01">Visa alla
    <%End If%>
    </select>
</FORM>

</TABLE>
<TABLE BORDER = 0 width="100%">

<%

If Request.Form("Datum")<>"" or Session("Datum")<>"" then
Set MinCon = Server.CreateObject("ADODB.Connection")
Set rs_1 = Server.CreateObject("ADODB.Recordset")
MinCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("dbs/db1.mdb")
If Session("Datum")="9999-01-01" then
	SQL_1 = "SELECT * FROM q_nyheter WHERE Datum<=#" & Date() & "#"
Else
	SQL_1 = "SELECT * FROM q_nyheter WHERE Datum=#" & Session("Datum") & "#" 
End if
rs_1.Open SQL_1, MinCon
Do While Not rs_1.EOF
%>

<%
If rs_1("Makulerad")=vbTrue then %>

<%Else%>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td width="100"><FONT COLOR="#000000"><b><%=rs_1("Datum")%></b></FONT></td>
    <td><b><FONT COLOR="#000000"><%=rs_1("Rubrik")%></FONT></b></td>
  </tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td width="100%"><FONT COLOR="#000000"><%=rs_1("Text")%></FONT></td>
  </tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td width="100%">&nbsp;</td>
  </tr>
</table>
<%End if%>
<% rs_1.MoveNext
LOOP
rs_1.Close
End if %>
</TABLE>
<!-----------------------------------------------slut script-------------------------------------------->
</td>
        </tr>
        <tr>
          <td class="textorg">&nbsp;</td>
          <td width="5%" class="textorg">&nbsp;</td>
          <td width="52%" class="textorg">&nbsp;</td>
          <td>&nbsp;</td>
          <td>&nbsp;</td>
        </tr>
      </table>      </td>
  </tr>
  <tr> 
    <td>&nbsp;</td>
  </tr>
  <tr> 
    <td colspan="4">&nbsp;</td>
  </tr>
  <tr> 
    <!--head med loggo och rubrik-->
    <!--#include file="grund/dbar.htm"-->
  </tr>
</table>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p></body>
</html>
```

 

ngn?

redigerat nu!!

Permalänk: https://www.webforum.nu/p/92998

## #2 — @nders, 2003-12-18T14:54Z

Vad menar du med "fungerar inte som det ska"?

Permalänk: https://www.webforum.nu/p/1231052

## #3 — MizzK, 2003-12-18T14:56Z

ursäkta.. det som händer är i princip inget.. när jag i dropdown menyn väljer ett datum för att se nyhten så händer det inget.. sidan bara uppdateras. utan att få med infon som den skall ha med... 

har haft exakt samma problem på en annan sida, där scriptet är uppbyggt med liknande kod. har inte heller löst det.. mina misstankar är att det krockar med ngn annan kod.

Permalänk: https://www.webforum.nu/p/1231054

## #4 — @nders, 2003-12-18T15:01Z

Var kan vi testa scriptet ensamt, samt i inkluderad form?

Permalänk: https://www.webforum.nu/p/1231057

## #5 — MizzK, 2003-12-18T15:05Z

kan tyvärr inte lägga ut en länk till sidan..

Permalänk: https://www.webforum.nu/p/1231061

## #6 — @nders, 2003-12-18T15:06Z

Nähepp, då blir det ju lite svårare att hjälpa till. :l

Kan du markera i scriptet exakt vad som kommer från den inkluderade sidan med nyhetsscriptet i?

Permalänk: https://www.webforum.nu/p/1231062

## #7 — MizzK, 2003-12-18T15:17Z

såja, har redigerat det nu...-.

Permalänk: https://www.webforum.nu/p/1231065

## #8 — @nders, 2003-12-18T15:21Z

Om du har andra formulär som inkluderas tidigare i koden stämmer inte formulärsreferensen *document.forms\[0\]* i ditt javascript. Jag föreslår att du sätter ett namn på formuläret:

```
<FORM ACTION = "nyheter.asp" METHOD="POST" [b]name="nyheter"[/b]>
```

, och anger det istället för index i javascriptet:

```
document.nyheter.submit();
```

Permalänk: https://www.webforum.nu/p/1231066

---

Tråden på webben: https://www.webforum.nu/amne/asp/92998-nyhetsscript-problem
