If......Then.....response.redirect.....else if.....!????

elseif er i et ord

mener jeg

Nej - det er det ikke, for hvis jeg gør det, så melder den fejl!

SELECT CASE Request.Form(\"skema\")

  CASE \"Månedsrapport\"
          IF Request.Form(\"Danmark\") = \"on\" Then Response.Redirect(\"maanedsreport/Denmark/maanedsrapport.asp\")
   
OSV ....

END SELECT

Du behøver jo ikke en else if, da der aldrig kan udføres flere if-sætninger da du jo redirecter brugeren til et andet sted ... måske du skulle bruge radiobuttons med samme navn istedet og så lave en:

SELECT CASE Request.Form(\"skema\")

  CASE \"Månedsrapport\"
    SELECT CASE Request.Form(\"Land\")
      CASE \"Danmark\"    Respone.redirect .. osv
      CASE \"Finland\"    Res ... osv

Hvad er fejlen??

eagleeye ... tror ikke han har en fejl? Men jeg ville med 32 if betingelser også tænke at der var en lettere måde at gøre det på? Hvem ved ;-)

hvor er jeg flov... Tænk sig at jeg sagde sådan noget L***

OK...
strax>> Du kan ikke CASE på Request.Form(\"Land\") !
Se koden Request.Form(\"danmark\") = \"on\"  of Request.Form(\"Finland\") = \"on\"

Webbe>>
Hvordan vælger man land ? []Checkbox eller ()Radio ??

Jeg vil lande valget som radio-knapepr:

<INPUT type=radio value=\"Danmark\" name=\"Land\" CHECKED>Danmark
<INPUT type=radio value=\"Finland\" name=\"Land\">Finland
<INPUT type=radio value=\"Norge\" name=\"Land\">Norge

Så kan du som strax skriver:
  SELECT CASE Request.Form(\"Land\")
      CASE \"Danmark\"    Respone.redirect .. osv
      CASE \"Finland\"    Res ... osv

eagleeye >>> Jeg skrev:
\"... måske du skulle bruge radiobuttons med samme navn istedet og så lave en: \"

Jeg foreslår altså nøjagtig det samme som du, altså at lave formularen om, ellers havde jeg jo heller ikke skrevet to forskellige forslag ;-)

strax>> ups ja undskyld..jeg var vist lige hurtig nok.
Nå men så har jeg da vist hvordan radio buttons kunne sættes ind på siden :-)

Go\'morn\' strax og eagleeye!

Jeg bruger checkboxe, men der skulle ikke være nogen videre forskel på checkboxe og radiobuttons!

Begge vil have en \"value\" der hedder checked!

Min html kan jeg til fingerspidserne, så det hjælper mig ikke fedt, at du skriver en løsning med radiobuttons.....det får du altså ikke point for, eagleeye!

Men jeg tester lige strax\'s forslag og virker det, så får han pointene idet han var først!

Jo det er forskel. Det kan dun vælges en Radio button blant mange, hvorimod du kan vælge mange checkboke.

Skal man ikke kun kunne vælge et land?
checkboxe:
[X}Danamrk
[ ]Finland
[X]Norge

radiobutton:
(*)Danamrk
( )Finland
( )Norge

Kan du se forskellen?

Lav din lande vælger som radiobutton:

<INPUT type=radio value=\"landenavn\" name=\"Land\">landenavn

Så kan du hendt navnet på det land du har vagt ved at skrive Request.Form(\"Land\").

De har ikke value CHECKED. de har en property som hedder checked. Value kan du selv bestemme.

eagleeye!

Value eller property.....don\'t care.....du ved hvad jeg mener! *LOL*

Kunne ikke lige huske hvad det hed.....derfor skrev jeg også value i gåseøjne jo! *G*

Men okay......kan være du har ret....men ændrer ikke ved at strax kom først!

;-)

eagleeye:

Har nu ændret til radio buttons, men det hjalp ikke stort!

Kan stadig vælge mere end én!

Følgende kode er brugt:

<input type=\"RADIO\" value=\"land1\" name=\"danmark\">

Såååååå.....hvad er forskellen lige iugen!!??? ;o)

Så held og lykke;

eagleeye!

*GGG*

Det kan godt være han kom først jeg har vist hvordan du skal lave radiobuttons...

Alle radiobutton skal havde name stat til land.
Name=\"land\"
Value=\"Danmark\" - \"Norge\" - \"Finland\" .. andre

<input type=\"RADIO\" value=\"land1\" name=\"danmark\">
RETTES TIL:
<input type=\"RADIO\" value=\"Danmark\" name=\"Land\">
<input type=\"RADIO\" value=\"Finland\" name=\"Land\">
<input type=\"RADIO\" value=\"Norge\" name=\"Land\">

Hmmmm!

Synes ikke det virker!

Koden ser sådan her ud nu:

Select Case Request.Form(\"skemavalgt\")

Case \"Månedsrapport\"
    Select Case Request.Form(\"land\")
        Case \"Danmark\" Response.Redirect(\"maanedsreport/Denmark/maanedsrapport.asp\")
        Case \"Finland\" Response.Redirect(\"maanedsreport/Finland/maanedsrapport.asp\")
        Case \"Norge\" Response.Redirect(\"maanedsreport/Norge/maanedsrapport.asp\")
        Case \"Sverige\" Response.Redirect(\"maanedsreport/Sverige/maanedsrapport.asp\")
    End select
       
Case \"Releasebudget\"
    Select Case Request.Form(\"land\")
        Case \"Danmark\" Response.Redirect(\"releasebudget/Denmark/releasebudget.asp\")
        Case \"Finland\" Response.Redirect(\"releasebudget/Finland/releasebudget.asp\")
        Case \"Norge\" Response.Redirect(\"releasebudget/Norge/releasebudget.asp\")
        Case \"Sverige\" Response.Redirect(\"releasebudget/Sverige/releasebudget\")
    End select
       
Case \"Releaserapport\"
    Select Case Request.Form(\"land\")
        Case \"Danmark\" Response.Redirect(\"releasereport/Denmark/releaserapport.asp\")
        Case \"Finland\" Response.Redirect(\"releasereport/Finland/releaserapport.asp\")
        Case \"Norge\" Response.Redirect(\"releasereport/Norge/releaserapport.asp\")
        Case \"Sverige\" Response.Redirect(\"releasereport/Sverige/releaserapport.asp\")
    End select
       
Case \"Cost & Budget\"
    Select Case Request.Form(\"land\")
        Case \"Danmark\" Response.Redirect(\"cost_budget/Denmark/cost_budget.asp\")
        Case \"Finland\" Response.Redirect(\"cost_budget/Finland/cost_budget.asp\")
        Case \"Norge\" Response.Redirect(\"cost_budget/Norge/cost_budget.asp\")
        Case \"Sverige\" Response.Redirect(\"cost_budget/Sverige/cost_budget.asp\")
    End select
       
End select

Request.Form(\"skemavalgt\") er et hidden formularfelt der indeholder værdien af et tidligere valg!

Request.Form(\"land\") er værdien af det valgte land!

Sender den ikke vidre eller vælges den rigtige fil ikke ??

Den sender ikke videre!

Den stopper i den fil hvor ovenstående kode står!

Hvis den ikke redircter så er det måske fordi redirect ligger mellem <HTML> .. </HTML>
Prøv at flytte redirect ovenover <HTML>

Det har jeg haft problemmer med....

Jeg bruger slet ikke html-tags i denne fil da den ikke skal vises til brugeren, men bare udføre min redirect!

Så det er ikke det der er fejlen!

Har du en <% Response.Buffer = True %> i toppen af filen?

Hvis jeg bruger den får jeg følgende fejl:

Microsoft VBScript compilation error \'800a0400\'

Expected statement

/new/budget/redirect.asp, line 4

Option Explicit

Kan du evt prøve at udskrive Land og skemavalgt.
Så skal du gåt nok havde <body> ind..

Response.Write Request.Form(\"land\")

Det giver et tomt resultat!

Min formular ser sådan her ud:

<%@language=\"VBSCRIPT\"%>
<%
Option Explicit
%>
<%
Dim Connect, rs_maaned

Set Connect = Server.CreateObject(\"ADODB.Connection\")
Connect.Open \"sb_budget\"

Set rs_maaned = Server.CreateObject(\"ADODB.Recordset\")
rs_maaned.Open \"SELECT * FROM Maaneder ORDER BY Id\", Connect, 1, 3
%>
<base target=\"_self\">
<META content=\"MSHTML 5.00.2314.1000\" name=GENERATOR></HEAD>
<BODY bgColor=#000000><IMG border=0 src=\"Images/sbentertainment_logo.gif\">
<BR><BR><BR><BR>
<CENTER><FONT color=#ffffff face=Verdana size=4>Scanbox Entertainment A/S -
budget administration</FONT></CENTER>
<CENTER><BR><BR><FONT color=#ffffff face=Verdana size=2><STRONG>Du har valgt at
lave <%=Request.Form(\"skema\")%>
<br>
<br></STRONG>
<font face=\"Verdana\" size=\"2\" color=\"#ffffff\"><center>Vælg land og indtast dine initialer, måned, valuta og kurs og tryk på \"Send\"</center></font>
<br>
<br>
<center>
<form method=\"POST\" action=\"land.asp?action=save\" name=\"skemaland\">
<input type=\"HIDDEN\" name=\"skemavalgt\" value=\"<%=Request.Form(\"skema\")%>\">
<font face=\"Verdana\" size=\"2\" color=\"#FFFFFF\">
<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\">
    <tr>
        <td valign=\"middle\" align=\"left\"><img src=\"Images/dkflag.jpg\" border=\"0\"><input type=\"RADIO\" value=\"Danmark\" name=\"land\"><font face=\"Verdana\" size=\"2\" color=\"#FFFFFF\">Danmark&#32;</font></td>
        <td valign=\"middle\" align=\"left\"><img src=\"Images/fiflag.jpg\" border=\"0\"><input type=\"RADIO\" value=\"Finland\" name=\"land\"><font face=\"Verdana\" size=\"2\" color=\"#FFFFFF\">Finland&#32;</font></td>
        <td valign=\"middle\" align=\"left\"><img src=\"Images/noflag.jpg\" border=\"0\"><input type=\"RADIO\" value=\"Norge\" name=\"land\"><font face=\"Verdana\" size=\"2\" color=\"#FFFFFF\">Norge&#32;</font></td>
        <td valign=\"middle\" align=\"left\"><img src=\"Images/svflag.jpg\" border=\"0\"><input type=\"RADIO\" value=\"Sverige\" name=\"land\"><font face=\"Verdana\" size=\"2\" color=\"#FFFFFF\">Sverige&#32;</font></td>
    </tr>
</table>
<br>
Initialer<br>
<input type=\"TEXT\" name=\"initialer\" size=\"5\">
<br>
<br>
Måned<br>
<select name=\"maaned\"><option selected value=\"\">Vælg måned</option>
<%
do until rs_maaned.EOF
%>
<option value=\"<%=rs_maaned(\"Maaned\")%>\"><%=rs_maaned(\"Maaned\")%></option>
<%
rs_maaned.MoveNext
loop
%>
</select>
<br>
<br>
Valuta (fx. USD)<br>
<input type=\"TEXT\" name=\"valuta\" size=\"15\">
<br>
<br>
Kurs (fx. 678)<br>
<input type=\"TEXT\" name=\"kurs\" size=\"5\">
<br>
<br>
<input type=\"Submit\" name=\"submit\" value=\"Send\">
</form>
</center>

Gav det her fejl ???:

<% Response.Buffer = True %>
<%@language=\"VBSCRIPT\"%>
<%
Option Explicit
%>
<%
KODE

Jeps!

Skriver det lige igen så du kan se fejlen!

Microsoft VBScript compilation error \'800a0400\'

Expected statement

/new/budget/redirect.asp, line 6

Option Explicit

hmm underligt!!!!
Prøv at ændre:
<input type=\"HIDDEN\" name=\"skemavalgt\" value=\"<%=Request.Form(\"skema\")%>\">

<input type=\"input\" name=\"skemavalgt\" value=\"<%=Request.Form(\"skema\")%>\">
og se om der kommer til at stå noget..

Det gør der!

Og det er endda det rigtige!

OK så et det på redirect siden problmmet er!

Jeps - også det jeg regnede med!

method=\"POST\" action=\"land.asp?action=save\"

Går det godt at blande POST og GET .asp?action=save = GET method.

HVAD?????

Det er ikke noget problem....det er det samme som at lave min Case save i en anden fil, men her laver jeg den  bare i samme fil!

Det giver ikke problemer!

Men hvis du udskriver på din redirect side er felterne tomme ??

Jeps!

Kan det være fordi jeg skal bruge et recordset i stedet for???

Recordset er jo noget man får fra en database.
Det undre mig at du får tomme felter.

Har du prøvet at havde den her i toppen af Redirect siden: <% Response.Buffer = True %>

Nej det hjælper vist heller ikke noget.

Det er måske lidt langt ude men:
Prøv at ændre:
<input type=\"Submit\" name=\"submit\" value=\"Send\">
til
<input type=\"Submit\" name=\"Action\" value=\"Send\">

Nix - ændrer ikke noget!

Det er jo også i min redirect der er problemer!

Så har jeg ikke rigtig nogle ideer.
Kan du vise lidt mere af koden?

Jamen jeg har vist hele koden!

Både på min formular og min redirect!

<% Response.Buffer = True %>
Select Case Request.Form(\"skemavalgt\")

Case \"Månedsrapport\"
    Select Case Request.Form(\"land\")

Melder også fejl..

Jeg er desværre nød til at smutte..

Hold kæft hvor har i skrevet meget *gg*, er der kommet en løsning?

det tror jeg ikke. Det virker underligt at det ikke virker.

Ja, mærkeligt, man kunne jo prøve denne:

Response.write \"Skema: \" & Request.Form(\"skemavalgt\")
Response.write \"<P>Land: \" & Request.Form(\"land\")

Select Case Request.Form(\"skemavalgt\")

Case \"Månedsrapport\"
    Select Case Request.Form(\"land\")
        Case \"Danmark\" Response.Write(\"maanedsreport/Denmark/maanedsrapport.asp\")
        Case \"Finland\" Response.Redirect(\"maanedsreport/Finland/maanedsrapport.asp\")
        Case \"Norge\" Response.Redirect(\"maanedsreport/Norge/maanedsrapport.asp\")
        Case \"Sverige\" Response.Redirect(\"maanedsreport/Sverige/maanedsrapport.asp\")
    End select
       
Og så vælge månedsrapport for danmark og se hvad den udriver?

Nu er det vel ikke sådan  at du bruger noget ala

If Request.Form(\"Action\") = \"save\" then ... osv

Den hedder jo Request.Querystring(\"Action\")

<% Response.Buffer = True %>
Select Case Request.Form(\"skemavalgt\")

Case \"Månedsrapport\"
    Select Case Request.Form(\"land\")

Melder det også fejl?


Prøv evt.
Response.Redirect \"maanedsreport/Denmark/maanedsrapport.asp\"

Har selv fundet en løsning på problemet.

Har opdelt mine redirect i 2 filer, så det ser således ud:


Fil 1:

<%@language=\"VBSCRIPT\"%>
<%
Option Explicit
%>
<%
Dim Connect, rs_skema

Set Connect = Server.CreateObject(\"ADODB.Connection\")
Connect.Open \"sb_budget\"

Set rs_skema = Server.CreateObject(\"ADODB.Recordset\")
rs_skema.Open \"SELECT TOP 1 * FROM Start_tabel ORDER BY Id DESC\", Connect, 1, 3

If rs_skema(\"Skema\") = \"Månedsrapport\" Then
    Response.Redirect(\"redirect2.asp?action=Maanedsrapport\")
End if

If rs_skema(\"Skema\") = \"Releasebudget\" Then
    Response.Redirect(\"redirect2.asp?action=Releasebudget\")
End if

If rs_skema(\"Skema\") = \"Releaserapport\" Then
    Response.Redirect(\"redirect2.asp?action=Releaserapport\")
End if

If rs_skema(\"Skema\") = \"Cost & Budget\" Then
    Response.Redirect(\"redirect2.asp?action=CostBudget\")
End if
%>


Fil 2:

<%@language=\"VBSCRIPT\"%>
<%
Option Explicit
%>
<%
Select Case Request.QueryString(\"action\")

Case \"Maanedsrapport\"

Dim Connect, rs_land

Set rs_land = Server.CreateObject(\"ADODB.Recordset\")
rs_land.Open \"SELECT TOP 1 * FROM Start_tabel ORDER BY Id DESC\", Connect, 1, 3

If rs_land(\"Land\") = \"Danmark\" Then
    Response.Redirect(\"maanedsreport/Denmark/maanedsrapport.asp\")
End if

If rs_land(\"Land\") = \"Finland\" Then
    Response.redirect(\"maanedsreport/Finland/maanedsrapport.asp\")
End if

If rs_land(\"Land\") = \"Norge\" Then
    Response.Redirect(\"maanedsreport/Norge/maanedsrapport.asp\")
End if

If rs_land(\"Land\") = \"Sverige\" Then
    Response.Redirect(\"maanedsreport/Sverige/maanedsrapport.asp\")
End if



Case \"Releasebudget\"

Set Connect = Server.CreateObject(\"ADODB.Connection\")
Connect.Open \"sb_budget\"

Set rs_land = Server.CreateObject(\"ADODB.Recordset\")
rs_land.Open \"SELECT TOP 1 * FROM Start_tabel ORDER BY Id DESC\", Connect, 1, 3

If rs_land(\"Land\") = \"Danmark\" Then
    Response.Redirect(\"releasebudget/Denmark/releasebudget.asp\")
End if

If rs_land(\"Land\") = \"Finland\" Then
    Response.redirect(\"releasebudget/Finland/releasebudget.asp\")
End if

If rs_land(\"Land\") = \"Norge\" Then
    Response.Redirect(\"releasebudget/Norge/releasebudget.asp\")
End if

If rs_land(\"Land\") = \"Sverige\" Then
    Response.Redirect(\"releasebudget/Sverige/releasebudget.asp\")
End if



Case \"Releaserapport\"

Set Connect = Server.CreateObject(\"ADODB.Connection\")
Connect.Open \"sb_budget\"

Set rs_land = Server.CreateObject(\"ADODB.Recordset\")
rs_land.Open \"SELECT TOP 1 * FROM Start_tabel ORDER BY Id DESC\", Connect, 1, 3

If rs_land(\"Land\") = \"Danmark\" Then
    Response.Redirect(\"releasereport/Denmark/releaserapport.asp\")
End if

If rs_land(\"Land\") = \"Finland\" Then
    Response.redirect(\"releasereport/Finland/releaserapport.asp\")
End if

If rs_land(\"Land\") = \"Norge\" Then
    Response.Redirect(\"releasereport/Norge/releaserapport.asp\")
End if

If rs_land(\"Land\") = \"Sverige\" Then
    Response.Redirect(\"releasereport/Sverige/releaserapport.asp\")
End if



Case \"CostBudget\"

Set Connect = Server.CreateObject(\"ADODB.Connection\")
Connect.Open \"sb_budget\"

Set rs_land = Server.CreateObject(\"ADODB.Recordset\")
rs_land.Open \"SELECT TOP 1 * FROM Start_tabel ORDER BY Id DESC\", Connect, 1, 3

If rs_land(\"Land\") = \"Danmark\" Then
    Response.Redirect(\"cost_budget/Denmark/cost_budget.asp\")
End if

If rs_land(\"Land\") = \"Finland\" Then
    Response.redirect(\"cost_budget/Finland/cost_budget.asp\")
End if

If rs_land(\"Land\") = \"Norge\" Then
    Response.Redirect(\"cost_budget/Norge/cost_budget.asp\")
End if

If rs_land(\"Land\") = \"Sverige\" Then
    Response.Redirect(\"cost_budget/Sverige/cost_budget.asp\")
End if

End select
%>

Problem solved!