Avatar billede rickie Juniormester
13. marts 2003 - 18:26 Der er 7 kommentarer og
1 løsning

IF SATSER

Hej alle eksperter!

Jeg er lige startet med .asp og har brug for lidt hjælp :-)
Er der nogen der kan forklare hvad der er galt med min kode?

Når jeg trykker på "Ändra" så åbner sig "siden" under den aktive???? Jeg tror/håber at det kun drejer sig om en else if-sats.

-----------

<!-- HÄR BÖRJAR PART MENYERNA -->

<%If Request.QueryString("part") = "" Or Request.QueryString("part") = "1" Then
If Request.QueryString("upart") = "" Then%>

<!-- HÄR BÖRJAR START -->

<%
Set objConn=Server.CreateObject("ADODB.Connection")   
objConn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source='"&Server.MapPath("data/data.mdb")&"'"
objConn.Open
%>

<%
SQL="SELECT * FROM start"
Set RS=objConn.Execute(SQL)
%>

<table border="0" cellspacing="0" width="100%">
    <tr>
        <td width="35%" valign="top"><img border="0" src="pictures/bild_start.jpg" width="232" height="422"></td>
        <td width="65%" valign="top"><b><%=RS("overskrift")%></b><br><br><%=RS("text")%><br><br><a href="index.asp?val=redigera">Ändra</a></td>
    </tr>
</table>

<%End If%>

<%If Request.QueryString("val") = "redigera" Then
SQL="SELECT * FROM start"
Set RS=objConn.Execute(SQL)
%>

<table border="0" cellspacing="0" width="100%">
    <tr>
        <td width="35%" valign="top"><img border="0" src="pictures/bild_start.jpg" width="232" height="422"></td>
        <td width="65%" valign="top"><b>Nu kan du ändra :-)</b><br><br><%=RS("text")%><br><br>Spara</td>
    </tr>
</table>

<%End If%>

<!-- HÄR SLUTAR START -->

<%End If%>

<!-- HÄR SLUTAR PART MENYERNA -->

<%
objConn.Close
Set objConn=Nothing
%>

-------

På forhånd tak :-)
Avatar billede ellebaek Nybegynder
13. marts 2003 - 18:59 #1
<!-- HÄR BÖRJAR PART MENYERNA -->

<%If Request.QueryString("part") = "" Or Request.QueryString("part") = "1" Then
If Request.QueryString("upart") = "" Then%>

<!-- HÄR BÖRJAR START -->

<%
Set objConn=Server.CreateObject("ADODB.Connection")   
objConn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source='"&Server.MapPath("data/data.mdb")&"'"
objConn.Open
%>

<%
SQL="SELECT * FROM start"
Set RS=objConn.Execute(SQL)
%>

<table border="0" cellspacing="0" width="100%">
    <tr>
        <td width="35%" valign="top"><img border="0" src="pictures/bild_start.jpg" width="232" height="422"></td>
        <td width="65%" valign="top"><b><%=RS("overskrift")%></b><br><br><%=RS("text")%><br><br><a href="index.asp?val=redigera">Ändra</a></td>
    </tr>
</table>


<%elseif Request.QueryString("val") = "redigera" Then
SQL="SELECT * FROM start"
Set RS=objConn.Execute(SQL)
%>

<table border="0" cellspacing="0" width="100%">
    <tr>
        <td width="35%" valign="top"><img border="0" src="pictures/bild_start.jpg" width="232" height="422"></td>
        <td width="65%" valign="top"><b>Nu kan du ändra :-)</b><br><br><%=RS("text")%><br><br>Spara</td>
    </tr>
</table>

<%End If%>

<!-- HÄR SLUTAR START -->

<%End If%>

<!-- HÄR SLUTAR PART MENYERNA -->

<%
objConn.Close
Set objConn=Nothing
%>

Sådan...!

/Ellebæk
Avatar billede ellebaek Nybegynder
13. marts 2003 - 18:59 #2
Ups...!

Det skal selvfølgelig være sådan her:
<!-- HÄR BÖRJAR PART MENYERNA -->

<%If Request.QueryString("part") = "" Or Request.QueryString("part") = "1" Then
If Request.QueryString("upart") = "" Then%>

<!-- HÄR BÖRJAR START -->

<%
Set objConn=Server.CreateObject("ADODB.Connection")   
objConn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source='"&Server.MapPath("data/data.mdb")&"'"
objConn.Open
%>

<%
SQL="SELECT * FROM start"
Set RS=objConn.Execute(SQL)
%>

<table border="0" cellspacing="0" width="100%">
    <tr>
        <td width="35%" valign="top"><img border="0" src="pictures/bild_start.jpg" width="232" height="422"></td>
        <td width="65%" valign="top"><b><%=RS("overskrift")%></b><br><br><%=RS("text")%><br><br><a href="index.asp?val=redigera">Ändra</a></td>
    </tr>
</table>
<%End If%>

<%elseif Request.QueryString("val") = "redigera" Then
SQL="SELECT * FROM start"
Set RS=objConn.Execute(SQL)
%>

<table border="0" cellspacing="0" width="100%">
    <tr>
        <td width="35%" valign="top"><img border="0" src="pictures/bild_start.jpg" width="232" height="422"></td>
        <td width="65%" valign="top"><b>Nu kan du ändra :-)</b><br><br><%=RS("text")%><br><br>Spara</td>
    </tr>
</table>



<!-- HÄR SLUTAR START -->

<%End If%>

<!-- HÄR SLUTAR PART MENYERNA -->

<%
objConn.Close
Set objConn=Nothing
%>
Avatar billede rickie Juniormester
13. marts 2003 - 19:09 #3
Jeg får det stadig ikke til at virke. Nu sker der intet???
Avatar billede ellebaek Nybegynder
13. marts 2003 - 19:10 #4
2 sek...
tester det lige...
Avatar billede rickie Juniormester
13. marts 2003 - 19:11 #5
Takker :-)
Avatar billede ellebaek Nybegynder
13. marts 2003 - 19:20 #6
<!-- HÄR BÖRJAR PART MENYERNA -->

<%If Request.QueryString("part") = "" Or Request.QueryString("part") = "1" Then

Set objConn=Server.CreateObject("ADODB.Connection")   
objConn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source='"&Server.MapPath("data/data.mdb")&"'"
objConn.Open

if Request.QueryString("val") = "redigera" Then
SQL="SELECT * FROM start"
Set RS=objConn.Execute(SQL)
%>

<table border="0" cellspacing="0" width="100%">
    <tr>
        <td width="35%" valign="top"><img border="0" src="pictures/bild_start.jpg" width="232" height="422"></td>
        <td width="65%" valign="top"><b>Nu kan du ändra :-)</b><br><br><%=RS("text")%><br><br>Spara</td>
    </tr>
</table>


<%else
If Request.QueryString("upart") = "" Then

SQL="SELECT * FROM start"
Set RS=objConn.Execute(SQL)
%>



<!-- HÄR BÖRJAR START -->

<table border="0" cellspacing="0" width="100%">
    <tr>
        <td width="35%" valign="top"><img border="0" src="pictures/bild_start.jpg" width="232" height="422"></td>
        <td width="65%" valign="top"><b><%=RS("overskrift")%></b><br><br><%=RS("text")%><br><br><a href="index.asp?val=redigera">Ändra</a></td>
    </tr>
</table>

<% end if %>

<!-- HÄR SLUTAR START -->

<%End If%>

<% end if %>

<!-- HÄR SLUTAR PART MENYERNA -->

Dette virker hos mig, i hvert fald uden connections til databasen, men prøv og sig hvad der sker...
Avatar billede rickie Juniormester
13. marts 2003 - 19:29 #7
Nu virker det - mange tak for hjälpen :-)
Avatar billede ellebaek Nybegynder
13. marts 2003 - 19:32 #8
velbekomme..
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