--- title: "Response.Write ??" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/14263-response-write" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "GbgKalle" published: "2002-02-07T12:46:00.000Z" updated: "2002-02-07T15:24:00.000Z" replies: 14 views: 286 page: 1 pages: 1 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/14263-response-write" --- # Response.Write ?? ## #1 — GbgKalle, 2002-02-07T12:46Z .. nybörjarfråga .. vad är fel i koden ? ``` <% If Request.Form("sokord") <> "" Then Response.Write "Din sökning på " & Request.Form("sokord") & " gav följande träffar.

" & vbCrLf SQL = "Select * from Q_FORELASARE Where NAMN Like '%" & Request.Form("sokord") & "%' " SET RS = Con.Execute(SQL) While Not RS.EOF Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "

" Response.Write "
" Response.Write "		" Response.Write "

<%=RS("NAMN")%>
" Response.Write "<%=RS("BEFATTNING")%>

" Response.Write "

Föreläsning 1 - Föreläsning 2 - Föreläsning 3

" Response.Write "
" RS.MoveNext Wend RS.Close Set RS = Nothing End If %> ``` .. sliter mitt hår just nu .. =) // GbgKalle Permalänk: https://www.webforum.nu/p/14263 ## #2 — Ekström, 2002-02-07T12:48Z Vad jag vet så kan du inte ha " i Response.Write-strängar. Du får använda antingen ' eller inget alls. Är det något annat fel? Det vore lättare om du skrev vad det blir för felmeddelande Permalänk: https://www.webforum.nu/p/309703 ## #3 — GbgKalle, 2002-02-07T12:53Z .. nej det funkade inte, får meddelande ``` Kompileringsfel i Microsoft VBScript (0x800A03EA) Syntaxfel /fb/forelasare.asp, line 53, column 15 Response.Write --------------^ ``` .. hmm .. // GbgKalle Permalänk: https://www.webforum.nu/p/309704 ## #4 — Ekström, 2002-02-07T12:57Z Nu var jag otydlig. Koden på den raden ska se ut såhär: ``` Response.Write("
") ``` Alltså, det är " i HTML-koden som ska bort Permalänk: https://www.webforum.nu/p/309705 ## #5 — saw, 2002-02-07T12:58Z Nej det är det inget fel på, men för att optimera koden bör du istället skriva så här: ``` Response.Write ""&_ "

"&_ "
"&_ osv ``` Jag tror istället att dit fel ligger här: ``` SQL = "Select * from Q_FORELASARE Where NAMN Like '%" & Request.Form("sokord") & "%' " ``` Borde istället vara: ``` SQL = "Select * from Q_FORELASARE Where NAMN Like % '" & Request.Form("sokord") & "' " ``` Skulle tro att det var felet, när man nu måste gissa i frånvaro av error medellande :) Permalänk: https://www.webforum.nu/p/309706 ## #6 — hopparn, 2002-02-07T13:18Z trodde nog att en like- sats skulle skrivas så här: ``` strSQL="SELECT namn FROM tabell WHERE namn LIKE '%"& request("namn")&"%'" ``` (under förutsättning att du vill ha poster som stämmer ungefär med kriteriet, men som kan skilja sig med bokstäver både före och efter kriterie, det är ju det '% samt %' gör) När man sen skriver ut html med response.write kan man ju skrriva det såhäringa: ``` response.write "" ``` dvs dubbla alla citat tecken för att få ut enkla på sidan då koden är processad MVH patrick red: såg bättre ut med kodtaggar =) Permalänk: https://www.webforum.nu/p/309707 ## #7 — jboy_87, 2002-02-07T13:29Z ``` <% If Request.Form("sokord") <> "" Then Response.Write "Din sökning på " & Request.Form("sokord") & " gav följande träffar.

" & vbCrLf strSQL="SELECT namn FROM tabell WHERE namn LIKE '%"& request("namn")&"%'" SET RS = Con.Execute(SQL) While Not RS.EOF Response.Write "
" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "

" Response.Write "
" Response.Write "		" Response.Write "

<%=RS("NAMN")%>
" Response.Write "<%=RS("BEFATTNING")%>

" Response.Write "

Föreläsning 1 - Föreläsning 2 - Föreläsning 3

" Response.Write "
" RS.MoveNext Wend RS.Close Set RS = Nothing End If %> ``` Permalänk: https://www.webforum.nu/p/309708 ## #8 — GbgKalle, 2002-02-07T14:52Z .. hej där jboy_87, när jag klistar in din kod, så får jag resultatet ``` Kompileringsfel i Microsoft VBScript (0x800A0401) Slut på programsats förväntas. /fb/forelasare.asp, line 58, column 71 Response.Write "

<%=RS("NAMN") -------------------------------------------------- --------------------^ ``` .. ??? // GbgKalle \[Redigerat av GbgKalle den 07 feb 2002\] \[Redigerat av GbgKalle den 07 feb 2002\] \[Redigerat av GbgKalle den 07 feb 2002\] Permalänk: https://www.webforum.nu/p/309709 ## #9 — LarsG, 2002-02-07T14:54Z ``` Response.Write "

" & RS("NAMN") & ">
" ``` Permalänk: https://www.webforum.nu/p/309710 ## #10 — GbgKalle, 2002-02-07T15:04Z .. hej där LarsG, det blev bra .. men nästa rad sa så här: ``` /fb/forelasare.asp, line 59, column 21 Response.Write " RS("BEFATTNING") & ">

" --------------------^ ``` .. ?? // GbgKalle Permalänk: https://www.webforum.nu/p/309711 ## #11 — LarsG, 2002-02-07T15:08Z ``` Response.Write RS("BEFATTNING") & ">

" ``` Permalänk: https://www.webforum.nu/p/309712 ## #12 — doggelito, 2002-02-07T15:08Z \------------------ *Motto: Flest If-taggar vinner!* \[Redigerat av doggelito den 07 feb 2002\] Permalänk: https://www.webforum.nu/p/309713 ## #13 — GbgKalle, 2002-02-07T15:16Z .. hej där igen LarsG, .. funkade bra sidan syns nu, men när jag söker så kommer följande kod upp: ``` Microsoft OLE DB Provider for ODBC Drivers (0x80040E0C) Det angavs inte någon kommandotext för kommandoobjektet. /fb/forelasare.asp, line 50 ``` Jag skickar med koden till hela sidan .. hmm .. ``` <% Dim Con Dim SQL Dim RS Set Con = Server.CreateObject("ADODB.Connection") Con.Open "DBQ=" & Server.MapPath("data/data.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};" %> Untitled Document

Föreläsarna

Sök efter föreläsare:
 
Klicka här för att visa alla föreläsare

<% If Request.Form("sokord") <> "" Then Response.Write "Din sökning på " & Request.Form("sokord") & " gav följande träffar.

" & vbCrLf strSQL="SELECT namn FROM tabell WHERE namn LIKE '%"& request("namn")&"%'" SET RS = Con.Execute(SQL) While Not RS.EOF Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "

" Response.Write "
" Response.Write "		" Response.Write "

" & RS("NAMN") & ">
" Response.Write RS("BEFATTNING") & ">

" Response.Write "

Föreläsning 1 - Föreläsning 2 - Föreläsning 3

" Response.Write "
" RS.MoveNext Wend RS.Close Set RS = Nothing End If %>

<% Con.Close Set Con = Nothing %> ``` .. det är säkert ngn liten grej jag missat .. hmm .. så e de å va "newbie" .. =) // GbgKalle Permalänk: https://www.webforum.nu/p/309714 ## #14 — doggelito, 2002-02-07T15:19Z ändra denna: SET RS = Con.Execute(SQL) till SET RS = Con.Execute(strSQL) Permalänk: https://www.webforum.nu/p/309715 ## #15 — GbgKalle, 2002-02-07T15:24Z .. tack ALLA goa göbbar .. nu funkar det .. =) // GbgKalle .. "en glad sådan nu" .. =) Permalänk: https://www.webforum.nu/p/309716 --- Tråden på webben: https://www.webforum.nu/amne/asp/14263-response-write