Notifikationer

Markér alle som læst Log ud

kalkunen Nybegynder

27. april 2002 - 17:45 Der er 22 kommentarer og
3 løsninger

ASP

hvorfor virker dette her ikke?

<%
If rs("icq") <> "" Then
stricq = "ICQ: & rs("icq") & "
Else
stricq = " "
End If
%>

Synes godt om

arriva Nybegynder

27. april 2002 - 17:47 #1

<%
If rs("icq") <> "" Then
stricq = "ICQ:" & rs("icq") & " "
Else
stricq = " "
End If
%>

Synes godt om

arriva Nybegynder

27. april 2002 - 17:47 #2

du skal lige huske at afslutte dine " ... :o)

Synes godt om

invisibleman Nybegynder

27. april 2002 - 17:47 #3

<%
If ("" & rs("icq")) > "" Then
stricq = "ICQ: & rs("icq") & "
Else
stricq = " "
End If
%>

Synes godt om

invisibleman Nybegynder

27. april 2002 - 17:47 #4

ups ja..
<%
If ("" & rs("icq")) > "" Then
stricq = "ICQ: " & rs("icq") & " "
Else
stricq = " "
End If
%>

Synes godt om

arriva Nybegynder

27. april 2002 - 17:50 #5

invisibleman: hvorfor ("" & rs("icq")) ? kan vel være ligemeget med den "" & ?

Synes godt om

kalkunen Nybegynder

27. april 2002 - 17:53 #6

altså rs("icq") er hentet fra en database, og det var meningen at dette lille script skulle tjekke om der overhovedet var noget i feltet! Og hvis der var så skulle den skrive ICQ: og det der stod i feltet
og hvis ikke skulle den ikke skrive noget!

Synes godt om

kalkunen Nybegynder

27. april 2002 - 17:53 #7

ingen af jeres løsninger virker :(

Synes godt om

arriva Nybegynder

27. april 2002 - 17:54 #8

ja, og? Det burde da også virke så? Du skal selvfølgelig lige have lidt mere kode et andet sted...

Synes godt om

invisibleman Nybegynder

27. april 2002 - 17:54 #9

Nopes .. NULL values fra Databaser er noget skidt i ASP .. IsNull() virker ikke altid så derfor gør "" & at den tvinger værdien til at blive en streng, der kan testes med > "".

null > "" vil være sand nemlig

Synes godt om

kalkunen Nybegynder

27. april 2002 - 17:55 #10

kan i lave en der virker?

Synes godt om

arriva Nybegynder

27. april 2002 - 17:55 #11

Var det sådan her du mente så?

<%
If not rs("icq") "" Then
response.write "ICQ:" & rs("icq") & " "
Else
response.write " "
End If
%>

...ellers er det vel sådan noget du leder efter?

Synes godt om

arriva Nybegynder

27. april 2002 - 17:57 #12

invisibleman: nå ja, ok :) Men det kommer vel sådan set an på hvad man sætter sin db til? Syntes nemlig aldrig det har været et prob. for mig?

Synes godt om

kalkunen Nybegynder

27. april 2002 - 18:02 #13

her er hele koden:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("db.mdb")
Conn.Open DSN

strSQL = "Select * From members Where Id = " & Request.Querystring("id")
Set rs = Conn.Execute(strSQL)

If not rs("icq") "" Then
response.write "ICQ:" & rs("icq") & " "
Else
response.write " "
End If

response.write "Velkommen til" & rs("brugernavn") &"'s side!"
response.write "" & rs("navn") ""
response.write "Email:" & rs("email")
response.write stricq
response.write "Profil/Fri tekst:"
response.write " " & rs("tekst")

Conn.Close
Set Conn = Nothing
%>

Synes godt om

arriva Nybegynder

27. april 2002 - 18:05 #14

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("db.mdb")
Conn.Open DSN

strSQL = "Select * From members Where Id = " & Request.Querystring("id")
Set rs = Conn.Execute(strSQL)

If not rs("icq") "" Then
stricq = "ICQ:" & rs("icq") & " "
Else
stricq = " "
End If

response.write "Velkommen til" & rs("brugernavn") &"'s side!"
response.write "" & rs("navn") ""
response.write "Email:" & rs("email")
response.write stricq
response.write "Profil/Fri tekst:"
response.write " " & rs("tekst")

Conn.Close
Set Conn = Nothing
%>

Synes godt om

arriva Nybegynder

27. april 2002 - 18:05 #15

Hvad er fejlen, ellers?

Synes godt om

kalkunen Nybegynder

27. april 2002 - 18:09 #16

den viser ikke nogen side, hvis man går ind på (i dette tilfelde nr 1 i databasen)

profil.asp?id=1
og fejl siden kommer frem :(

Synes godt om

arriva Nybegynder

27. april 2002 - 18:12 #17

hvad siger fejlen?

Synes godt om

kalkunen Nybegynder

27. april 2002 - 18:15 #18

ja den viser ikke nogen side :(

Synes godt om

arriva Nybegynder

27. april 2002 - 18:16 #19

? Kører du ikke siden på din egen computer, eller hvad?

Synes godt om

kalkunen Nybegynder

27. april 2002 - 18:18 #20

neg jeg tester den på friserverplads.dk

Synes godt om

arriva Nybegynder

27. april 2002 - 18:21 #21

hm, ok.. er det alt din kode? Og er du sikker på at din database også ligger der? ellers så prøv det her:

<%
Response.Buffer = True
Set Con = Server.CreateObject("ADODB.Connection")
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("db.mdb")

strSQL = "Select * From members Where Id = " & Request.Querystring("id")
Set rs = Con.Execute(strSQL)

If not rs("icq") "" Then
stricq = "ICQ:" & rs("icq") & " "
Else
stricq = " "
End If

response.write "Velkommen til" & rs("brugernavn") &"'s side!"
response.write "" & rs("navn") ""
response.write "Email:" & rs("email")
response.write stricq
response.write "Profil/Fri tekst:"
response.write " " & rs("tekst")

Conn.Close
Set Conn = Nothing
%>

Synes godt om

arriva Nybegynder

27. april 2002 - 18:28 #22

hovsa, skulle være:

<%
Response.Buffer = True
Set Con = Server.CreateObject("ADODB.Connection")
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("db.mdb")

strSQL = "Select * From members Where Id = " & Request.Querystring("id")
Set rs = Con.Execute(strSQL)

If not rs("icq") "" Then
stricq = "ICQ:" & rs("icq") & " "
Else
stricq = " "
End If

response.write "Velkommen til" & rs("brugernavn") &"'s side!"
response.write "" & rs("navn") ""
response.write "Email:" & rs("email")
response.write stricq
response.write "Profil/Fri tekst:"
response.write " " & rs("tekst")

Con.Close
Set Con = Nothing
%>

Synes godt om

excession Nybegynder

27. april 2002 - 19:26 #23

<%
Response.Buffer = True
Set Con = Server.CreateObject("ADODB.Connection")
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("db.mdb")

strSQL = "Select * From members Where Id = " & Request.Querystring("id")
Set rs = Con.Execute(strSQL)

If not rs("icq") = "" Then
stricq = "ICQ:" & rs("icq") & " "
Else
stricq = " "
End If

response.write "Velkommen til" & rs("brugernavn") &"'s side!"
response.write "" & rs("navn") ""
response.write "Email:" & rs("email")
response.write stricq
response.write "Profil/Fri tekst:"
response.write " " & rs("tekst")

Con.Close
Set Con = Nothing
%>

Synes godt om

arriva Nybegynder

28. april 2002 - 00:32 #24

jaja, okaj så :o)

Synes godt om

kalkunen Nybegynder

28. april 2002 - 11:46 #25

Så takker jeg for hjælpen :)

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

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
Persits.Upload Af bsn i ASP	9	17/09/202611:37	21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
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

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.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS