Søg
Avatar billede kiddoe Nybegynder
14. maj 2006 - 05:15 Der er 11 kommentarer og
1 løsning

hjælp til Querystring

Hej - jeg har forgæves forsøgt at få nedenstående querystring til at fungere men jeg har vist fået rodet lidt rundt idet.
Er der nogen kan hjælpe med det ??

/// Linksne ser sådan ud

link1 = profiltekst.asp?action=tekst1&unik=brugernavn
link2 = profiltekst.asp?action=tekst2&unik=brugernavn

/// siden de linker til er sådan

<%@ Language="VBScript" %>
<% Option Explicit %>
<!--#INCLUDE FILE="DBCONN.ASP"-->

<%DIM action,unik,rs_show_profiles,tekst1,tekst2
unik    =    REQUEST.QUERYSTRING("UNIK")
action  =      REQUEST.QUERYSTRING("ACTION")
IF action = "" THEN
action = tekst1
END IF
SET RS_SHOW_PROFILES = SERVER.CREATEOBJECT("ADODB.RECORDSET")
RS_SHOW_PROFILES.OPEN "SELECT * FROM USERS WHERE brugernavn = '"&unik&"'", DBCONN, 3, 3
IF NOT RS_SHOW_PROFILES.EOF THEN%>

<% IF ACTION = "tekst1" THEN%>
<table>
<tr>
<td>     
    <%=Rs_Show_Profiles("PROFILTEKST1")%>
</td>
</tr>
</table>
<%ELSE%>
<font>ingen tekst1</font>
<%END IF%>

<% IF ACTION = "tekst2" THEN%>
<table>
<tr>
<td>     
    <%=Rs_Show_Profiles("TEKST2")%>
</td>
</tr>
</table>
<%ELSE%>
<font>ingen tekst2</font>
<%END IF%>
<%END IF%>

//// resultatet

Link1 viser filen tekst1 - mens
Link2 viser "ingen tekst1 ingen tekst2"
Avatar billede cyberkox Nybegynder
14. maj 2006 - 07:25 #1
<%@ Language="VBScript" %>
<% Option Explicit %>
<!--#INCLUDE FILE="DBCONN.ASP"-->

<%DIM action,unik,rs_show_profiles,tekst1,tekst2
unik    =    REQUEST.QUERYSTRING("UNIK")
action  =      REQUEST.QUERYSTRING("ACTION")
IF action = "" THEN
action = tekst1
END IF
SET RS_SHOW_PROFILES = SERVER.CREATEOBJECT("ADODB.RECORDSET")
RS_SHOW_PROFILES.OPEN "SELECT * FROM USERS WHERE brugernavn = '"&unik&"'", DBCONN, 3, 3
IF NOT RS_SHOW_PROFILES.EOF THEN%>

<% IF ACTION = "tekst1" THEN%>
<table>
<tr>
<td>     
    <%=Rs_Show_Profiles("PROFILTEKST1")%>
</td>
</tr>
</table>
<%ELSEif ACTION = "tekst2" THEN %>
<table>
<tr>
<td>     
    <%=Rs_Show_Profiles("TEKST2")%>
</td>
</tr>
</table>
<%ELSE%>
<font>ingen tekst</font>
<%END IF%>
<%END IF%>
Avatar billede kiddoe Nybegynder
14. maj 2006 - 08:46 #2
hej cyberkox - ja - jeg havde prøvet noget lignene -
det gir fejlen
Expected statement

/asp/profiler/profiltekst.asp, line 40 (SIDSTE LINIE)

END IF
^
uanset hvor mange end if'er jeg sætter på - jeg forstår det ikke!!
Avatar billede cyberkox Nybegynder
14. maj 2006 - 08:50 #3
Hmm, det lyder mærkeligt. Prøv at poste hele siden herind
Avatar billede kiddoe Nybegynder
14. maj 2006 - 08:56 #4
kommer her


<%@ Language="VBScript" %>
<% Option Explicit %>
<%
session.LCID = 1030
%>
<!--#INCLUDE FILE="CONNECTION.ASP"-->
<HTML>
  <HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta http-equiv="pragma" content="no-cache" />
<meta http-equiv="cache-control" content="no-store" />
    <TITLE></TITLE>
</HEAD>
<BODY >
<%DIM action,unik,rs_show_profiles,profiltekst1,profiltekst2,profiltekst3,profiltekst4,profiltekst5
unik    =    REQUEST.QUERYSTRING("unik")
action = REQUEST.QUERYSTRING("ACTION")
IF ACTION = "" THEN
ACTION = PROFILTEKST1
END IF
SET RS_SHOW_PROFILES = SERVER.CREATEOBJECT("ADODB.RECORDSET")
RS_SHOW_PROFILES.OPEN "SELECT * FROM USERS WHERE brugernavn = '"&unik&"'", DBCONN, 3, 3
%>

<% IF ACTION = "profiltekst1" THEN%>
<table>
<tr>
<td>     
    <%=Rs_Show_Profiles("PROFILTEKST1")%>
</td>
</tr>
</table>
<%ELSE if ACTION = "profiltekst2" THEN %>
<table>
<tr>
<td>     
    <%=Rs_Show_Profiles("profilTEKST2")%>
</td>
</tr>
</table>
<%ELSE%>
<font>ingen tekst</font>
<%END IF%>
<%END IF%>
<%
' foot ind her
%>
Avatar billede kiddoe Nybegynder
14. maj 2006 - 08:56 #5
det er jo så meningen at jeg køre videre på profiltekst2 osv
Avatar billede kiddoe Nybegynder
14. maj 2006 - 09:01 #6
hovsa set =

SET RS_SHOW_PROFILES = SERVER.CREATEOBJECT("ADODB.RECORDSET")
RS_SHOW_PROFILES.OPEN "SELECT * FROM USERS WHERE brugernavn = '"&unik&"'", DBCONN, 3, 3
IF NOT RS_SHOW_PROFILES.EOF THEN%>
Avatar billede mitbrugernavn Praktikant
14. maj 2006 - 09:08 #7
prøv denne

<%@ Language="VBScript" %>
<% Option Explicit %>
<%
session.LCID = 1030
%>
<!--#INCLUDE FILE="CONNECTION.ASP"-->
<HTML>
  <HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta http-equiv="pragma" content="no-cache" />
<meta http-equiv="cache-control" content="no-store" />
    <TITLE></TITLE>
</HEAD>
<BODY >
<%DIM action,unik,rs_show_profiles,profiltekst1,profiltekst2,profiltekst3,profiltekst4,profiltekst5
unik    =    REQUEST.QUERYSTRING("unik")
action = REQUEST.QUERYSTRING("ACTION")
IF ACTION = "" THEN
ACTION = PROFILTEKST1
END IF

SET RS_SHOW_PROFILES = SERVER.CREATEOBJECT("ADODB.RECORDSET")
RS_SHOW_PROFILES.OPEN "SELECT * FROM USERS WHERE brugernavn = '"&unik&"'", DBCONN, 3, 3
IF NOT RS_SHOW_PROFILES.EOF THEN


IF ACTION = "profiltekst1" THEN
%>
<table>
<tr>
<td>     
    <%=Rs_Show_Profiles("PROFILTEKST1")%>
</td>
</tr>
</table>
<%
else

if ACTION = "profiltekst2" THEN
%>
<table>
<tr>
<td>     
    <%=Rs_Show_Profiles("profilTEKST2")%>
</td>
</tr>
</table>
<%
else
%>
<font>ingen tekst</font>
<%
END IF
END IF
END IF
%>
<%
' foot ind her
%>
Avatar billede cyberkox Nybegynder
14. maj 2006 - 09:15 #8
Eller den her med Select case:

<%@ Language="VBScript" %>
<% Option Explicit %>
<%
session.LCID = 1030
%>
<!--#INCLUDE FILE="CONNECTION.ASP"-->
<HTML>
  <HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta http-equiv="pragma" content="no-cache" />
<meta http-equiv="cache-control" content="no-store" />
    <TITLE></TITLE>
</HEAD>
<BODY >
<%DIM action,unik,rs_show_profiles,profiltekst1,profiltekst2,profiltekst3,profiltekst4,profiltekst5
unik    =    REQUEST.QUERYSTRING("unik")
action = REQUEST.QUERYSTRING("ACTION")
SET RS_SHOW_PROFILES = SERVER.CREATEOBJECT("ADODB.RECORDSET")
RS_SHOW_PROFILES.OPEN "SELECT * FROM USERS WHERE brugernavn = '"&unik&"'", DBCONN, 3, 3
IF NOT RS_SHOW_PROFILES.EOF THEN
%>

<table>
<tr>
<td>     
<%
Select Case action
Case(""): response.write Rs_Show_Profiles("PROFILTEKST1")

Case Else: response.write Rs_Show_Profiles(action)
End Select
%>
</td>
</tr>
</table>


<%END IF%>
<%
' foot ind her
%>
Avatar billede kiddoe Nybegynder
14. maj 2006 - 09:19 #9
== if to be or if not to be - det virkede
mange tak til jer begge to :)
Avatar billede kiddoe Nybegynder
14. maj 2006 - 09:23 #10
=> cyberkox
nå der kom lige en mere fra dig - det ser jo interresant ud det vil jeg også lige prøve, jeg har desværre ikke flere point at gi' af :( men du skal ihvertfald have tak for hjælpen - mange tak
Avatar billede cyberkox Nybegynder
14. maj 2006 - 09:26 #11
Hehe, det er bare i orden, jeg klarer mig nok ;-)
Avatar billede kiddoe Nybegynder
14. maj 2006 - 09:29 #12
det var godt - ka' du ha' det :)
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 går 18:58 Mellemled til forsendelse fra Tyskland Af nu_igen i E-handel
I går 12:44 Lenovo ThinkPad X1 Yoga Af mort1 i PC
03/0710:40 Dagens vits fra AI Af nu_igen i Andet software
03/0710:28 Stifinder gemmer de sidste 20 åbnede dokumenter, nu er de pludselig væk. Af Uvanga i Windows
01/0715:18 Min PC kan nu ikke se den ekstra skærm Af KurtG i Windows
White papers
Flere white papers »