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 :-)
Annonceindlæg fra gavdi
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
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 %>
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...