27. juni 2002 - 15:37
Der er
35 kommentarer og 3 løsninger
response.write
Hej med jer, I en access database har jeg et felt der hedder bjarne, men hvis jeg skriver flg. får jeg ikke det output jeg gerne vil have: <br> if rs("bjarne") <> "" then response.write "<b>Bjarnes computer:</b><br>" & rs("bjarne") <br> Feltet "bjarne" er ikke tomt, men det eneste der bliver udskrevet er "Bjarnes computer:" og det er det jo ikke meget ved...
Annonceindlæg fra Trustworks
Få success med integrationer!
Behovet for dataudveksling stiger dramatisk. Artiklen belyser tre simple trin, som sikrer succes med udvikling og forvaltning af integrationer.
17. januar 2024
Har du kun een række i databasen?
Prøv lige med : response.write "<b>Bjarnes computer:</b><br>" & rs("bjarne") & " <br>"
nej men det er kun én række der er trukket ud (via et id numer)
-master-d- >> ja det giver det rigtige, men så får jeg ikke testet på om cellen er tom :-(
if rs("bjarne") <> "" then response.write "<b>Bjarnes computer:</b><br>" & rs("bjarne") End if
skovtrold>> beklager indholdet af "bjarne" bliver stadig ikke udskrevet :-(
Den her: if rs("bjarne") <> "" then response.write "<b>Bjarnes computer:</b><br>" & rs("bjarne") & " End if
skoctrold>> unterminated string constant - der må mangle en " et sted...
ja ja det var jo også kun din response,write sætning jeg rettede, sådan her if rs("bjarne") <> "" Then response.write "<b>Bjarnes computer:</b><br>" & rs("bjarne") & " <br>" Else Response.Write "feltet er tomt."
27. juni 2002 - 16:01
#10
Hvad får du ved det her: if rs("bjarne") <> "" then response.write rs("bjarne") End if
27. juni 2002 - 16:03
#11
Jeg forstår nu ikke hvorfor nedenstående ikke virker.... if rs("bjarne") <> "" then response.write "<b>Bjarnes computer:</b><br>" & rs("bjarne") End if
27. juni 2002 - 16:07
#12
Jeg ved heller ikke hvorfor, koden er som flg. :
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("respons.mdb")
Conn.Open DSN
strSQL ="Select * from respons where arbejdsid = " & Request.Querystring("arbejdsid") & " "
Set rs = Conn.Execute(strSQL)
Response.Write "<h1>" & "Den " & rs("dato") & " fra " & rs("start") & " til " & rs("slut") & "</h1>"
if rs("bjarne") <> "" then
response.write "<b>Bjarnes computer:</b><br>" & rs("bjarne") End if
%>
fejlen kan ses her:
http://mail2.hag-gym.dk:8090/martin/respons/test.asp
27. juni 2002 - 16:08
#13
Flyt End if ned på en linie for sig selv.
27. juni 2002 - 16:11
#14
det har jeg gjort nu, og så er der ingen fejl - men samme resultat som jeg startede med - indholdet af rs("bjarne") udskrives ikke :-(
27. juni 2002 - 16:21
#15
Prøv med navn = trim(replace(rs("bjarne").value, chr(13), "<br>")) if navn <> "" then response.write "<b>Bjarnes computer:</b><br>" & navn) End if
27. juni 2002 - 16:21
#16
Prøvede du -master-d- 's forslag kl. 16:01:14 ?
27. juni 2002 - 16:26
#17
how... er feltet "bjarne" et tekstfelt?? Hvis det er det skal du tage det ud før de andre felter i recorden /J
28. juni 2002 - 11:28
#19
Prøv lige det her: <%if rs("bjarne") <> "" then%> <b>Bjarnes computer:</b><br><%=rs("bjarne")%> <%End if%>
28. juni 2002 - 11:29
#20
28. juni 2002 - 11:30
#21
Prøv den her <% tmpBjarne = rs("bjarne") if tmpBjarne <> "" then %> <b>Bjarnes computer:</b><br> <%=tmpBjarne%> <% End if %>
28. juni 2002 - 11:32
#22
28. juni 2002 - 11:34
#23
Du skal ikke starte med <% hvis du har gjort det een gang inden. Så fjern <%
28. juni 2002 - 11:34
#24
eller <% tmpBjarne = rs("bjarne") If tmpBjarne <> null then response.write("<b>Bjarnes computer:</b>") response.write("<br>") response.write(tmpBjarne) End if %>
28. juni 2002 - 11:36
#26
I access databasen er feltet valgt som et "notatfelt" - har det noget at sige. (det er ikke et tekstfelt da der ikke var plads til mere end 100 tegn)
28. juni 2002 - 11:36
#27
Fjern <%
28. juni 2002 - 11:38
#28
<% Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("respons.mdb") Conn.Open DSN SQL ="Select * from respons where arbejdsid = " & Request.Querystring("arbejdsid") & " " Set rs = Conn.Execute(SQL) Response.Write "<h1>" & "Den " & rs("dato") & " fra " & rs("start") & " til " & rs("slut") & "</h1>" tmpBjarne = rs("bjarne") If tmpBjarne <> null then response.write("<b>Bjarnes computer:</b>") response.write("<br>") response.write(tmpBjarne) End if %>
28. juni 2002 - 11:38
#29
if rs("bjarne") <> "" then%> <b>Bjarnes computer:</b><br><%=rs("bjarne")%> <%End if%>
28. juni 2002 - 11:41
#30
28. juni 2002 - 11:46
#32
<% Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("respons.mdb") Conn.Open DSN SQL ="Select * from respons where arbejdsid = " & Request.Querystring("arbejdsid") Set rs = Conn.Execute(SQL) Response.Write "<h1>" & "Den " & rs("dato") & " fra " & rs("start") & " til " & rs("slut") & "</h1>" tmpBjarne = rs("bjarne") If tmpBjarne <> "" then response.write("<b>Bjarnes computer:</b>") response.write("<br>") response.write(tmpBjarne) End if %>
28. juni 2002 - 11:57
#35
Du får lige en lidt pænere kode.... <% Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("respons.mdb") Conn.Open DSN aid = request.querystring("arbejdsid") SQL ="SELECT * FROM respons WHERE arbejdsid = " & aid Set rs = Conn.Execute(SQL) response.Write("<h1>") response.write("Den " & rs("dato")) response.write(" fra " & rs("start")) response.write(" til " & rs("slut")) response.write("</h1>") tmpBjarne = rs("bjarne") If tmpBjarne <> "" then response.write("<b>Bjarnes computer:</b>") response.write("<br>") response.write(tmpBjarne) End if %>
28. juni 2002 - 11:58
#36
takker
28. juni 2002 - 11:58
#37
Fair fordeling - og tak :-)
28. juni 2002 - 12:01
#38
Takker :o)