Indsæt if sætning

Har du prøvet at udskrive, og kontrollere at adminIP1 eller adminIP2 passer?

PS, du kan lave det hele på 1 linie:

If Request.Server... = ... or Request.Server = ... then response.write ...

og du behøver ikke paranteser ved start og slut "If (.."..

Thesurfer var ikke så meget med det bare mere hvor præcist den skal indsættes i koden for jeg ik får fejl, har virket i en anden kode med den if sætning.

Ved fejlmeddelelser, skriv da altid:

* fejlmeddelelsen (kopier og indsæt)
* linien der er fejl i
* hvad der står i linien
* indholdet af variabler, der indgår i linien

tænkte om du ikke bare kunne indsætte den if sætning ? men kan da godt lige få en fejl :P

Microsoft VBScript compilation  error '800a0409'

Unterminated string constant

/ghostweb/wow/2/index.asp, line 40

str2 = "<td rowspan=""3"" valign=""top"" width=""18"">
------------------------------------------------------^

kode

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("database.mdb")
Conn.Open DSN

if request.querystring("id") <> "" then
strSQL = "Select * from news where ID = " & CInt(request.querystring("id"))
set rs = Conn.Execute(strSQL)
%>


<table border="0" width="100%">
  <tr>
<td width="100%" valign="top"><font size="1" face="Verdana"><%=rs("overskrift") %></font></td>
<td rowspan="3" valign="top" width="8"><font size="1" face="Verdana"><img width="50" height="50" border="0" src="<%=rs("billede")%>"></font></td>
  <tr>
    <td width="100%" valign="top"><font size="1" face="Verdana"><%=rs("nyhed")%></font></td>
  </tr>
  <tr>
    <td width="100%" valign="top">- Skrevet af: <%=rs("af")%></td>
  </tr>
<tr><td><a href="java script:history.go(-1)"></td></tr>
<%
else

strSQL = "Select * from news order by ID desc"
set rs = Conn.Execute(strSQL)

%>

<%
i=0
Do While not rs.eof
%>
<table border="0" width="100%">
  <tr>
<%
str1 = "<td width=""100%"" valign=""top""><font size=""1"" face=""Verdana""><a href=""?id="&rs("id") & """>" & rs("overskrift") & "</a></font></td>"
str2 = "<td rowspan=""3"" valign=""top"" width=""18"">
if (Request.Servervariables("REMOTE_ADDR") = adminIP1 or Request.Servervariables("REMOTE_ADDR") = adminIP2) then
  response.write "    <td><a href=""?mode=slet&id=" & rs("id") & """>slet</a></td>" & vbCrLf
end if
<font size=""1"" face=""Verdana""><a href=""?id="&rs("id") & """><img width=""50"" height=""50"" border=""0"" src=""" & rs("billede") & """></a></font></td>"
i=i+1
if i mod 2 = 0 then
  Response.Write str1 & str2
else
  Response.Write str2 & str1
end if
%>
  </tr>

</table>
<hr style="border: 1 dotted black" width="200" size="1" color="black">
<%
%>
<%
rs.Movenext
loop
end if
%>

Det siger sig selv.. du mangler at afslutte strengen.. du starter strengen med et "-tegn, og skal derfor også afslutte strengen med et "-tegn..

str2 = "<td rowspan=""3"" valign=""top"" width=""18"">"

"Unterminated" = "Uafsluttet"

kan du ikke indsætte i koden :) ?

Får du stadig fejl? :-)

fatter ik rigtig noget :) lidt træt. kan du ikke indsætte i min kode og poste hele min kode :P?

Nope :-)

Du må da få en fejl i tabellen, hvis du hverken er adminIP 1 eller 2..

Du skal nok bruge:

response.write "    <td>"
if Request.Servervariables("REMOTE_ADDR") = adminIP1 or Request.Servervariables("REMOTE_ADDR") = adminIP2 then
    response.write "<a href=""?mode=slet&id=" & rs("id") & """>slet</a>" & vbCrLf
else
    response.write "&nbsp;"
end if
response.write "</td>"

Du skal muligvis brug CStr(Request.Servervariables("REMOTE_ADDR")) i stedet for bare Request.Servervariables("REMOTE_ADDR")
Altså, ip'en converteres til en tekst streng.. indholdet af adminIP 1 og 2 er jo tekst..

indsæt i min tekst :) fatter nada..

Nope.. gør det selv :-)
Erstat dine linier med mine, hvor de passer ind.. se på kode-blokken..

må vel lukke