Webläsaren hänger sig i gästboken

8 svar · 217 visningar · startad av WebbisNet 6 aug. 2003

WebbisNetMedlem sedan feb. 20032 027 inlägg

Frågan6 aug. 2003 19:34#1

Först funkade gästboken när man ska läsa inläggen, sen la jag till ett IP, nu funkar inte gästboken.......funkar bara när jag tar bort all kod som visar inläggen.....kan nån förklara det?

<%
Dim Conn
Dim RS
Dim SQL

SQL = "SELECT * FROM gastbok"

set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr
Set RS = Conn.Execute(SQL)

	Do Until RS.EOF 
	  Response.Write("<center>") & vbCrLf
	  Response.Write("<table>") & vbCrLf
	  Response.Write("<tr>") & vbCrLf
          Response.Write("<td>") & vbCrLf
	  Response.Write("<table class=table width='100%' border=0 cellpadding=5 cellspacing=0>") & vbCrLf
	  Response.Write("<tr>") & vbCrLf
          Response.Write("<td colspan=2 bgcolor=#000099>") & vbCrLf
	  Response.Write("<div class=gb1t> " & RS("Datum") & " " & RS("IP") & " </div>") & vbCrLf	
          Response.Write("<div class=gb1> " & RS("Namn") & " </div>") & vbCrLf
	  Response.Write("</td>") & vbCrLf
	  Response.Write("<tr>") & vbCrLf
          Response.Write("<td colspan=2 bgcolor=#000099>") & vbCrLf
	  Response.Write("<div class=gb1><a class=gb1 href='mailto:" & RS("Epost") & "'>" & RS("Epost") &"</div>") & vbCrLf		  
          Response.Write("<div class=gb1><a class=gb1 target='_blank' href='" & RS("Hemsida") & "'>"& RS("Hemsida") &"</a></div>") & vbCrLf
	  Response.Write("</td>") & vbCrLf
	  Response.Write("</tr>") & vbCrLf
	  Response.Write("<tr>") & vbCrLf	
          Response.Write("<td colspan=2 bgcolor=#FFE600>") & vbCrLf	  
          Response.Write("<div class=gb2> " & RS("Meddelande") & " </div>") & vbCrLf  
	  Response.Write("</td>") & vbCrLf
	  Response.Write("</tr>") & vbCrLf
	  Response.Write("</table>") & vbCrLf
	  Response.Write("</td>") & vbCrLf
	  Response.Write("</tr>") & vbCrLf
	  Response.Write("</table>") & vbCrLf
	  Response.Write("</center>") & vbCrLf
	  	RS.MoveNext
	Loop

	RS.Close 
	conn.Close
	  %>

Innan jag la till IP-t så funkade sidan, nu funkar inte koden ens om jag tar bort bara IP-delen.....webläsaren hänger sig

kan nån hjälpa mig???

phazer23Medlem sedan feb. 2001256 inlägg

6 aug. 2003 19:47#2

Varför en massa response write ???

<%
Dim Conn
Dim RS
Dim SQL

SQL = "SELECT * FROM gastbok"

set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr
Set RS = Conn.Execute(SQL)
Do Until RS.EOF 
%>
<center>
<table>
<tr>
<td>
<table class=table width='100%' border=0 cellpadding=5 cellspacing=0>
<tr>
<td colspan=2 bgcolor=#000099>
<div class=gb1t> <%=RS("Datum")%> <%=RS("IP")%></div>
<div class=gb1> <%=RS("Namn")%>
</td>
<tr>
<td colspan=2 bgcolor=#000099>
<div class=gb1>
<a class=gb1 href="mailto:<%=RS("Epost")%>"><%=("Epost")%></a>		  
<div class=gb1><a class=gb1 target='_blank' href=<%=RS('Hemsida')%>"><%=RS("Hemsida")%></a></div>
</td>
</tr>
<tr>
<td colspan=2 bgcolor=#FFE600>
<div class=gb2><%=RS("Meddelande")%>
 </div>
</td>
</tr>
</table>
</td>
</tr>
</table>
</center>

<%
RS.MoveNext
	Loop

	RS.Close 
	conn.Close
	  %>

WebbisNetMedlem sedan feb. 20032 027 inlägg

6 aug. 2003 20:02#3

phazer23 skrev:

Varför en massa response write ???

<%
Dim Conn
Dim RS
Dim SQL

SQL = "SELECT * FROM gastbok"

set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr
Set RS = Conn.Execute(SQL)
Do Until RS.EOF 
%>
<center>
<table>
<tr>
<td>
<table class=table width='100%' border=0 cellpadding=5 cellspacing=0>
<tr>
<td colspan=2 bgcolor=#000099>
<div class=gb1t> <%=RS("Datum")%> <%=RS("IP")%></div>
<div class=gb1> <%=RS("Namn")%>
</td>
<tr>
<td colspan=2 bgcolor=#000099>
<div class=gb1>
<a class=gb1 href="mailto:<%=RS("Epost")%>"><%=("Epost")%></a>		  
<div class=gb1><a class=gb1 target='_blank' href=<%=RS('Hemsida')%>"><%=RS("Hemsida")%></a></div>
</td>
</tr>
<tr>
<td colspan=2 bgcolor=#FFE600>
<div class=gb2><%=RS("Meddelande")%>
 </div>
</td>
</tr>
</table>
</td>
</tr>
</table>
</center>

<%
RS.MoveNext
	Loop

	RS.Close 
	conn.Close
	  %>

Tack så mycket, det löste sig med ditt förslag

phazer23Medlem sedan feb. 2001256 inlägg

6 aug. 2003 20:06#4

Always glad to help ;)

WebbisNetMedlem sedan feb. 20032 027 inlägg

6 aug. 2003 20:07#5

phazer23 skrev:

Always glad to help ;)

Har du nåt förslag på varför det hjälpte....det var ju samma kod fast alla response.write var borta

MickeA.comMedlem sedan feb. 20034 441 inlägg

6 aug. 2003 20:11#6

Kan det inte bero på att servern inte "orkar" i.o.m att alla dessa response.write.

Det blir samma effekt som att ha massa <%=variabel%>litehtmlkod<%=lite mer asp osv.%> på sin sida.

Sen att det ligger i en loop och allt ska gå fort så kan man optimera genom att bara ha en eller ingen response.write!?

Eller cyklar jag nu igen?!

phazer23Medlem sedan feb. 2001256 inlägg

6 aug. 2003 20:58#7

MickeA.com .. Rätt svar men någon minut försent ;)

MickeA.comMedlem sedan feb. 20034 441 inlägg

7 aug. 2003 05:35#8

HeHe, nja, det vet jag inte, för du svarade, men ajg förklarade lösningen på den sista frågan:

**Har du nåt förslag på varför det hjälpte....**det var ju samma kod fast alla response.write var borta

Eller ;)

pirajanMedlem sedan apr. 2001246 inlägg

7 aug. 2003 09:41#9

Tror inte det är så att servern inte orkar... Kanske om gästboken skulle innehålla flera tusen poster som man sedan skrev ut...