Just nu i M3-nätverket
Gå till innehåll

eddie66

Medlem
  • Antal inlägg

    95
  • Gick med

  • Senaste besök

Om eddie66

  • Medlemstitel
    Användare
  • Födelsedag 1978-10-10

Profil

  • Ort
    Malmö
  1. har du möjligtviss något exempel som jag kan ta del av? är nämligen inte så bra på array tyvärr. har dock lyckats hämta ut alla mappar med nedan kod, så jag får ut alla mapp namn. har letat på nätet men det finns inte så många bra svar på det jag söker. tacksam för all hjälp! <% Whichfolder=server.mappath("..\img\") &"/" Dim fs, f, f1, fc Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(Whichfolder) Set fc = f.subfolders For Each f1 in fc %> <%=f1.name%> <br> <% Next Set f = Nothing Set fs = Nothing Set fc = Nothing %>
  2. hej jag har letat efter ett script som hämtar mapp namn slumpvis, under en specifik mapp. sedan ska scriptet hämta 3 filer från denna slumpvalda mappen, slumpvis också. det enda jag hittade var nedan kod som hämtar en slump fil under en specifik mapp. anledningen är att jag vill visa 3 bilder på min hemsida, olika bilder varje gång någon besöker sidan. jag har olika mappar med olika bilder och därför måste denna sida slumpa fram först en mapp och sedan slumpa fram 3 filer under den slumpvalda mappen. är det någon som känner till någon bra kod eller kan hjälpa mig med denna kod? markera med fet stil så kanske ni förstår bättre. mvh eddie <% Set fso = CreateObject("Scripting.FileSystemObject") Set fold = fso.GetFolder(Server.MapPath("../img/[b]här ska den hämta en slumpvald mapp[/b]/images/[b]här ska den hämta 3 slump bilder[/b]")) Set fileset = fold.files fileCount = fileset.count if fileCount > 0 then counter = 1 randomize fileToPick = clng((rnd * fileCount) + 0.5) for each file in fileset if counter < fileToPick then counter = counter + 1 else randomFile = file.name exit for end if next response.write randomFile else response.write "Empty folder." end if set fileset = nothing set fold = nothing set fso = nothing %>
  3. inte helt säker på vad du menar men tanken är att sidan ska visa alla bilder som finns i mappen som står angivet i Set folderObject = fso.GetFolder(Server.MapPath("..\img\" & request.QueryString("plats") & "\thumbnails\")) sen ska file.name ska hämta namn på varje fil som finns i denna mapp så att jag kan visa dessa i img taggen. eftersom jag får sökvägen till mappen i fso.getfolder så borde jag väl kunna skriva ut namnen på filerna som finns i denna mapp. eller tänker jag fel? OBS! request.QueryString hämtar namn på parent mapp ex newyork, innan mappen thumbnails. hoppas du förstår vad jag menar ;-)
  4. hej Jag har gjort en sida och har fastnat något ;-) Sidan hämtar alla filer(bilder) som finns i en mapp och helt enkelt rada upp dessa. kan inte få rätt när jag vill att bilden ska visas med hjälp av img taggen. hela sökvägen hämtar jag längre upp i sidan men får inte rätt på koden som ska stå i img taggen för att bilderna ska visas korrekt på sidan. skickar med hela koden iaf. har testat att skriva ut hela sökvägen manuellt och då funkar det när man går in på just den mappen men jag vill kunna gå in i vilken mapp som helst och då ska sidan själv välja rätt mapp att hämta ifrån. lite svårt att förklara men jag hoppas någon förstår vad jag menar . markerar var det är fel! tacksam för hjälp. //eddie <html> <head> <title>:: Välkommen till Lalo.nu ::</title> <link rel="stylesheet" type="text/css" href="../css/styles.css"> <link href="../css/styles.css" rel="stylesheet" type="text/css" /> </head> <center> <body LEFTMARGIN="0" TOPMARGIN="0" MARGINWIDTH="0" MARGINHEIGHT="0"> <% Set fso = CreateObject("Scripting.FileSystemObject") Set folderObject = fso.GetFolder(Server.MapPath("..\img\" & request.QueryString("plats") & "\thumbnails\")) Set filesObject = folderObject.Files %> <table width="773" height="434" border="0" cellpadding="0" cellspacing="0"> <tr> <td colspan="3"><!--#include file="top2.inc" --></td> </tr> <tr> <td width="77" rowspan="2" class="greyframe">&nbsp;</td> <td width="631" valign="top"> <table border="0" align="center" cellpadding="10" cellspacing="0"> <tr> <td colspan="4" align="center" class="rubriksvart">!</td> </tr> <% cnt = 0 For Each file In filesObject cnt = cnt + 1 if cnt = 5 then cnt = 1 if cnt = 1 then Response.write "<tr>" %> <td> <table width="130" height="100" border="0" cellspacing="0" cellpadding="0" class="imgtabelborder"> <tr> <td align="center" valign="top" background="../bild/litegul.jpg">&nbsp;</td> </tr> <tr> <td height="150" align="center" class="picbox">[b]<img src="<%=file.Name%>" border="0" alt="<%=file.Name%>">[/b]</td> </tr> <tr> <td class="text">&nbsp;</td> </tr> </table> </td> <% if cnt = 4 then Response.Write "</tr>" end if Next Set fileObject = Nothing Set folderObject = Nothing Set fso = Nothing %> </table> </td> <td width="77" rowspan="2" class="greyframe">&nbsp;</td> </tr> <tr> <td height="30" class="greyframe"><%=sokvag%></td> </tr> </table> </body> </center> </html>
  5. anledningen till TR i cellen är till för att skapa ny rad när jag har kommit till den fjärde bilden. jag vill ha 4 bilder/rad och sen ny rad. jag har lagt upp det så att sidan skriver ut sökvägarna till bilderna, ligger i en databas nämligen. det konstiga med detta är att det funkade innan jag var tvungen att formatera min dator. ;-) men jag tackar för tipset, ska testa din kod o hoppas på det bästa.
  6. hej jag försöker att visa x antal bilder på min sida, dock så får jag dubbelt av varje bild i tabellen som skapas. tabellen ska visa 4 bilder per rad och sedan skapa en ny rad. just nu så har jag enbart en bild som ska visas men loopen körs och den visar samma bild 2ggr i tabellen. är det någon som vet varför? connection kod Set Connect = server.createObject("ADODB.Connection") Connect.connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\newsite\data\myworld.mdb;" sidan som ska visa mina bilder <html> <head> <SCRIPT LANGUAGE="JavaScript"> <!-- Begin function NewWindow(mypage, myname, w, h, scroll) { var winl = (screen.width - w) / 2; var wint = (screen.height - h) / 2; // OBS! ingen radbrytning i texten nedan winprops = 'height='+h+',width='+w+',top='+wint+',left='+winl+',scrollbars='+scroll+',resizable' //slut på område utan radbrytning win = window.open(mypage, myname, winprops) if (parseInt(navigator.appVersion) >= 4) { win.window.focus(); } } // End --> </script> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> <title>Untitled Document</title> <link rel="stylesheet" type="text/css" href="css/styles.css"> <% '=request.querystring("plats") enbart test %> <link href="css/styles.css" rel="stylesheet" type="text/css" /> </head> <% Connect.open Set RecSet= Server.CreateObject("ADODB.Recordset") SQL = "SELECT * From tblbilder, tblplats where SemesterIDRef = " & request.querystring("plats") RecSet.open SQL, Connect 'request.querystring("plats") %> <center> <body LEFTMARGIN="0" TOPMARGIN="0" MARGINWIDTH="0" MARGINHEIGHT="0"> <table width="773" height="434" border="0" cellpadding="0" cellspacing="0"> <tr> <td colspan="3"><!--#include file="top.inc" --></td> </tr> <tr> <td width="77" rowspan="2" class="greyframe">&nbsp;</td> <td width="631" valign="top"> <table border="0" align="center" cellpadding="10" cellspacing="0"> <tr> <td colspan="4" align="center" class="rubriksvart"><%=recset("plats")%>!</td> </tr> <td> <% cnt = 0 Do until RecSet.EOF cnt = cnt + 1 if cnt = 5 then cnt = 1 if cnt = 1 then Response.write "<tr>" %> </td> <td> <table width="130" height="100" border="0" cellspacing="0" cellpadding="0" class="imgtabelborder"> <tr> <td align="center" valign="top" background="bild/litegul.jpg">&nbsp;</td> </tr> <tr> <td height="100"><a href="galleristor.asp?ID=<%=recset("ID")%>" target="_blank" onClick="NewWindow(this.href,'name','470','370','no');return false;"><img src="<%=recset("sokvag")%>" border="0"></a></td> </tr> <tr> <td class="text"><%=recset("bildkommentar")%></td> </tr> </table> </td> <% if cnt = 4 then Response.Write "</tr>" end if RecSet.MoveNext loop %> </table> </td> <td width="77" rowspan="2" class="greyframe">&nbsp;</td> </tr> <tr> <td height="30" class="greyframe"><%=sokvag%></td> </tr> </table> <% RecSet.close set RecSet = nothing Connect.close set connect = nothing %> </body> </center> </html>
  7. värden finns det alltid. tack för din tid, jag fick hjälp av Micke_skåne samtidigt och det funkar nu.
  8. lyssande, funkar perfekt. tack för hjälpen och poäng till dig.
  9. slut resultatet ska vara vanlig siffror. jag är dålig på detta med olika typer av data. jag har klistrar in hela koden fram till if satsen så att ni ser och förhoppningen kan ni se felet :-) hur menar du att jag skulle se till att få dessa "strängar" till samma typ, den ena hämtar jag direkt från recset och det andra värdet från föregående sida?
  10. värdena är vanliga siffror i grund och botten. jag la in dom i variabler men den går in i if satsen i vilket fall som helst. jag kopierar hela koden fram till if satsen så att du ser. <% Connect.open Set RecSet= Server.CreateObject("ADODB.Recordset") SQL = "SELECT * From tblpersonaluppgifter where personalid = " & request.QueryString("anvid") RecSet.Open SQL, Connect, 1, 2 selkontor = Request.Form("selkontor") tblkontorref = recset("tblkontorref") if selkontor <> tblkontorref then response.Write trim(Request.Form("selkontor")) response.Write trim(RecSet("tblkontorref")) response.End 'response.Redirect("http://www.idg.se") 'flyttdatum = date() else flyttdatum = RecSet("FlyttDatumKontor") end if
  11. hej jag undrar om ni kan förklara varför nedan kod inte funkar som det ska. när selkontor och tblkontorref är samma så går den in i if satsen och skriver ut date i min db(acess). är dom olika så går den in och då blir det rätt. men jag vill bara att den ska gå in i if satsen om dessa 2 är olika, om ni förstår vad jag menar. Jag inget annat i min kod som hänvisar till Flyttdatumkontor, så det ska ju inte vara problem där. jag har även kollat vilka värden som finns i selkontor samt tblkontorref, och dom är rätt. kan någon hjälpa mig ? tack på förhand. if Request.Form("selkontor") <> recset("tblkontorref") then RecSet("FlyttDatumKontor") = date() end if
  12. hmm nä :-) jag måste vara helt insnöad i min kod för jag märkte det inte. hittade tom ett lite stavfel till. funkar nu iaf. tack för att du gjorde mig uppmärksam på mitt eget fel. tack för din tid.
  13. hmm av misstag så tog jag bort Recset.open sql, connect,1,2 i den koden jag kopierade in här. dock så har jag den i min kod som jag kör annars. testade o skriva ut min sql och fick detta som verkar rätt. SELECT * From tblforsaljning where forsaljningsdataum = #2008-02-25# and kontoridref=3 tanken är att om sql inte hittar försäljning för detta datum samt för detta kontor så ska den lägga till information, annars hoppar den tillbaka med ett fel medd. vad tror du är fel?
  14. eddie66

    sql fel

    kan någon möjligtviss svara vad som är fel på min kod? jag försöker spara ny data på min acess db, jag vill kolla så att det inte finns försäljning(kr) på det specifika datumet samt för det kontoret innan jag lägger till datan. detta fel medd får jag. Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1. /page/addforsaljning.asp, line 23 min kod ser du här, line 23 är RecSet.Open SQL, Connect, 1, 2 : if request.Form("startMonth") < 10 then siffmonth = 0 end if if request.Form("startDay") < 10 then siffday = 0 end if if request.Form("radiobutton") = "1" then dat = date() else dat= request.form("startYear") & "-" & siffmonth & request.form("startMonth") & "-" & siffday & request.form("startDay") end if Connect.open Set RecSet= Server.CreateObject("ADODB.Recordset") SQL = "SELECT * From tblforsaljning where forsaljningsdataum = #" & trim(dat) & "# and kontoridref=" & Clng(request.form("selkontor")) if not RecSet.EOF then RecSet.close set RecSet = nothing response.redirect "forsaljningreg.asp?done=2" end if RecSet.AddNew 'här lägger jag till sen någon som har någon ide? tack på förhand. [inlägget ändrat 2008-02-22 16:19:43 av eddie66]
  15. ja sorry men jag har inte förklarat denna del. som du ser så skapar jag en excel fil av denna information som visas på denna sida också. dock så fick jag fel medd jag pratar om innan jag skrev till denna kod. även om jag tar bort allt som har att göra med skapandet av excel filen så får jag fel när recordset är tomt. vilket är väldigt konstigt. ser du eller får du något fel hos dig på detta?
×
×
  • Skapa nytt...