webForumDet fria alternativet
Logga in / Bli medlem

HTML fel när jag skriver ut från db

ASP

2 svar · 289 visningar · startad av SGuncel

SGuncelMedlem sedan jan. 2007217 inlägg
Frågan#1

Hej!

Jag får fel på min HTML när jag skriver ut från databasen.

Bilder på felet
*Borttagen*

Bild på hur det ska se ut
*Borttagen*

Felet blir när jag kollar på andras galleri. Men när jag kollar på min galleri så blir det som det ska.

@nderss avatar@ndersMedlem sedan juni 200032 967 inlägg
#2

Kan du inte posta koden här i asp-inlägget istället, så blir det lättare att hjälpa till?

Mina spontana tankar efter att ha kikat på koden du kallar "rätt":

  1. Du har en funktion som heter Age, som ligger inkastad mitt i koden. Flytta bort den, lägg den överst eller underst. Funktionaliteten blir densamma, men det blir lättare att läsa koden (imho).
  2. Du har kod för att ta bort en viss bild, och den har du lagt inne i loopen för bilderna i galleriet. Ska den koden verkligen köras en gång per uppladdad bild? Lägg denna kod överst istället. (Glöm inte bort att i den delete-koden kontrollera att man tar bort en av sina egna bilder, så man inte bara kan ändra lite querystrings och förstöra andras gallerier...)
  3. Läs ännu mer om tomsträngskonkatenering: http://www.webforum.nu/showthread.php?t=142490 . Det var väldigt många &"" i din kod...
  4. Indentera koden ordentligt så blir den lättare att läsa.

Fixa ovanstående och posta koden här, inom [kod]-taggar, så kan vi säkert ta reda på vad som är fel.

SGuncelMedlem sedan jan. 2007217 inlägg
#3

Så dära :)

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

<html>

<head>
<meta http-equiv="Content-Language" content="sv">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="copyright" content="">

<title></title>
<link rel="stylesheet" href="../_Style/SidansStyle.css" type="text/css">

</head>

<body>
<%
strSQL = "Select * From TLUsers WHERE UsrID="& CLng(Request.Querystring("UsrID")) &""
Set ObjRS = ObjConn.Execute(strSQL)

	
Function Age(datBorn)
  Age = DateDiff("yyyy", datBorn, Date())
  If (Month(Date()) < Month(datBorn)) or _
  (Month(Date()) = Month(datBorn) and Day(Date()) < Day(datBorn)) Then Age = Age -1
End Function
	
	
Dim strVart_page , strVart_Query, strVart
strVart_page     = Mid(Request.ServerVariables("PATH_INFO"),1)
strVart_Query     = Request.ServerVariables("QUERY_STRING")

If Len(strVart_Query) > 0 Then
    strVart = strVart_page &"?"& strVart_Query
        Else
    strVart = strVart_page
End If

dim strVart_LinkName, strVart_Name
strVart_LinkName	= ("Spanar in i en galleri")

strVart_Name = strVart_LinkName

ObjConn.Execute("UPDATE TLUsers SET UsrWhere = '" & strVart & "', UsrWhereName = '" & strVart_Name & "' WHERE UsrID = " & Session("UsrID"))

IF Request.Querystring("Delete")="GalleryPic" then
ObjConn.Execute("DELETE * FROM Gallery Where GalleryId="& CLng(Request.Querystring("GalleryId")) &"")
Response.Redirect(Request.ServerVariables("HTTP_REFERER"))
End if
%>

<table cellpadding="0" cellspacing="0" width="705">

<tr>
<td height="5">
<img src="../_Grafik/Profil_Vanster_Uppe.gif" alt="" width="9" height="7"></td>
<td height="7" style="background-image: url('../_Grafik/Profil_Uppe.gif');" width="666"></td>
<td height="5">
<img src="../_Grafik/Profil_Hoger_Uppe.gif" alt="" width="15" height="7"></td>
</tr>

<tr>
<td width="9" style="background-image: url('../_Grafik/Profil_Vanster.gif');"></td>
<td width="681" height="197">
<table width="100%"  border="0" cellspacing="0" cellpadding="0" height="23" id="table2">
<tr>
<td width="259" style="background-image: url('../_Grafik/Profil_Meny_Stor.gif');" height="23" style="padding: 3px;">
<%=ObjRS("UsrTLAlias")%>,                 
<%=ObjRS("UsrSex")%>&nbsp;
<%=Age(DateSerial(ObjRS("UsrAgeYear"), ObjRS("UsrAgeMonth"), ObjRS("UsrAgeDay")))%>
 från <%=ObjRS("UsrLiveLoc")%>
</td>
 
<td width="83" style="background-image: url('../_Grafik/Profil_Meny_Mellan.gif');" height="23">
<img src="../_Grafik/Pix.gif" width="10" height="10">
<a href="../UsrProfile/Profil.asp?UsrID=<%=CLng(Request.Querystring("UsrID"))%>">Profil</a>
</td>
 
<td width="83" style="background-image: url('../_Grafik/Profil_Meny_Mellan.gif');" height="23">
<img src="../_Grafik/Pix.gif" width="10" height="10">
<a href="../UsrGuestbook/Guestbook.asp?UsrID=<%=CLng(Request.Querystring("UsrID"))%>">Gästbok</a>
</td>

<td width="83" style="background-image: url('../_Grafik/Profil_Meny_Mellan.gif');" height="23">
<img src="../_Grafik/Pix.gif" width="10" height="10">
<a href="../UsrFriends/Friends.asp?UsrID=<%=CLng(Request.Querystring("UsrID"))%>">Vänner</a>
</td>

<td width="83" style="background-image: url('../_Grafik/Profil_Meny_Mellan.gif');" height="23">
<img src="../_Grafik/Pix.gif" width="10" height="10">
<a href="../UsrGallery/Gallery.asp?UsrID=<%=CLng(Request.Querystring("UsrID"))%>">Galleri</a></td>
<td width="90" style="background-image: url('../_Grafik/Profil_Meny_Liten.gif');" height="23">
</td>
                
</tr>
</table>
                
<table width="100%"  border="0" cellspacing="0" cellpadding="0" height="504">
<tr>
<td width="512" height="504" valign="top">

<%
Set ObjRS2 = ObjConn.Execute("Select * From Gallery WHERE UsrID="& CLng(Request.Querystring("UsrID")) &"")
IF ObjRS2.Eof then	
%>

<table width="99%"  border="0" cellspacing="0" cellpadding="0" height="25" id="table1" style="padding: 3px; float: left;">
<tr>
<td width="72%" height="25" style="padding: 3px; text-align: center;">
Denna användaren har inte laddat upp några bilder i sitt 
galleri!
</td>

</tr>
</table>

<%
else
%>
               
<table width="100%"  border="0" cellspacing="0" cellpadding="0" height="55" id="table12">
<tr>

<td height="55" style="padding: 3px;" width="100%" valign="top">
Här är din bildgalleri som du kan ladda upp dina bilder :)
<br>
Vad snälla vi är och bjuder dig på bildgalleri va? :)
<br>
<br>
<a href="GalleryLoadUp.asp" target="Start">Klicka här för 
att ladda upp nya bilder.</a>
</td>

</tr>
</table>    
                          
<table width="100%"  border="0" cellspacing="0" cellpadding="0" height="17" id="table8">
<tr>

<td height="17" style="padding: 3px;" width="213">
<span class="Fett_Text">Beskrivning</span></td>

<td style="padding: 3px;" width="92">
<span class="Fett_Text">Inlagd</span>
</td>

<td style="padding: 3px;" width="50">
<span class="Fett_Text">Visad</span>
</td>

<td style="padding: 3px;" width="79">
<span class="Fett_Text">Storlek</span>
</td>

<td style="padding: 3px;">
</td>

</tr>
</table>

<table width="100%"  border="0" cellspacing="0" cellpadding="0" id="table9">
<tr>

<td width="100%" style="border-top: 1px solid Silver;"><img src="BackUp/_Grafik/Pix.gif" width="0" height="1"></td>

</tr>
</table>

<%
	Do until ObjRS2.Eof
%>
	                                
<table width="100%"  border="0" cellspacing="0" cellpadding="0" height="15" id="table10">
<tr>

<td height="15" style="padding: 3px;" width="213">
<a href="GalleryPic.asp?GalleryId=<%=ObjRS2("GalleryId")%>"><%=Server.HtmlEncode(ObjRS2("GalleryPicComment"))%></a>
</td>

<td style="padding: 3px;" width="91"><%  
                Dim GalleryPicPickled
GalleryPicPickled = ObjRS2("GalleryPicPickled")
Select Case DateDiff("d",GalleryPicPickled,Date())
Case 0
Response.write("Idag " &left(right(ObjRS2("GalleryPicPickled"), 8),5)& "")
Case 1
Response.write("Igår " &left(right(ObjRS2("GalleryPicPickled"), 8),5)& "")
Case Else
Response.write(""&FormatDateTime(ObjRS2("GalleryPicPickled"),vbshortdate)&" "&FormatDateTime(ObjRS2("GalleryPicPickled"),vbshorttime)&"")
End Select
 %>
</td>

<td style="padding: 3px; text-align: center;" width="51">
<%=Server.HtmlEncode(ObjRS2("GalleryPicShowed"))%>
</td>

<td style="padding: 3px;" width="79">
<%If Len(ObjRS2("GalleryPicSize")) >= 7 Then%><%=Round(ObjRS2("GalleryPicSize")/1000000, 2)%> MB<%Else%><%=Round(ObjRS2("GalleryPicSize")/1000, 2)%> KB<%End If%>
</td>

<td style="padding: 3px;">
<%
IF ObjRS2("UsrID") = Session("UsrID") then
%>
<a href="?Delete=GalleryPic&GalleryId=<%=Server.HtmlEncode(ObjRS2("GalleryId"))%>&UsrId=<%=Server.HtmlEncode(ObjRS2("UsrId"))%>">Radera</a>
</td>

</tr>
</table>

<%	
	End if

	ObjRS2.MoveNext
	Loop
	
	ObjRS2.Close : Set ObjRS2 = Nothing

	End if
%>
                                
<table width="100%"  border="0" cellspacing="0" cellpadding="0" height="54" id="table11">
<tr>

<td height="54" style="padding: 3px; text-align: center;" width="100%">
<%
IF ObjRS("UsrID") = Session("UsrID") then
%>Du<%else%><%=ObjRS("UsrTLAlias")%> <% end if %> 
har laddat upp <span class="Fett_Text"><%=ObjRS("GalleryPics")%></span> 
bild(er) av <span class="Fett_Text"><%=ObjRS("GalleryMaxPics")%></span> 
bilder.				
</td>

</tr>
</table>
                                
</td>
</tr>
</table>

<td width="15" style="background-image: url('../_Grafik/Profil_Hoger.gif');" height="197"></td></td>

<tr>
<td height="5"><img src="../_Grafik/Profil_Vanster_Nere.gif" alt="" width="9" height="6"></td>
<td height="5" style="background-image: url('../_Grafik/Profil_Nere.gif');"></td>
<td height="5"><img src="../_Grafik/Profil_Hoger_Nere.gif" alt="" width="15" height="6"></td>
</tr>

<tr>
<td height="5"><img src="../_Grafik/Profil2_Vanster_Nere.gif" alt="" width="9" height="16"></td>
<td height="5" style="background-image: url('../_Grafik/Profil2_Nere.gif');"></td>
<td height="5"><img src="../_Grafik/Profil2_Hoger_Nere.gif" alt="" width="15" height="16"></td>
</tr>
</table>

</body>

</html>
256 ms totalt · 4 externa anrop · v20260731065814-full.6fe65c25
121 ms — deklarationer (db)
0 ms — hämta statistik (cache)
131 ms — hämta tråd, inlägg och bilagor (db)
122 ms — ändringar (db)