Avatar billede pro Nybegynder
24. marts 2004 - 22:03 Der er 20 kommentarer og
1 løsning

Hvis ingen værdi - brug standard værdi

Hej Eksperter...

Jeg skal bruge en streng der fortæller at hvis der i min access databases kolonne der hedder "billed" ikke står nogen værdi, skal der udskrives "nopic.jpg"!

Hvordan gøres dette? Jeg er ikke en haj til det, så hvis nogen vil skrive det direkte ind i koden ville jeg blive glad.

Her er koden:

<%
if request.querystring("id") = "" then
response.redirect("index.asp")
end if

Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = server.CreateObject("ADODB.Recordset")
DBSti = "DBQ=" & Server.Mappath("mad.mdb")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBSti
sql = "SELECT * FROM opskrifter WHERE ID = " & request.querystring("id")
set record = conn.execute(sql)
ny_visning = record("visninger") + 1
sql2 = "Update opskrifter set visninger = '" & ny_visning & "' where ID = " & record("id") & ""
conn.execute(sql)
%>
Avatar billede eagleeye Praktikant
24. marts 2004 - 22:07 #1
Jeg ved ikke helt hvor du vil havde det ind, men du kan bruge:

if Len("" & record("billed")) = 0 then
  Response.Write "nopic.jpg"
end if
Avatar billede pro Nybegynder
24. marts 2004 - 22:15 #2
Det kan jeg ikke rigtigt få til at virke! Her er hvad der bliver skrevet:
http://www.net-opskrifter.dk/vis.asp?id=260
Avatar billede eagleeye Praktikant
24. marts 2004 - 22:18 #3
hmm hvordan har du fået de sat ind, den påstår der mangler end if?
Avatar billede pro Nybegynder
24. marts 2004 - 22:19 #4
Nu står det sådan her:

<%
if request.querystring("id") = "" then
response.redirect("index.asp")
end if

If Len("" & record("billed")) = 0 then Response.Write "nopic.jpg"
End If

Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = server.CreateObject("ADODB.Recordset")
DBSti = "DBQ=" & Server.Mappath("mad.mdb")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBSti
sql = "SELECT * FROM opskrifter WHERE ID = " & request.querystring("id")
set record = conn.execute(sql)
ny_visning = record("visninger") + 1
sql2 = "Update opskrifter set visninger = '" & ny_visning & "' where ID = " & record("id") & ""
conn.execute(sql)
%>
Avatar billede eagleeye Praktikant
24. marts 2004 - 22:23 #5
Først hvis du skriver det ud i en linje if xx then yyy så skal der ikke være End If
Samt det skal efter du har hendtet fra databasen sådan her:


<%
if request.querystring("id") = "" then
response.redirect("index.asp")
end if

Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = server.CreateObject("ADODB.Recordset")
DBSti = "DBQ=" & Server.Mappath("mad.mdb")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBSti
sql = "SELECT * FROM opskrifter WHERE ID = " & request.querystring("id")
set record = conn.execute(sql)
If Len("" & record("billed")) = 0 then Response.Write "nopic.jpg"

ny_visning = record("visninger") + 1
sql2 = "Update opskrifter set visninger = '" & ny_visning & "' where ID = " & record("id") & ""
conn.execute(sql)
%>
Avatar billede pro Nybegynder
24. marts 2004 - 22:31 #6
Jeg tror jeg forklarer mig forkert eller gør noget forkert! For nu skriver den som du kan se på ovennævnte link "nopic.jpg".

Det der skulle være sket er at det billed der ikke virker, skulle have været skiftet ud med det billed det hedder "nopic.jpg"
Avatar billede eagleeye Praktikant
24. marts 2004 - 22:37 #7
Så der skal gemmes "nopic.jpg" i databasen?
Avatar billede pro Nybegynder
24. marts 2004 - 22:40 #8
Nej det foregår på den måde at når en opskrift bliver tilføjet står "billed" rubrikken tom - den skal jeg indskrive manuelt.

Hvis jeg så IKKE har indskrevet noget, skal den bruge det billed der hedder nopic.jpg.

Der hvor billedet bliver vist står der <%= record("billed") %> hvis det hjælper ??
Avatar billede pro Nybegynder
24. marts 2004 - 22:45 #9
Nu sidder jeg lige og forestiller mig at der hvor der står <%= record("billed") %> skal der måske stå noget i retningen af <%= If Len("" & record("billed")) = 0 then Response.Write "nopic.jpg" else write record("billed") %>

Jeg ved strengen ikke passer men du kan måske fortælle mig hvordan den skal stykkes sammen??
Avatar billede eagleeye Praktikant
24. marts 2004 - 22:48 #10
ok når ja der skal også lige <img> tag omkring

<%
If Len("" & record("billed")) = 0 then
  Response.Write "<img src=""nopic.jpg"">"
else
  Response.Write "<img src=""" & record("billed") & """>"
End if
%>
Avatar billede pro Nybegynder
24. marts 2004 - 22:55 #11
Så får jeg en invalid caracter!?

Samme link...
Avatar billede eagleeye Praktikant
24. marts 2004 - 22:59 #12
hmm prøv at vise koden igen det forstår jeg ikke??
Avatar billede pro Nybegynder
24. marts 2004 - 23:00 #13
Dette er FØR <html> tagget:

<%
if request.querystring("id") = "" then
response.redirect("index.asp")
end if

Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = server.CreateObject("ADODB.Recordset")
DBSti = "DBQ=" & Server.Mappath("mad.mdb")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBSti
sql = "SELECT * FROM opskrifter WHERE ID = " & request.querystring("id")
set record = conn.execute(sql)

ny_visning = record("visninger") + 1
sql2 = "Update opskrifter set visninger = '" & ny_visning & "' where ID = " & record("id") & ""
conn.execute(sql)
%>

Dette er fra hvor billedet skulle udskrives:

<%
        If Len("" & record("billed")) = 0 then
          Response.Write "<img src=""nopic.jpg"">"
        else
          Response.Write "<img src=""" & record("billed") & """>"
        End if
        %>
Avatar billede eagleeye Praktikant
24. marts 2004 - 23:09 #14
Det kan jeg ikke se noget galt i...
Det forstår jeg ikke helt hvad der går galt.
Avatar billede pro Nybegynder
24. marts 2004 - 23:23 #15
Ja nu har jeg fået det til at virke på de opskrifter hvor rubrikken er TOM (der måtte ikke være mellemrum foran Response...)

Men nu virker der ikke på de opskrifter hvor rubrikken IKKE er tom! Som på f.eks. http://www.net-opskrifter.dk/vis.asp?id=207
Avatar billede eagleeye Praktikant
24. marts 2004 - 23:25 #16
Der mangler et " i den linje før  & record("billede")
Avatar billede eagleeye Praktikant
24. marts 2004 - 23:29 #17
jeps sådan, men nu kommer der et findes ikke ikon frem. Det kan være pga. du skal havde angivet stien til billedet hvis ikke det ligger i samme folder som .asp filen?
Avatar billede pro Nybegynder
24. marts 2004 - 23:30 #18
Det forstår jeg ikke...?? Sådan her??

        <%
        If Len("" & record("billed")) = 0 then
        Response.Write "<img border='1' src=""images/nopic.jpg"">"
        else
        Response.Write "<img border='1' src="""" & record("billed") & """>"
        End if
        %>

Eller hvordan??
Avatar billede eagleeye Praktikant
24. marts 2004 - 23:30 #19
det var rigtig som du havde lavet det :)

Response.Write "<img border='1' src=""" & record("billed") & """>"


for at udksrive en " skal man skrive to "" efter hinanden
Avatar billede pro Nybegynder
24. marts 2004 - 23:33 #20
AAAHHHH.... NU virker det :-)

Jeg havde glemt at skrive ""images/" (DOooh)

Mange tak for hjælpen, det havde jeg aldrig fundet ud af uden din hjælp! :-)

Smid lige et svar! Og fortsat god aften/nat...
Avatar billede eagleeye Praktikant
24. marts 2004 - 23:34 #21
Ok her et svar :)
Jo tak og godnat til dig.
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

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