hmm... koden tycker inte om mig... har gjort en sida där folk kan skicka upp bilder å filnamnet lagras i databasen.
innan deras bild visas så måste den bekräftas av en administratör, av mig alltså... :D
nånting buggar dock, för databasen vill inte förstå när jag bekräftar en bild.
se nedan:
<% Response.Buffer = TRUE %>
<!-- #include file="../inc/tops1.asp" -->
<body background="../bilder/bg.gif">
<!-- #include file="../inc/topimgs1.asp" -->
<table width="710" border="0" cellspacing="0" cellpadding="7">
<tr valign="top" align="left">
<td colspan="3" height="6">
</td>
</tr>
<tr>
<td valign="top" align="left" width="100">
<!-- #include file="../inc/menus1.asp" -->
</td>
<td align="center" valign="top" width="10">
<img src="../bilder/vertikal_linje.gif" width="1" height="280">
</td>
<td align="left" valign="top" width="490">
<% Visa = "SELECT Color FROM users WHERE ID = "&session("ID")
RecSet.Open Visa, cn, adOpenStatic, adLockOptimistic %>
<% If RecSet("Color") = "Röd" Then %>
<img src="../bilder/rod/small-admin.gif"><br><br>
<% End If %>
<% If RecSet("Color") = "Blå" Then %>
<img src="../bilder/bla/small-admin.gif"><br><br>
<% End If %>
<% If RecSet("Color") = "Grön" Then %>
<img src="../bilder/gron/small-admin.gif"><br><br>
<% End If %>
<% RecSet.Close %>
<% Img = "SELECT * FROM users WHERE ImageAdmin <> '""'"
RecSet.Open Img, cn, adOpenStatic, adLockOptimistic
RecSet.Update %>
<table width="200" cellpadding="5" cellspacing="0" border="1" border="#000000" bordercolor="#000000">
<tr align="left" valign="top" height="20">
<td align="left" valign="top"><b>bild</b></td>
<td align="left" valign="top"><b>info</b></td>
</tr>
<% Do Until RecSet.EOF %>
<tr align="left" valign="top" height="115">
<td align="left" valign="top"><img src="../user/images/pics/<%= RecSet("ImageAdmin") %>" height="100" width="78"></td>
<td align="left" valign="top">
<br><a href="../user/show.asp?userID=<%= RecSet("ID") %>" target="nytt"><%= RecSet("Alias") %></a><br>
storlek<br><br>
<%= RecSet("ImageAdmin") %><br><br>
<a href="confirmimg.asp?confirm=yes&usrimg=<%= RecSet("ID") %>">ja</a> / <a href="">nej</a></td>
</tr>
<% RecSet.MoveNext
Loop %>
</td>
</tr>
</table>
<% RecSet.Close %>
<% '============== %>
<% ' Bekräfta - JA %>
<% '============== %>
<% Response.Buffer = TRUE %>
<% If Request.QueryString("confirm") = "yes" AND Session("ID") = "1" Then %>
<!-- #include file="../inc/topimgs1.asp" -->
<table width="700" border="0" cellspacing="0" cellpadding="7">
<tr valign="top" align="left">
<td colspan="3" height="6">
</td>
</tr>
<tr>
<td valign="top" align="left" width="100">
<!-- #include file="../inc/menus1.asp" -->
</td>
<td align="center" valign="top" width="10">
<img src="../bilder/vertikal_linje.gif" width="1" height="280">
</td>
<td align="left" valign="top" width="600">
<% Visa = "SELECT * FROM users"
RecSet.Open Visa, cn, adOpenStatic, adLockOptimistic %>
<% If RecSet("Color") = "Röd" Then %>
<img src="../bilder/rod/small-admin.gif"><br><br>
<% End If %>
<% If RecSet("Color") = "Blå" Then %>
<img src="../bilder/bla/small-admin.gif"><br><br>
<% End If %>
<% If RecSet("Color") = "Grön" Then %>
<img src="../bilder/gron/small-admin.gif"><br><br>
<% End If
RecSet.Close %>
<% ImgYes = "SELECT * FROM users WHERE ID = " & Trim(Request.QueryString("usrimg")) & ""
RecSet.Open ImgYes, cn, adOpenStatic, adLockOptimistic
RecSet("Image") = RecSet("ImageAdmin")
RecSet.Update
RecSet.Close
ImgYes2 = "SELECT * FROM users WHERE ID = " & Trim(Request.QueryString("usrimg")) & ""
RecSet.Open ImgYes2, cn, adOpenStatic, adLockOptimistic
RecSet("ImageAdmin") = ""
RecSet.Update
Response.Redirect ("confirmimg.asp")
RecSet.Close
End If
cn.Close %>
</body>
</html>
det blir inget fel i koden, men bilden dyker fortfarande upp som obekräftad men den visas inte... utan man ser istället det lilla "x":et som visas då bild-sourcen är fel... går man in i databasen så har den raderat bilden ur båda tabellerna (Image & ImageAdmin)
hjälp tack?!
MVH
------------------
nakoz
[Redigerat av nakoz den 07 okt 2000]