Response.Write ??

14 svar · 250 visningar · startad av GbgKalle 7 feb. 2002

GbgKalleMedlem sedan jan. 200217 inlägg

7 feb. 2002 12:46#1

.. nybörjarfråga .. vad är fel i 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

	  	SQL = "Select * from Q_FORELASARE Where NAMN Like '%" & Request.Form("sokord") & "%' "
	  	SET RS = Con.Execute(SQL)
	  	While Not RS.EOF
        Response.Write "<table width="100%" border="0" cellspacing="0" cellpadding="0">"
        Response.Write "<tr>"
        Response.Write "<td width="70"><img src="bilder/skalle.jpg" width="63" height="70" border="1"><br>"
        Response.Write "<br>"
        Response.Write "</td>"
        Response.Write "<td align="left" valign="top" class="br&ouml;dtext">"
        Response.Write "<p><a href="forelasarna2.htm" target="main"><%=RS("NAMN")%></a><br>"
        Response.Write "<%=RS("BEFATTNING")%></p>"
        Response.Write "<p><a href="forelasningar2.htm" target="main">F&ouml;rel&auml;sning 1</a> - F&ouml;rel&auml;sning 2 - F&ouml;rel&auml;sning 3</p>"
        Response.Write "</td>"
        Response.Write "</tr>"
        Response.Write "</table>"
	  	RS.MoveNext
	  	Wend
	  	RS.Close
	  	Set RS = Nothing
	  End If
%>

.. sliter mitt hår just nu .. =)

// GbgKalle

EkströmMedlem sedan feb. 20021 690 inlägg

7 feb. 2002 12:48#2

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
------------------
Jocke Ekström
073 - 04 54 903

[Redigerat av Ekström den 07 feb 2002]

GbgKalleMedlem sedan jan. 200217 inlägg

7 feb. 2002 12:53#3

.. nej det funkade inte, får meddelande

Kompileringsfel i Microsoft VBScript (0x800A03EA)
Syntaxfel
/fb/forelasare.asp, line 53, column 15
Response.Write <table width="100%" border="0" cellspacing="0" cellpadding="0">
--------------^

.. hmm ..

// GbgKalle

EkströmMedlem sedan feb. 20021 690 inlägg

7 feb. 2002 12:57#4

Nu var jag otydlig. Koden på den raden ska se ut såhär:

Response.Write("<table width=100% border=0 cellspacing=0 cellpadding=0>")

Alltså, det är " i HTML-koden som ska bort

------------------
Jocke Ekström
073 - 04 54 903

sawMedlem sedan mars 20011 883 inlägg

7 feb. 2002 12:58#5

Nej det är det inget fel på, men för att optimera koden bör du istället skriva så här:

Response.Write "<tr>"&_
"<td width="70"><img src="bilder/skalle.jpg" width="63" height="70" border="1"><br>"&_
 "<br>"&_
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 :)

------------------
saw
__
www.mp3.com/saw_songer
__

hopparnMedlem sedan nov. 20011 043 inlägg

7 feb. 2002 13:18#6

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 "<table border=""0"" width=""250"">"

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 =)
------------------
Rammstein rules - Du riechst so gut

[Redigerat av hopparn den 07 feb 2002]

jboy_87Medlem sedan aug. 20011 105 inlägg

7 feb. 2002 13:29#7

<%
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 namn FROM tabell WHERE namn LIKE '%"& request("namn")&"%'"
SET RS = Con.Execute(SQL)
While Not RS.EOF
Response.Write "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
Response.Write "<tr>"
Response.Write "<td width=""70""><img src=""bilder/skalle.jpg"" width=""63"" height=""70"" border=""1""><br>"
Response.Write "<br>"
Response.Write "</td>"
Response.Write "<td align=""left"" valign=""top"" class=""brödtext"">"
Response.Write "<p><a href=""forelasarna2.htm"" target=""main""><%=RS("NAMN")%></a><br>"
Response.Write "<%=RS("BEFATTNING")%></p>"
Response.Write "<p><a href=""forelasningar2.htm"" target=""main"">Föreläsning 1</a> - Föreläsning 2 - Föreläsning 3</p>"
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "</table>"
RS.MoveNext
Wend
RS.Close
Set RS = Nothing
End If
%>

------------------
ASP är bäst fuck the rest!!!

GbgKalleMedlem sedan jan. 200217 inlägg

7 feb. 2002 14:52#8

.. 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 "<p><a href=""forelasarna2.htm""
target=""main""><%=RS("NAMN")
--------------------------------------------------
--------------------^

.. ???

// GbgKalle

[Redigerat av GbgKalle den 07 feb 2002]

LarsGMedlem sedan dec. 200012 465 inlägg

7 feb. 2002 14:54#9

Response.Write "<p><a href=""forelasarna2.htm"" target=""main"">" & RS("NAMN") & "></a><br>"

------------------
essentitia preter non sans multiplicandum

GbgKalleMedlem sedan jan. 200217 inlägg

7 feb. 2002 15:04#10

.. 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") & "></p>"
--------------------^

.. ??

// GbgKalle

LarsGMedlem sedan dec. 200012 465 inlägg

7 feb. 2002 15:08#11

Response.Write RS("BEFATTNING") & "></p>"

------------------
essentitia preter non sans multiplicandum

doggelitoMedlem sedan juni 20003 100 inlägg

7 feb. 2002 15:08#12

------------------
Motto: Flest If-taggar vinner!

[Redigerat av doggelito den 07 feb 2002]

GbgKalleMedlem sedan jan. 200217 inlägg

7 feb. 2002 15:16#13

.. 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)};"
%>
<html>
<!-- #BeginTemplate "/Templates/start.dwt" -->
<head>
<!-- #BeginEditable "doctitle" -->
<title>Untitled Document</title>
<!-- #EndEditable -->
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="FB.css" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="24" topmargin="24" marginwidth="0" marginheight="0">
<table width="550" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td align="left" valign="top"><!-- #BeginEditable "text" -->
      <form name="sokord" method="post" action="forelasare.asp">
        <p class="rubrik">F&ouml;rel&auml;sarna</p>
        <table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr align="left" valign="middle">
            <td class="br&ouml;dtext" width="277">S&ouml;k efter f&ouml;rel&auml;sare:
              <br>
              <input type="text" name="sokord">
              <input type="submit" name="Skicka" value="S&ouml;k!">
            </td>
            <td width="273" class="br&ouml;dtext">&nbsp; </td>
          </tr>
          <tr align="left" valign="middle">
            <td colspan="2" class="br&ouml;dtext"><img src="bilder/genomskinlig.gif" width="5" height="5"></td>
          </tr>
          <tr align="left" valign="middle">
            <td class="br&ouml;dtext" colspan="2"><a href="forelasarna1.htm" target="main">Klicka
              h&auml;r f&ouml;r att visa alla f&ouml;rel&auml;sare</a></td>
          </tr>
          <tr align="left" valign="middle">
            <td class="br&ouml;dtext" colspan="2"><img src="bilder/genomskinlig.gif" width="10" height="10"></td>
          </tr>
        </table>
        </form>
      <p class="br&ouml;dtext">
<%
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 namn FROM tabell WHERE namn LIKE '%"& request("namn")&"%'"
SET RS = Con.Execute(SQL)
While Not RS.EOF
Response.Write "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
Response.Write "<tr>"
Response.Write "<td width=""70""><img src=""bilder/skalle.jpg"" width=""63"" height=""70"" border=""1""><br>"
Response.Write "<br>"
Response.Write "</td>"
Response.Write "<td align=""left"" valign=""top"" class=""brödtext"">"
Response.Write "<p><a href=""forelasarna2.htm"" target=""main"">" & RS("NAMN") & "></a><br>"
Response.Write RS("BEFATTNING") & "></p>"
Response.Write "<p><a href=""forelasningar2.htm"" target=""main"">Föreläsning 1</a> - Föreläsning 2 - Föreläsning 3</p>"
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "</table>"
RS.MoveNext
Wend
RS.Close
Set RS = Nothing
End If
%>

</p>
      <!-- #EndEditable --></td>
  </tr>
</table>
</body>
<!-- #EndTemplate -->
</html>
<%
Con.Close
Set Con = Nothing
%>

.. det är säkert ngn liten grej jag missat .. hmm .. så e de å va "newbie" .. =)

// GbgKalle

doggelitoMedlem sedan juni 20003 100 inlägg

7 feb. 2002 15:19#14

ändra denna:
SET RS = Con.Execute(SQL)
till
SET RS = Con.Execute(strSQL)

------------------
Motto: Flest If-taggar vinner!

GbgKalleMedlem sedan jan. 200217 inlägg

7 feb. 2002 15:24#15

.. tack ALLA goa göbbar .. nu funkar det .. =)

// GbgKalle .. "en glad sådan nu" .. =)