Søg
Avatar billede riishoj Nybegynder
30. september 2004 - 15:19 Der er 30 kommentarer og
1 løsning

Hvorfor bliver querystring ikke overført?

I et script har jeg følgende

<%

reservation = request.querystring("reservation")

if Request("mode") = "change" then
Response.Redirect("edb.asp?reservation=" & request.querystring("reservation") & "&uge=" & Request("uge") & "&aar=2004")
end if
%>

Problemet er, at querystringen ("reservation") ikke bliver overført, mens ("uge") virker ok.
Længere nede i scriptet udskriver jeg querystringen, og her virker det ok.

<%response.write Request.Querystring("reservation")%>

Desuden har jeg et link med sammme querystring, og det virker også ok!

Response.Write"<td width=20% align=left valign=bottom><font color=white face=verdana size=3><A class='speciel2' HREF='edb.asp?reservation=" & request.querystring("reservation") & "&uge=" & fuge & "&aar=" & faar & "'><--Forrige uge </A></font></td>"

Hvorfor får jeg ikke overført request.querystring("reservation") i det første eksempel, mens det virker i de 2 andre???
Avatar billede and_ Nybegynder
30. september 2004 - 16:09 #1
At dømme ud fra dit eks, må den jo være tom.....

Prøv lige:

<%
reservation = request.querystring("reservation")
if Request("mode") = "change" then
  if reservation <> "" then
    Response.write("edb.asp?reservation=" & reservation & "&uge=" & Request("uge" & "&aar=2004")
  else
    response.write "Den er tom!!!"
  end if
end if
%>
Avatar billede and_ Nybegynder
30. september 2004 - 16:09 #2
hvad er output!
Avatar billede Jman Praktikant
30. september 2004 - 17:24 #3
Prøv denne (altså uden paranteser):
Response.Redirect "edb.asp?reservation=" & request.querystring("reservation") & "&uge=" & Request("uge") & "&aar=2004"
Avatar billede riishoj Nybegynder
30. september 2004 - 17:29 #4
Ja, den siger, at den er tom. Hvorfor kan jeg så requeste den længere nede i scriptet?
Avatar billede and_ Nybegynder
30. september 2004 - 17:31 #5
Det er fordi du ikke sætter den tidligere... smid lige dit tidligere script...

superior? response.redirect virker ikke uden paranteser... og hvad er forskellen på dit eks og spørgerens selv????
Avatar billede Jman Praktikant
30. september 2004 - 17:35 #6
ikke andet end at det har virket for mig :)
Avatar billede riishoj Nybegynder
30. september 2004 - 17:37 #7
Du får lige det hele

<%Session.LCID = &H0407%>
<%
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
%>

<%
reservation = request.querystring("reservation")
if Request("mode") = "change" then
  if reservation <> "" then
    Response.Redirect "edb.asp?reservation=" & request.querystring("reservation") & "&uge=" & Request("uge") & "&aar=2004" 
    else
    response.write "Den er tom!!!"
  end if
end if
%><html>

<head>
<title>edb</title>
<LINK REL="StyleSheet"
HREF="../../style.css"
TYPE="text/css">
<SCRIPT LANGUAGE="JavaScript">
<!-- Original:  Tom Khoury (twaks@yahoo.com) -->

<!-- This script and many more are available free online at -->
<!-- The JavaScript Source!! http://javascript.internet.com -->

<!-- Begin
function placeFocus() {
if (document.forms.length > 0) {
var field = document.forms[0];
for (i = 0; i < field.length; i++) {
if ((field.elements[i].type == "text") || (field.elements[i].type == "textarea") || (field.elements[i].type.toString().charAt(0) == "s")) {
document.forms[0].elements[i].focus();
break;
        }
      }
  }
}
//  End -->
</script>
</head>

<body OnLoad="placeFocus()">

<p align="center"><br>
<table border=" solid 1px" width="100%" cellspacing="0" cellpadding="0" bordercolor="#000000" bordercolorlight="#000000" bordercolordark="#FFFFFF"  >
  <tr>
    <td width="128%" colspan="6" bgcolor="#999999">
      <table border="0" width="100%">
        <tr>
          <td width="25%" valign="bottom" bgcolor="#999999"><b><font face="Verdana" color="red" size="4">
          <%response.write Request.Querystring("reservation")%>

          </font></b></td>
          <%
          Function UgeTilDato(aar,uge,dag)
  januar1 = DateSerial(aar, 1, 1)
  ugedagjan1 = Weekday(januar1, vbMonday)
  if ugedagjan1 <= 4 then
      ' 1. januar er i uge 1
      mandaguge1 = DateAdd("d", -ugedagjan1+1, januar1)
  else
      ' 1. januar er i sidste uge foregående år
      mandaguge1 = DateAdd("d", 7-ugedagjan1+1, januar1)
  end if

  mandagugex = DateAdd("ww", uge-1, mandaguge1)
  xdagugex = DateAdd("d", dag-1, mandagugex)
  UgeTilDato = xdagugex
End Function         

         
If request.querystring("uge") <> "" Then
  uge = request.querystring("uge")
 
Else
  uge = DatePart("ww",date())
End if
  If request.querystring("aar") <> "" Then
  aar = request.querystring("aar")
Else

  aar = Year(Date)
End If

fuge = uge - 1
faar = aar
If fuge < 1 then
  fuge = 52
  faar = faar - 1
End If

Response.Write"<td width=20% align=left valign=bottom><font color=white face=verdana size=3><A class='speciel2' HREF='edb.asp?reservation=" & request.querystring("reservation") & "&uge=" & fuge & "&aar=" & faar & "'><--Forrige uge </A></font></td>"
%>

          <td width="20%" align="left" bgcolor="#999999"><font color="#ffffff"><b><font face="Verdana" size="4">Uge</font><font face="Verdana" size="3">&nbsp</font></b>
            </font>
                       
            <%


If Request.Querystring("uge") <> "" Then
      uge = Request.Querystring("uge")
    Else
      uge = DatePart("ww",date())
    End If
   
    Response.Write "<font color=#ffffff face=verdana size=5>"
    Response.Write uge
    %>
</td>
<%

If request.querystring("uge") <> "" Then
  uge = request.querystring("uge")
Else
  uge = DatePart("ww",date())
End if
  If request.querystring("aar") <> "" Then
  aar = request.querystring("aar")
Else
aar = Year(Date)
End If

nuge = uge + 1
naar = aar
If nuge > 52 then
  nuge = 1
  naar = naar + 1
End If
Response.Write"<td width=35% align=left valign=bottom><font color=white face=verdana size=3><A class='speciel2' HREF='edb.asp?reservation=" & request.querystring("reservation") & "&uge=" & nuge & "&aar=" & naar & "'>Næste uge--></A></font></td>"
%>

        </tr>
     
      </table>
     
  <tr>
    <td width="8%" bgcolor="#999999">&nbsp;</td>
    <td width="18%" bgcolor="#999999">
      <p align="center"><b><font color="#FFFFFF" face="Verdana" size="2">Mandag</font></b><font color="#FFFFFF" face="Verdana" size="2"><br>
            <% Response.Write FormatDateTime(UgeTilDato(aar, uge, 1), vbShortDate) %></font></td>
    <td width="18%" bgcolor="#999999">
      <p align="center"><b><font color="#FFFFFF" face="Verdana" size="2">Tirsdag</font></b><font color="#FFFFFF" face="Verdana" size="2"><br>
            <% Response.Write FormatDateTime(UgeTilDato(aar, uge, 2), vbShortDate) %></font></td>
    <td width="19%" bgcolor="#999999">
      <p align="center"><b><font color="#FFFFFF" face="Verdana" size="2">Onsdag</font></b><font color="#FFFFFF" face="Verdana" size="2"><br>
              <% Response.Write FormatDateTime(UgeTilDato(aar, uge, 3), vbShortDate) %></font></td>
    <td width="19%" bgcolor="#999999">
      <p align="center"><b><font color="#FFFFFF" face="Verdana" size="2">Torsdag</font></b><font color="#FFFFFF" face="Verdana" size="2"><br>

              <% Response.Write FormatDateTime(UgeTilDato(aar, uge, 4), vbShortDate) %></font></td>
    <td width="19%" bgcolor="#999999">
      <p align="center"><b><font color="#FFFFFF" face="Verdana" size="2">Fredag</font></b><font color="#FFFFFF" face="Verdana" size="2"><br>

              <% Response.Write FormatDateTime(UgeTilDato(aar, uge, 5), vbShortDate) %></font></td>
 
 
  </tr>
<%
    ConnString = "DSN=dsn"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConnString
   
    lektion = Request.Querystring("lektion")
    dag = Request.Querystring("dag")
    reservation = Request.Querystring("reservation")
 

   
    dim SQLdag(7)
SQLdag(1) = "Mandag"
SQLdag(2) = "Tirsdag"
SQLdag(3) = "Onsdag"
SQLdag(4) = "Torsdag"
SQLdag(5) = "Fredag"
SQLdag(6) = "Lørdag"
SQLdag(7) = "Søndag"

dim linkdag(7)
linkdag(1) = "mandag"
linkdag(2) = "tirsdag"
linkdag(3) = "onsdag"
linkdag(4) = "torsdag"
linkdag(5) = "fredag"
linkdag(6) = "lørdag"
linkdag(7) = "søndag"


for lektion = 1 to 8

  Response.Write "<tr>"
    Response.Write "<td width=8% height=40 align=center bgcolor=#999999><font face=Verdana size=2 color=#ffffff>" & lektion & ". time</font></td>"


  for dag = 1 to 5
 
  datoStr = UgeTilDato(aar, uge, 1)
datoStr = Month(datoStr) & "-" & Day(datoStr) & "-" & Right(Year(datoStr),2)

%>
<!--#include virtual="/demo/sql_blokering.asp"-->
<%

set rs = Conn.Execute(strSQL)

if not (rs.EOF or rs.BOF) then
Response.write"<td border=1  bordercolor=#0000FF bordercolordark=#FFFFFF bordercolorlight=#0000F width=18% height=40 bgcolor=red><font face=Verdana size=1 color=#FFFFFF><p align=center>"&rs("tekst")&"</font></td>" 
 
Else
      'generer data og HTML kode for (dag,lektion)
      strSQL = "SELECT initialer,klasse FROM reserver WHERE reservation='" & request.querystring("reservation") & "' AND dag='" & SQLdag(dag) & "' AND lektion='" & lektion & "' AND uge='" & uge & "' AND aar='" & aar & "'"
set rs = Conn.Execute(strSQL)
if rs.EOF or rs.BOF then
Response.Write"<td width=18% height=40 bgcolor=#F0F8F8><font color=#ffffff><A HREF='reserver_form.asp?aar=" & aar & "&uge=" & uge & "&dag=" & linkdag(dag) & "&lektion=" & lektion & "&reservation=" & reservation &"'><img border=0 src='../images/greenball.gif' alt='Ledig'></font></td>"

  Else

    Response.Write"<td width=18% height=40 bgcolor=#F0F8F8><b><font color=#ffffff face='verdana' size='2'><img src='../images/redball.gif' alt='Optaget'><img src='../images/blank2.gif'><A class='speciel' HREF='vis_reservation.asp?reservation=" &reservation & "&lektion=" & lektion & "&dag=" & linkdag(dag) & "&uge=" & uge &"'>"&rs("initialer")&"</A></font></b></td>"

    rs.MoveNext
   
    End if
    End if
  next
  Response.Write "</tr>"
next
 

    Conn.Close
    Set Conn = Nothing
%>   
  </table>


  <form>
<table border="0" width="100%">
  <tr>
    <td width="33%">
      <p align="center"><font face="verdana" size="2" class="speciel">
   
     
<% Response.Write "<A class='speciel3' HREF='edb2.asp?uge=" & uge & "&aar=" & aar & "'>Skema for hele dagen</A>" %>    </font></td>


    <td width="33%">
      <p align="center"><font face="Verdana" size="2">Gå til uge</font> <input type="text" name="uge" size="3"><input type="submit" value="Send" name="B1"></td>
    <td width="34%">
      <p align="center"><font face=verdana size=2><A class='speciel3' HREF='../default.asp'>Tilbage
      til forsiden</A></font></td>
  </tr>
</table>
<input type="hidden" name="mode" value="change">
</form>

 
</body>
</html>
Avatar billede and_ Nybegynder
30. september 2004 - 17:43 #8
du har jo ikke defineret noget!

<form>

Du skal jo fortælle siden hvad den skal:

<form action="<%=request.servervariables("script_name")%>&reservation=<%=reservation%>">

Ellers må du lige forklare lidt mere udførligt hvad der skal laves... Det er en meget uoverskuelig kode du har....

Har du en url, til hvor man kan se det "live"
Avatar billede and_ Nybegynder
30. september 2004 - 17:54 #9
Nu har jeg prøvet at lave noget "hurtig" oprydning, men det er stadig meget meget uoverskueligt:

<%Session.LCID = &H0407
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"

'Querystrings
lektion = Request.Querystring("lektion")
dag = Request.Querystring("dag")
uge = request.querystring("uge")
aar = request.querystring("aar")
reservation = request.querystring("reservation")

'Hvis der skal reserveres
if Request("mode") = "change" then
  if reservation <> "" then
        Response.Redirect "edb.asp?reservation=" & reservation & "&uge=" & Request("uge") & "&aar=2004" 
    else
        response.write "Den er tom!!!"
  end if
end if

'Vores funktioner
Function UgeTilDato(aar,uge,dag)
  januar1 = DateSerial(aar, 1, 1)
  ugedagjan1 = Weekday(januar1, vbMonday)
  if ugedagjan1 <= 4 then
      ' 1. januar er i uge 1
      mandaguge1 = DateAdd("d", -ugedagjan1+1, januar1)
  else
      ' 1. januar er i sidste uge foregående år
      mandaguge1 = DateAdd("d", 7-ugedagjan1+1, januar1)
  end if

  mandagugex = DateAdd("ww", uge-1, mandaguge1)
  xdagugex = DateAdd("d", dag-1, mandagugex)
  UgeTilDato = xdagugex
End Function   

'Globale definitioner
If uge <> "" Then
  uge = DatePart("ww",date())
End if

If aar <> "" Then
  aar = Year(Date)
End If

%><html>

<head>
    <title>edb</title>
    <LINK REL="StyleSheet" HREF="../../style.css" TYPE="text/css">
<SCRIPT LANGUAGE="JavaScript">
<!-- Original:  Tom Khoury (twaks@yahoo.com) -->

<!-- This script and many more are available free online at -->
<!-- The JavaScript Source!! http://javascript.internet.com -->

<!-- Begin
function placeFocus() {
if (document.forms.length > 0) {
var field = document.forms[0];
for (i = 0; i < field.length; i++) {
if ((field.elements[i].type == "text") || (field.elements[i].type == "textarea") || (field.elements[i].type.toString().charAt(0) == "s")) {
document.forms[0].elements[i].focus();
break;
        }
      }
  }
}
//  End -->
</script>
</head>

<body OnLoad="placeFocus()">

<p align="center"><br>
<table border=" solid 1px" width="100%" cellspacing="0" cellpadding="0" bordercolor="#000000" bordercolorlight="#000000" bordercolordark="#FFFFFF"  >
  <tr>
    <td width="128%" colspan="6" bgcolor="#999999">
      <table border="0" width="100%">
        <tr>
          <td width="25%" valign="bottom" bgcolor="#999999"><b><font face="Verdana" color="red" size="4">
          <%response.write Request.Querystring("reservation")%>

          </font></b></td>
          <%


fuge = uge - 1
faar = aar
If fuge < 1 then
  fuge = 52
  faar = faar - 1
End If

Response.Write"<td width=20% align=left valign=bottom><font color=white face=verdana size=3><A class='speciel2' HREF='edb.asp?reservation=" & reservation & "&uge=" & fuge & "&aar=" & faar & "'><--Forrige uge </A></font></td>"
%>

          <td width="20%" align="left" bgcolor="#999999"><font color="#ffffff"><b><font face="Verdana" size="4">Uge</font><font face="Verdana" size="3">&nbsp</font></b>
            </font>
                       
            <%
    Response.Write "<font color=#ffffff face=verdana size=5>"
    Response.Write uge
    %>
</td>
<%
nuge = uge + 1
naar = aar
If nuge > 52 then
  nuge = 1
  naar = naar + 1
End If
Response.Write"<td width=35% align=left valign=bottom><font color=white face=verdana size=3><A class='speciel2' HREF='edb.asp?reservation=" & reservation & "&uge=" & nuge & "&aar=" & naar & "'>Næste uge--></A></font></td>"
%>
            </tr>
          </table>
      </td>
    </tr>
  <tr>
    <td width="8%" bgcolor="#999999">&nbsp;</td>
    <td width="18%" bgcolor="#999999">
      <p align="center"><b><font color="#FFFFFF" face="Verdana" size="2">Mandag</font></b><font color="#FFFFFF" face="Verdana" size="2"><br>
            <% Response.Write FormatDateTime(UgeTilDato(aar, uge, 1), vbShortDate) %></font></td>
    <td width="18%" bgcolor="#999999">
      <p align="center"><b><font color="#FFFFFF" face="Verdana" size="2">Tirsdag</font></b><font color="#FFFFFF" face="Verdana" size="2"><br>
            <% Response.Write FormatDateTime(UgeTilDato(aar, uge, 2), vbShortDate) %></font></td>
    <td width="19%" bgcolor="#999999">
      <p align="center"><b><font color="#FFFFFF" face="Verdana" size="2">Onsdag</font></b><font color="#FFFFFF" face="Verdana" size="2"><br>
              <% Response.Write FormatDateTime(UgeTilDato(aar, uge, 3), vbShortDate) %></font></td>
    <td width="19%" bgcolor="#999999">
      <p align="center"><b><font color="#FFFFFF" face="Verdana" size="2">Torsdag</font></b><font color="#FFFFFF" face="Verdana" size="2"><br>

              <% Response.Write FormatDateTime(UgeTilDato(aar, uge, 4), vbShortDate) %></font></td>
    <td width="19%" bgcolor="#999999">
      <p align="center"><b><font color="#FFFFFF" face="Verdana" size="2">Fredag</font></b><font color="#FFFFFF" face="Verdana" size="2"><br>

              <% Response.Write FormatDateTime(UgeTilDato(aar, uge, 5), vbShortDate) %></font></td>
 
  </tr>
<%
ConnString = "DSN=dsn"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConnString
   

reservation = Request.Querystring("reservation")

dim SQLdag(7)
SQLdag(1) = "Mandag"
SQLdag(2) = "Tirsdag"
SQLdag(3) = "Onsdag"
SQLdag(4) = "Torsdag"
SQLdag(5) = "Fredag"
SQLdag(6) = "Lørdag"
SQLdag(7) = "Søndag"

dim linkdag(7)
linkdag(1) = "mandag"
linkdag(2) = "tirsdag"
linkdag(3) = "onsdag"
linkdag(4) = "torsdag"
linkdag(5) = "fredag"
linkdag(6) = "lørdag"
linkdag(7) = "søndag"


for lektion = 1 to 8

  Response.Write "<tr>"
    Response.Write "<td width=8% height=40 align=center bgcolor=#999999><font face=Verdana size=2 color=#ffffff>" & lektion & ". time</font></td>"


  for dag = 1 to 5
 
  datoStr = UgeTilDato(aar, uge, 1)
datoStr = Month(datoStr) & "-" & Day(datoStr) & "-" & Right(Year(datoStr),2)

%><!--#include virtual="/demo/sql_blokering.asp"--><%
set rs = Conn.Execute(strSQL)

if not (rs.EOF or rs.BOF) then
Response.write"<td border=1  bordercolor=#0000FF bordercolordark=#FFFFFF bordercolorlight=#0000F width=18% height=40 bgcolor=red><font face=Verdana size=1 color=#FFFFFF><p align=center>"&rs("tekst")&"</font></td>" 
 
Else
      'generer data og HTML kode for (dag,lektion)
      strSQL = "SELECT initialer,klasse FROM reserver WHERE reservation='" & request.querystring("reservation") & "' AND dag='" & SQLdag(dag) & "' AND lektion='" & lektion & "' AND uge='" & uge & "' AND aar='" & aar & "'"
set rs = Conn.Execute(strSQL)
if rs.EOF or rs.BOF then
Response.Write"<td width=18% height=40 bgcolor=#F0F8F8><font color=#ffffff><A HREF='reserver_form.asp?aar=" & aar & "&uge=" & uge & "&dag=" & linkdag(dag) & "&lektion=" & lektion & "&reservation=" & reservation &"'><img border=0 src='../images/greenball.gif' alt='Ledig'></font></td>"

  Else

    Response.Write"<td width=18% height=40 bgcolor=#F0F8F8><b><font color=#ffffff face='verdana' size='2'><img src='../images/redball.gif' alt='Optaget'><img src='../images/blank2.gif'><A class='speciel' HREF='vis_reservation.asp?reservation=" &reservation & "&lektion=" & lektion & "&dag=" & linkdag(dag) & "&uge=" & uge &"'>"&rs("initialer")&"</A></font></b></td>"

    rs.MoveNext
   
    End if
    End if
  next
  Response.Write "</tr>"
next
 

    Conn.Close
    Set Conn = Nothing
%>   
  </table>
<form action="<%=request.servervariables("script_name")%>&reservation=<%=reservation%>" method="post">
<table border="0" width="100%">
  <tr>
    <td width="33%">
      <p align="center"><font face="verdana" size="2" class="speciel">
<% Response.Write "<A class='speciel3' HREF='edb2.asp?uge=" & uge & "&aar=" & aar & "'>Skema for hele dagen</A>" %>    </font></td>
    <td width="33%">
      <p align="center"><font face="Verdana" size="2">Gå til uge</font> <input type="text" name="uge" size="3"><input type="submit" value="Send" name="B1"></td>
    <td width="34%">
      <p align="center"><font face=verdana size=2><A class='speciel3' HREF='../default.asp'>Tilbage
      til forsiden</A></font></td>
  </tr>
</table>
<input type="hidden" name="mode" value="change">
</form>
</body>
</html>
Avatar billede riishoj Nybegynder
30. september 2004 - 17:56 #10
Prøver at forklare. Skemaet bliver hentet og reservation sat via denne select:

<html>

<head>
<title>Ny side 1</title>
</head>

<body>

<p align="center">&nbsp;</p>
<p align="center">&nbsp;</p>
<p align="center">&nbsp;</p>
<form method="POST" action="indsaet_meddelelse2.asp">

<%
ConnString = "DSN=dsn"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConnString

strSQL = "SELECT  reservation FROM test ORDER By reservation"
set rs = Conn.Execute(strSQL)
Response.Write "<select name=valg size=1>"
Do While Not rs.EOF
  Response.Write "<option value=" & rs("reservation") & ">" & rs("reservation") & "</option>"
  rs.MoveNext
Loop
Response.Write "</select>"
Conn.Close
Set Conn = Nothing
%>
</select><input type="submit" value="Send" name="B1"><input type="reset" value="Nulstil" name="B2"></p>
</form>
<p align="center">&nbsp;</p>

</body>

</html>

indsaet_reservation2.asp ser sådan ud

<%Response.buffer = true%>
<html>

<head>

<style type="text/css">
<!--
A:link {text-decoration: none; color: #ffffff}
A:visited {text-decoration: none; color: #ffffff}
A:active {text-decoration: none; color: #ffffff}
A:hover {text-decoration: underline; color: #ffffff}
   
}

!-->
</style>


<title>indsæt reservation</title>
</head>

<body bgcolor="#ffffff" topmargin="0" leftmargin="0">
 
 
  <p>&nbsp;</p>
  <div align="center">
    <center>
    <table border="1" width="80%" bordercolor="#000000" cellspacing="0" cellpadding="0" bordercolorlight="#000000" bordercolordark="#000000" bgcolor="#008080">
      <tr>
       
     
      <%
     
reservation=Request.Form("valg")


Response.Redirect ("edb.asp?reservation="& Request.Form("valg"))

%>
</tr>
    </table>
    </center>
  </div>
  <p align="center">&nbsp;</p>

</body>

</html>

Som så redirecter til siden edb.asp, som du kan se på www.riishojwebsoft.dk/demo/test/edb.asp
Avatar billede riishoj Nybegynder
30. september 2004 - 17:57 #11
indsaet_reservation2.asp skulle have været indsaet_meddelelse2.asp
Avatar billede and_ Nybegynder
30. september 2004 - 18:00 #12
det ser da ud til at fungere meget fint...
Avatar billede riishoj Nybegynder
30. september 2004 - 18:02 #13
Der er gået koks i det nu. Giv mig lige 5 min og kig så så linket igen!
Avatar billede riishoj Nybegynder
30. september 2004 - 18:02 #14
Siger til, når det er klar.
Avatar billede riishoj Nybegynder
30. september 2004 - 18:05 #15
Du skal starte på

http://www.riishojwebsoft.dk/demo/test/valg.asp

Når du så prøver at vælge en anden uge via formen i bunden af skemaet, så bliver reservationen ikke ført med over.
Avatar billede and_ Nybegynder
30. september 2004 - 18:07 #16
Godt... Så er denne linie som tidligere postet:

<form action="<%=request.servervariables("script_name")%>&reservation=<%=reservation%>" method="post">
Avatar billede and_ Nybegynder
30. september 2004 - 18:08 #17
Når du ikke sætter en action på, aner den jo ikke hvad den skal..

Hmm vi kan vist nøjes med:

<form action="edb.asp?reservation=<%=reservation%>" method="post">
Avatar billede riishoj Nybegynder
30. september 2004 - 18:10 #18
Jeg ved simpelthen ikke, hvor jeg skal sætte dit forslag ind. Er ("script_name") = siden der kaldes, altså edb.asp?
Avatar billede and_ Nybegynder
30. september 2004 - 18:13 #19
Næsten nederst, har du et tomt <form> tag...

Dette skal du udskifte med det jeg gav dig....
Men bare nøjes med denne:
<form action="edb.asp?reservation=<%=reservation%>" method="post">

Men ja.. script_name er det det pågældende script du arbejder med...
Avatar billede riishoj Nybegynder
30. september 2004 - 18:18 #20
Scriptets sidste del ser nu sådan ud, men det virker stadig ikke - reservation bliver ikke overført, når der vælges en anden uge!

<form action="edb.asp?reservation=<%=reservation%>" method="post">
<table border="0" width="100%">
  <tr>
    <td width="33%">
      <p align="center"><font face="verdana" size="2" class="speciel">
   
     
<% Response.Write "<A class='speciel3' HREF='edb2.asp?uge=" & uge & "&aar=" & aar & "'>Skema for hele dagen</A>" %>    </font></td>


    <td width="33%">
      <p align="center"><font face="Verdana" size="2">Gå til uge</font> <input type="text" name="uge" size="3"><input type="submit" value="Send" name="B1"></td>
    <td width="34%">
      <p align="center"><font face=verdana size=2><A class='speciel3' HREF='../default.asp'>Tilbage
      til forsiden</A></font></td>
  </tr>
</table>
<input type="hidden" name="mode" value="change">
</form>

 
</body>
</html>
Avatar billede and_ Nybegynder
30. september 2004 - 18:27 #21
<table border="0" width="100%">
  <tr>
    <td width="33%">
      <p align="center"><font face="verdana" size="2" class="speciel">
        <A class="speciel3" HREF="edb2.asp?uge=<%=uge%>&aar=<%=aar%>">Skema for hele dagen</A>
      </font></p>
    </td>
    <td width="33%">
        <form action="edb.asp?reservation=<%=reservation%>" method="post" name="minForm" style="margin: 0px;">
          <p align="center">
            <font face="Verdana" size="2">Gå til uge</font> <input type="text" name="uge" size="3"> <input type="button" onclick="document.minForm.submit();" value="Send" name="B1">
            <input type="hidden" name="mode" value="change">
          </p>
        </form>
    </td>
    <td width="34%">
      <p align="center"><font face=verdana size=2><A class='speciel3' HREF='../default.asp'>Tilbage
      til forsiden</A></font></p></td>
  </tr>
</table>
</body>
</html>
Avatar billede and_ Nybegynder
30. september 2004 - 18:32 #22
Meeeeeeeennnnnnnnnnnnnn du kunne jo også:

I det nederste del af scriptet:

<form action="edb.asp?reservation=<%=reservation%>" method="post">
<table border="0" width="100%">
  <tr>
    <td width="33%">
      <p align="center"><font face="verdana" size="2" class="speciel">
   
     
<% Response.Write "<A class='speciel3' HREF='edb2.asp?uge=" & uge & "&aar=" & aar & "'>Skema for hele dagen</A>" %>    </font></td>


    <td width="33%">
      <p align="center"><font face="Verdana" size="2">Gå til uge</font> <input type="text" name="uge" size="3"><input type="submit" value="Send" name="B1"></td>
    <td width="34%">
      <p align="center"><font face=verdana size=2><A class='speciel3' HREF='../default.asp'>Tilbage
      til forsiden</A></font></td>
  </tr>
</table>
<input type="hidden" name="reser" value="<%=reservation%>">
<input type="hidden" name="mode" value="change">
</form>

 
</body>
</html>


Og den øverste del:

'Hvis der skal reserveres
if Request("mode") = "change" then
        Response.Redirect "edb.asp?reservation=" & request("reser") & "&uge=" & Request("uge") & "&aar=2004" 
end if
Avatar billede riishoj Nybegynder
30. september 2004 - 18:34 #23
Reservationen bliver stadig ikke ført med over:-(
Avatar billede riishoj Nybegynder
30. september 2004 - 18:36 #24
Min sidste kommentar var til dit første forslag. Prøver lige det andet.
Avatar billede riishoj Nybegynder
30. september 2004 - 18:41 #25
Bingo! Dit sidste forslag virker perfekt. 1000 tak for hjælpen, og send et svar, så du kan få dine velfortjente point.
Avatar billede and_ Nybegynder
30. september 2004 - 18:43 #26
jeg svarer....
Men du er vel klar over at det er en "fusket" måde den er kringlet på...

Men jeg alligevel mene at du skal have gået al din kode igennem... Der er mange fejl i.. Bl.a med udskrivninger osv...
Avatar billede riishoj Nybegynder
30. september 2004 - 18:48 #27
Ja, jeg har ikke det store overblik. Scriptet er stykket sammen af bits and pieces, som jeg har lært mig efterhånden. Du får 100 point ekstra, hvis du gider at rense koden for fejl.
Avatar billede and_ Nybegynder
30. september 2004 - 18:51 #28
Jeg har prøvet at lave lidt oprydning i det
Kommentar: and_
30/09-2004 17:54:23


men hvis det skal være helt perfekt, så send scripts'ene til mig på mail, så kigger jeg på dem...

//Duck Lakewalker
anders@die.dk
Avatar billede riishoj Nybegynder
30. september 2004 - 18:56 #29
OK. Jeg spiser lige først.
Avatar billede and_ Nybegynder
30. september 2004 - 19:14 #30
hhmm.. så bliver det evt. først senere jeg kigger på dem...
Men accepter lige spg. her...

For god ordens skyld til exp's brugere:

Når jeg har gået scripts'ene igennem, poster jeg dem i dette spg, så der ikke bliver tvivl om pointoverførsel!!!
Avatar billede riishoj Nybegynder
30. september 2004 - 20:04 #31
You've got mail!
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
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 9 25/06/202622:20 29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 10:19 Kan jeg beholde Publisher på min maskine efter at MS stopper med support Af KurtG i Office & Kontorpakker
02/0814:53 TV4ever 3.0 Af valby i Diverse
01/0816:21 Installere Ubuntu på Virtuel Maskine Af Uvanga i Andet software
01/0809:38 Microsoft har igen ødelagt mit højreklik Af valby i Windows
30/0714:41 To mails fra YouSee - Jeg tror ikke altid på tilfældigheder Af mort1 i Andet sikkerhed
White papers
Flere white papers »