Response.Write PROBLEM!

Tjena,

Vad är fel i koden nedan, den vägrar skriva ut följande:

Response.Write "<td class=""br&ouml;dtext""><span class=""br&ouml;dtext"">- " & RS("underrubrik") & "</span></td>"

och

Response.Write "<td class=""br&ouml;dtext"">" & RS("KORTTEXT") & "</td>"

Här kommer hela koden:

<%
If Request.Form("sokord") <> "" Then
Response.Write "Din sökning på <b>" & Request.Form("sokord") & "</b> gav följande träffar.<br><br>" & vbCrLf
strSQL="SELECT * FROM FORELASNING WHERE RUBRIK LIKE '%"& request.FORM("sokord")&"%'"
SET RS = Con.Execute(strSQL)
While Not RS.EOF
Response.Write "<tr align=""left"" valign=""middle"">"
Response.Write "<td class=""br&ouml;dtext""><a href=""forelasningar_info.asp?nr=" & Rs("nr") & "&fnamn=" & Rs("fnamn") & "&enamn=" & Rs("enamn") & "&rubrik=" & Rs("rubrik") & "&underrubrik=" & Rs("underrubrik") & "&korttext=" & Rs("korttext") & "&langtext=" & Rs("langtext") & "&pdf=" & Rs("pdf") & """ target=""main"" class=""Fetrubrik"">" & RS("RUBRIK") & "</a></td>"
Response.Write "</tr>"
Response.Write "<tr align=""left"" valign=""middle"">"
Response.Write "<td class=""br&ouml;dtext""><span class=""br&ouml;dtext"">- </span></td>"
Response.Write "</tr>"
Response.Write "<tr align=""left"" valign=""middle"">"
Response.Write "<td class=""br&ouml;dtext""><img src=""bilder/genomskinlig.gif"" width=""10"" height=""10""></td>"
Response.Write "</tr>"
Response.Write "<tr align=""left"" valign=""middle"">"
Response.Write "<td class=""br&ouml;dtext"">" & RS("KORTTEXT") & "</td>"
Response.Write "</tr>"
Response.Write "<tr align=""left"" valign=""middle"">"
Response.Write "<td class=""br&ouml;dtext""><br><br></td>"
Response.Write "</tr>"
RS.MoveNext
Wend
RS.Close
Set RS = Nothing
End If
%>

Hoppas ngn kan hjälpa mig med detta .. :q

Välkommen till WF

Vad händer om du bara skriver: Response.Write RS("KORTTEXT")?

MVH Jesper

Hej Jesper,

Tack för välkomnandet, känns trevligt .. :e

Det händer ingenting om jag gör det ..

Här är sidan upplagd på webben http://www.startdirekt.com/fb/forelasningar.asp

Om du går till lista alla så ser du hur det ska vara listat förutom fontformateringen ..

SQL frågan är inte riktigt rätt och inte heller recordset...

<%
If Request.Form("sokord") <> "" Then
Response.Write "Din sökning på <b>" & Request.Form("sokord") & "</b> gav följande träffar.<br><br>" & vbCrLf
strSQL="SELECT * FROM FORELASNING WHERE RUBRIK LIKE '%"& request.FORM("sokord")&"%'"
RS.OPEN strSQL, CON
While Not RS.EOF
Response.Write "<tr align=""left"" valign=""middle"">"
Response.Write "<td class=""brödtext""><a href=""forelasningar_info.asp?nr=" & Rs("nr") & "&fnamn=" & Rs("fnamn") & "&enamn=" & Rs("enamn") & "&rubrik=" & Rs("rubrik") & "&underrubrik=" & Rs("underrubrik") & "&korttext=" & Rs("korttext") & "&langtext=" & Rs("langtext") & "&pdf=" & Rs("pdf") & """ target=""main"" class=""Fetrubrik"">" & RS("RUBRIK") & "</a></td>"
Response.Write "</tr>"
Response.Write "<tr align=""left"" valign=""middle"">"
Response.Write "<td class=""brödtext""><span class=""brödtext"">- </span></td>"
Response.Write "</tr>"
Response.Write "<tr align=""left"" valign=""middle"">"
Response.Write "<td class=""brödtext""><img src=""bilder/genomskinlig.gif"" width=""10"" height=""10""></td>"
Response.Write "</tr>"
Response.Write "<tr align=""left"" valign=""middle"">"
Response.Write "<td class=""brödtext"">" & RS("KORTTEXT") & "</td>"
Response.Write "</tr>"
Response.Write "<tr align=""left"" valign=""middle"">"
Response.Write "<td class=""brödtext""><br><br></td>"
Response.Write "</tr>"
RS.MoveNext
Wend
RS.Close
Set RS = Nothing
End If
%>

DÅ måste du givetvis också ha ett recordset som heter RS

Hej där Rinaldo,

Recordset är ju satt till SET RS = Con.Execute(strSQL) så det finns ju annars hade ju inte rubriken skrivits ut ..

Jag testade den kod du gjort och den brakade ihop totalt .. så felet är fortfarande olöst ..

Jaha,,, jag missuppfattade din kod hellt... då kan man börja från början.

Är det bara dessa två fält som inte skrivs ut? Skrivs dom andra ut?

Har du med:
Set Con = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")?

Hej igen ALLA =)

"Rinaldo"

Ja, allt annat skrivs ut.

"Jesper"

Så här ser den kopplingen ut:

<%
Dim Con
Dim SQL
Dim RS

Set Con = Server.CreateObject("ADODB.Connection")
Con.Open "DBQ=" & Server.MapPath("admin/db/data.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"

%>

Hej igen,

Ni kan kika på http://www.startdirekt.com/fb så ser ni vad som är utskrivet under "föreläsning" när ni söker på t.ex. % ..

Har du med detta till ditt recset?:
Set Rs = Server.CreateObject("ADODB.Recordset")

Hej Jesper,

Ja, som du ser i första inlägget med kod så är det

SET RS = Con.Execute(strSQL)

som är inlaggt ..

Jag har även en annan sida som heter forelasare.asp som är uppbyggd på samma kod och som funkar perfekt .. skumt värre ..

Fälten som inte visas är av typen PM / Memo, eller hur?

Det ser ut som att @nders tar vid, då kommer saken snart att vara "biff"!

Själv lämnar jag "walk over"

MVH Jesper T

Hej @nders,

Nej enda fältet som jag gjort till memo/pm är ett fält som heter "beskrivning" .. alla andra fält är rena textfält ..

.. det verkar som om raden:

Response.Write "<td class=""brödtext""><a href=""forelasningar_info.asp?nr .... osv ...

Blockerar de andra rs utskrifterna .. hmm ..

Kan man lägga in ytterligare ett rs ? typ rs2 för det underliggande värdena .. ?

Då måste du även göra en till SQL fråga då det är i det andra Rs som infon finns...
Jag hittar inget fel på den långa raden...

.. nej de e inge fel på den långa raden, men det verkar ändå som den blockerar alla rs förfrågningar under i samma loop ..

.. jag tog bort rs frågan korttext i den långa raden och då kom värdet fram i den undre rs frågan .. skumt ..

.. hur gör man en ny sql fråga i samma loop .. har aldrig gjort det ..

jaha... oj... du måste köra en <%loop%>
och en <%rs.movefirst%> innan du kan fråga efter samma fält två gånger...

Testa lägg in det så ska det nog fungera...

Eller så löser du det så att du lägger de värden du använder 2 gånger i varibler för värdet och använder dem istället...

Hej Rinaldo,

.. ok, nu tar vi det vääääldigt sakta och förklarande en gång till .. är ingen superprogrammerare utan har snarare väldigt med "bas" kunskaper om detta med asp .. kan du utveckla dina två senaste inlägg lite .. fattar bara 15% av det .. :e