response.write

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."

Hvad får du ved det her:

if rs("bjarne") <> "" then
response.write rs("bjarne")
End if

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

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

Flyt End if ned på en linie for sig selv.

det har jeg gjort nu, og så er der ingen fejl - men samme resultat som jeg startede med - indholdet af rs("bjarne") udskrives ikke :-(

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

Prøvede du -master-d- 's forslag kl. 16:01:14 ?

how... er feltet "bjarne" et tekstfelt?? Hvis det er det skal du tage det ud før de andre felter i recorden


/J

-master-d- 16.01.14 giver flg. fejl: Unterminated string constant, den kan ses her:
http://mail2.hag-gym.dk:8090/martin/respons/test.asp?arbejdsid=1

Prøv lige det her:

<%if rs("bjarne") <> "" then%>
<b>Bjarnes computer:</b><br><%=rs("bjarne")%>
<%End if%>

just4fun 16.21.01 giver expected end of statement:
http://mail2.hag-gym.dk:8090/martin/respons/test2.asp?arbejdsid=1

Prøv den her

<%
  tmpBjarne = rs("bjarne")
  if tmpBjarne <> "" then
%>
  <b>Bjarnes computer:</b><br>
  <%=tmpBjarne%>
<%
  End if
%>

skovtrold 11.25.13 giver expected statement:
http://mail2.hag-gym.dk:8090/martin/respons/test3.asp?arbejdsid=1

Du skal ikke starte med <% hvis du har gjort det een gang inden. Så fjern <%

eller

<%
tmpBjarne = rs("bjarne")

If tmpBjarne <> null then
  response.write("<b>Bjarnes computer:</b>")
  response.write("<br>")
  response.write(tmpBjarne)
End if
%>

a-torsten 11.30.01 giver samme fejl som forrige, expected statement: http://mail2.hag-gym.dk:8090/martin/respons/test4.asp?arbejdsid=1

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)

Fjern <%

<%
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

%>

if rs("bjarne") <> "" then%>
<b>Bjarnes computer:</b><br><%=rs("bjarne")%>
<%End if%>

a-torsten 11.34.20 gav bare en blank side ?!?
http://mail2.hag-gym.dk:8090/martin/respons/test5.asp?arbejdsid=1

a-torsten 11.38.24 gav en næsten blank side, kun linien med datoerne blev udskrevet:
http://mail2.hag-gym.dk:8090/martin/respons/test5.asp?arbejdsid=1
og jeg er sikker på at feltet ikke er tomt!

<%
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

%>

skovtrold 11.38.36 skriver Bjarnes computer, men stadig ikke indholdet af rs("bjarne")
http://mail2.hag-gym.dk:8090/martin/respons/test6.asp?arbejdsid=1

så lykkedes det, men a-torsten 11.46.23:
http://mail2.hag-gym.dk:8090/martin/respons/test7.asp?arbejdsid=1
...Så skal jeg "bare" til at fordele pointene - det bliver ikke let :-)

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
%>

takker

Fair fordeling - og tak :-)

Takker :o)