nyhetsscript problem!

MizzKMedlem sedan juni 2003410 inlägg

18 dec. 2003 14:52#1

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!!

@ndersMedlem sedan juni 200032 969 inlägg

18 dec. 2003 14:54#2

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

MizzKMedlem sedan juni 2003410 inlägg

18 dec. 2003 14:56#3

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.

@ndersMedlem sedan juni 200032 969 inlägg

18 dec. 2003 15:01#4

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

MizzKMedlem sedan juni 2003410 inlägg

18 dec. 2003 15:05#5

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

@ndersMedlem sedan juni 200032 969 inlägg

18 dec. 2003 15:06#6

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?

MizzKMedlem sedan juni 2003410 inlägg

18 dec. 2003 15:17#7

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

@ndersMedlem sedan juni 200032 969 inlägg

18 dec. 2003 15:21#8

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();