3 problem! hjälp tack! :)

problem 1:
okej... har fixat ett bild-uppladdnings script... å då bilden har blivit uppladdad så dyker den upp på en 'admin-sida' eller nåt... där ska admin välja om bilden godkännes eller ej... klickar han ja så ligger bilden kvar i katalogen, men byter fält i databasen..
det funkar perfekt... men om admin inte godkänner bilden så skulle jag vilja att den raderade både posten ur databasen, vilket fungerar bra, men även att den tar bort bilden från katalogen! går detta att göra med asp å isåfall, hur?! :D

problem 2:
om ni läst posten ovan, så undrar jag även hur den hämtar storleken på en viss fil. finns det något slags 'GET' som kan kolla storleken på filen? *förbryllad*

problem 3:
på ett annat ställe ska jag lista massa poster ur databasen i tabeller. å då vill jag ha 3 poster på varje rad och sen vill jag ha en radbrytning om det är mer än 3 poster... alltså:

<tr>
<td>post1</td><td>post2</td><td>post3</td>
</tr>

<tr>
<td>post4</td><td>post5</td>
</tr>

om det är 5 poster som ska listas... förstår ni? :)

slutsats:
som ni förmodligen märkt så är jag relativt inkompetent vad gäller asp, men jag skulle bli väldigt tacksam om jag kunde få hjälp med mina problem! :D

MVH

------------------
nakoz

Problem 1.

Såhär raderar du en fil:

Set fso = CreateObject("Scripting.FileSystemObject")
Set fil = fso.GetFile("c:\test.gif")
fil.delete

Problem 2.

Du hämtar samma fil som ovan med, och kollar storleken:

Set fso = CreateObject("Scripting.FileSystemObject")
Set fil = fso.GetFile("c:\test.gif")
storlek = fil.size

Problem 3.

Det beror på hur du gör när du loopar ut den... Du kan göra såhär om du tar ifrån en databas:

cnt = 0
Response.write "<tr>"
Do Until RS.EOF
cnt = cnt + 1

If cnt Mod 3 = 0 then
Response.write "<tr>"
End If

Response.write "<td>" & RS("sida") & "</td>"

If cnt Mod 3 = 0 then
Response.write "</tr>"
End If

RS.MoveNext
Loop
Response.write "</tr>"

Hoppas det hjälpte...

Mvh, Vide

------------------
Kom hem till mig...

yeah... tack så mycke... du e min idol Vide :e

------------------
nakoz, ner på knä kvinna, vi ska umgås

hmm... om jag vill inkludera storleks-cirkusen i loopen blev de inge bra... :)

såhär ser koden ut:

	<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>
		<% 
		Set fso = CreateObject("Scripting.FileSystemObject")
		Set fil = fso.GetFile("../user/images/pics/"& RecSet("ImageAdmin") &"")
		storlek = fil.size
		%>
		storlek: <%=storlek%><br><br>
		<%= RecSet("ImageAdmin") %><br><br>
		<a href="confirmimg.asp?confirm=yes&usrimg=<%= RecSet("ID") %>">ja</a> / <a href="">nej</a></td>
	</tr>

naturligvis funkar inte:
Set fil = fso.GetFile("../user/images/pics/"& RecSet("ImageAdmin") &"")

eftersom den inte printar ut nåt värde såvida jag inte använder ett "=" ? å de kan jag väl inte göra där?
hjälp tack :)

------------------
nakoz, ner på knä kvinna, vi ska umgås

Visas bilden ovanför?

Sedan så behöver du inte ha fnuttar efter namnet:
ImageAdmin") &"")

blir:
ImageAdmin"))

Får du nåt felmeddelande?

------------------
Kom hem till mig...

jepp... bilden visas... men inte storleken... jag måste väl in med nåt "=" ???

felmeddelandet blir:
Körningsfel i Microsoft VBScript fel '800a0035'

Det går inte att hitta filen.

/asp/hemsidor/oldflykt2/admin/confirmimg.asp, rad 60

eftersom sourcen blir fel då "=" saknas?

------------------
nakoz, ner på knä kvinna, vi ska umgås

fan fan fan... jag får inte radbrytningen, problem 3, att funka heller... vad e fel med min kod?

<table width="540" border="0" cellspacing="0" cellpadding="2">

<%
cnt = 0
Response.write "<tr align=left valign=top>"
Do Until RecSet.EOF
datum = RecSet("Datum")
relation = RecSet("Relation")
fromid = RecSet("Vanlista")
id2 = RecSet("Van")
namn = RecSet("Alias")
id = RecSet("ID")
friendid = RecSet("FriendID")

cnt = cnt + 1
If cnt Mod 3 = 0 then
Response.write "<tr>"
End If

Response.write "<td width=170><a href=show.asp?userID="& id &">"& namn &"</a>, "& relation &"</td>"

If cnt Mod 3 = 0 then
Response.write "</tr>"
End If

RecSet.MoveNext
Loop
Response.write "" %>
		
</table>

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

hmm... 3 problem undrade jag över, och trots Vide's bra svar så kvarstår 3 problem... hjälp mig, snälla... :)

*whoppa*
glömde visst säga vad som var fel.. med 6 poster som ska visas blir de 2 stycken på rad 1, 1 post på rad 2, 2 poster på rad 3 å 1 post på rad 4... såhär:
* *
*
* *
*
___________________

jag vill att de ska se ut såhär:
* * *
* * *

om ni fattar? :e

------------------
nakoz, ner på knä kvinna, vi ska umgås, fatta! :)

[Redigerat av nakoz den 09 okt 2000]

Hmm... testade detta och det fungerade:

Byt startsiffran:
cnt = 1

Och ändra värdenumret du söker efter till 3:
If cnt Mod 3 = 3 then

Vad händer om du skriver sökvägen till bilden statiskt? det borde ge en indikation på vad som är fel... Och nej, du skall inte ha "=" eftersom det bara används som en ersättare till Response.write i början av en delimiter... Och nu skall du ju bara använda värdet av variabeln till en textsträng på serversidan... :)

mvh, Vide
------------------
Kom hem till mig...

[Redigerat av Vide den 09 okt 2000]

någon där uppe tycker inte om mig.. :)

<%
cnt = 1
Response.write "<tr align=left valign=top>"
Do Until RecSet.EOF
datum = RecSet("Datum")
relation = RecSet("Relation")
fromid = RecSet("Vanlista")
id2 = RecSet("Van")
namn = RecSet("Alias")
id = RecSet("ID")
friendid = RecSet("FriendID")

cnt = cnt + 1
If cnt Mod 3 = 3 then
Response.write "<tr align=left valign=top>"
End If

Response.write "<td width=170><a href=show.asp?userID="& id &">"& namn &"</a>, "& relation &"</td>"

If cnt Mod 3 = 3 then
Response.write "</tr>"
End If

RecSet.MoveNext
Loop
Response.write "</tr>" %>

vad är fel?! asså, nu visar den samtliga 6 poster på samma rad! gah!

vidare...

Vad händer om du skriver sökvägen till bilden statiskt?

hur skriver jag ut nåt statiskt? *e inte haj på dessa termer* :e

MVH

------------------
nakoz, ner på knä kvinna, vi ska umgås

litet matematiskt påstående: x mod 3 kan välan aldrig bli 3 :q

redigering / tillägg: det blev visst mer än fråga än ett påstående... ;)

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
where do you want to go to die?</A>

[Redigerat av @nders den 09 okt 2000]

@nders,

litet matematiskt påstående: x mod 3 kan välan aldrig bli 3

Har faktiskt inte en blek... men det fungerade för mig... :)

Men eftersom det inte verkade fungera för nakoz, så blir jag ju lite fundersam...

nakoz,

Vad jag menar med statisk är att du skriver dit filens namn direkt i länken, istället för att dynamsikt lägga dit den via databasen...:

Set fil = fso.GetFile("../user/images/pics/bild.gif")

Då ser du om det är rätt sökväg lättare...

------------------
Kom hem till mig...

hmm... du hade rätt... felet verkar inte ligga där...

även om jag skriver ut källan till bilden helt som du visade så får jag ändå felmeddelandet:

Körningsfel i Microsoft VBScript fel '800a0035'

Det går inte att hitta filen.

/asp/hemsidor/oldflykt2/admin/confirmimg.asp, rad 59

förslag någon?

------------------
nakoz, ner på knä kvinna, vi ska umgås

Laborera dig fram till sökvägen, är väl det lättaste...

------------------
Kom hem till mig...

hmm... nu vill den plöstligt funka... men enbart om jag skriver som du gjorde i exemplet... dvs. c:\minmapp\minfil.gif

den ska dock ligga på en server sen, å då kan jag inte specifiera sökvägen så, aiight?

sen måste filnamnet vara dynamiskt, men de vill de inte va... :/

vad göra? :/

MVH

------------------
nakoz, ner på knä kvinna, vi ska umgås

PROBLEM 3

Skriv så här någonting så skall du se att livet blir glatt och enkelt!

<table border="1" width="100%">
<tr>
<%for i = 1 to 20

Response.write "<td >Här är text</td>"

if i Mod 3 = 0 then
response.Write "</tr><tr>"
end if

next

%>
</tr>
</table>

...ja du få ju byta ut for-satsen mot din Loop i recordsetet och lägga till en egen liten räknare som börjar på ett(som i exemplen ovan), men annars så kan det inte bli några fel. ;)

------------------
"Life's a bitch who sucks... then you marry one who doesn't"

[Redigerat av Andreas L den 10 okt 2000]

Vad händer om du vänder på slash?

Set fil = fso.GetFile("..\user\images\pics\" & RecSet("ImageAdmin"))

------------------
Kom hem till mig...

andreas l
hmm... konkret kod tack? den jag fick nu buggar bara ur min sida :((

vide
nepp... samma error då som tidigare :( jag e helt lost nu asså... :/

nån! hjääälp!

MVH

------------------
nakoz, ner på knä kvinna, vi ska umgås

Detta kan väl knappast generera något fel!??!?

<table border="1" width="100%">
<tr>
<%
'tilldelar variabeln "i" värdet 1
i = 1

'startar Loopen genom Recordset
Do Until RecSet.EOF

Response.write "<td>" &RecSet("blablabla")& "</td>"

'Är värdet hos i jämt delbart med tre?
if i Mod 3 = 0 then

'-då skapar vi en ny rad i tabellen
response.Write "</tr><tr>"
end if

'ökar värdet hos räknaren "i"
i = 1+1

'flyttar till nästa post i ditt recordset
RecSet.MoveNext

Loop
%>
</tr>
</table> ;)

------------------
"Life's a bitch who sucks... then you marry one who doesn't"

[Redigerat av Andreas L den 10 okt 2000]

andreas l
nope... funkar inte... alla sex posterna visas på samma rad...

* * * * * *

:/

------------------
nakoz, ner på knä kvinna, vi ska umgås

Kolla på http://cgi.webforum.nu/wf/Forum11/HTML/001246.html

------------------
-------------------
What a waste it is to lose one's mind. Or not to have a mind is being very wasteful. How true that is.
Dan Quayle