hive tekst ud med mellemrum

Du kan sikkert blive inspireret af http://www.eksperten.dk/spm/596913

strSQL = "Select * From skema Where telefon = '" & Request.Querystring("id") & "'"
Set rs = DataConn.Execute(strSQL)

Response.write "<table  cellpadding='3' cellspacing='1'  >"
Response.write "<tr><td bgcolor='#cccccc'><B>Sager</B></tr> <tr>"
if rs.bof or rs.eof then
  response.write "<b><font color='#ff0000'>Der er ingen dataoprettet pt.!</b><br><br>"
else
  Do While Not rs.EOF



  Response.write "<tr><td>rs("text1")</td></tr>"

rs.MoveNext
Loop
end if
Response.Write "</table>"

%>

hov
du skal lige rette denne
Response.write "<tr><td bgcolor='#cccccc'><B>Sager</B></tr> <tr>"

til
Response.write "<tr><td bgcolor='#cccccc'><B>Sager</B></tr>"

ikke rigtigt jeg kan ikke få det til at virke ?

  response.write "<b><font color='#ff0000'>Der er ingen instruktører oprettet pt.!</b><br><br>"
else
  Do While Not rs.EOF

Response.write rs("text1").value, vbCrLf, "<br>"))

  Response.write "</td></tr>"

rs.MoveNext
Loop
end if
Response.Write "</table>"


Syntax error, unexpected ")", expecting "Loop "

ja og så
if rs.bof or rs.eof then
  response.write "<b><font color='#ff0000'>Der er ingen dataoprettet pt.!</b><br><br>"

til

if rs.bof or rs.eof then
  response.write "<tr><td><b><font color='#ff0000'>Der er ingen dataoprettet pt.!</b><br><br>"

så tror jeg den er der.........

strSQL = "Select * From skema Where telefon = '" & Request.Querystring("id") & "'"
Set rs = DataConn.Execute(strSQL)

Response.write "<table  cellpadding='3' cellspacing='1'  >"
Response.write "<tr><td bgcolor='#cccccc'><B>Sager</B></tr> <tr>"
if rs.bof or rs.eof then
  response.write "<b><font color='#ff0000'>Der er ingen instruktører oprettet pt.!</b><br><br>"
else
  Do While Not rs.EOF
  Response.write "<tr><td>rs("text1")</td></tr>"

  Response.write "</td></tr>"

rs.MoveNext
Loop
end if
Response.Write "</table>"

Error Type:
Sun ONE ASP VBScript compilation (0x800A03FB)
Syntax error, unexpected "identifier", expecting "Loop "
/360/pis.asp, line 26, column 29

Response.write rs("text1")& vbCrLf & "<br>"

trSQL = "Select * From skema Where telefon = '" & Request.Querystring("id") & "'"
Set rs = DataConn.Execute(strSQL)

Response.write "<table  cellpadding='3' cellspacing='1'  >"
Response.write "<tr><td bgcolor='#cccccc'><B>Sager</B></tr> <tr>"
if rs.bof or rs.eof then
  response.write "<tr><td><b><font color='#ff0000'>Der er ingen dataoprettet pt.!</b><br><br>"


else
  Do While Not rs.EOF
  Response.write "<tr><td>rs("text1")</td></tr>"

  Response.write "</td></tr>"

rs.MoveNext
Loop
end if
Response.Write "</table>"

samme fejl

perfekt igen

Response.write "<tr><td>"&rs("text1")&"</td></tr>"

og godnat :-) 1000 tak

godnat - og tak for point og roser

nogen der kan hjælpe med http://www.eksperten.dk/spm/742998

l_otto: Læs http://www.eksperten.dk/regler.phtml

Det er ikke tilladt at:

[...]

11. [...]

  1. oprette reference/reklame spørgsmål, hvor man kun reklamerer for et tidligere oprettet spørgsmål for at få folk til at hjælpe i det spørgsmål.

sorry :-)