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

M.Mever

Medlem
  • Antal inlägg

    230
  • Gick med

  • Senaste besök

Om M.Mever

  • Medlemstitel
    Aktiv
  • Födelsedag 1981-10-12

Kontaktinformation

  • Hemsida
    http://

Profil

  • Ort
    Lkl
  1. Hej! Jag byggde en dator för någon dag sen bara och därefter installerade jag Windows 7 Ultimate 64-bitars. Jag har aldrig använt Vista eller 7:an innan utan har haft XP. Jag har datorn kopplat till LCD-TVn, en Samsung 40" via HDMI. (Win 7 64bit) Jag har även den gamla datorn kopplat till tvn, med en VGA kabel.(XP SP3 32-bit) Nu till mitt problem. Efter att installationen var klar med win7 så ser allt skumt ut, det är svårt att se vad det står. Detta är inte bara i Internet explorer utan överallt. Texten går liksom ihop på något sätt. Den är liksom ihoptryckt. Jag aktiverade cleartype, men det blev inte bättre. På min gamla dator ser det ju hur bra ut som helst, klart och fint och lättläst. Jag har kollat runt på Internet efter lösningar, har väl inte hittat ngn speciell egentligen, mer än att det kan ha något att göra med "korrupta fonts". Varför har dem bllivit korrupta? hur? jag har ju precis installerat Win7. Men jag kan se en FONTS-mapp i Windows, men jag har ju verkligen inga rättigheter. Jag är ändå den enda som har datorn och jag har det enda kontot. Jag är ju admin kan man tycka? eller? Nu har jag grejat med allt möjligt ifrån "bytt ägarskap" på fonts-mappen till att ha aktiverat ett adminkonto som varit dolt?! så nu vet jag inte vad jag grejat me. Jag är fortfarande på samma ruta, dvs ETT och är påväg att ge upp. Jag måste verkligen få hjälp med framförallt FONT-problemet... Jag ger verkligen snart upp och låter datorn stå i ett hörn alltså.... Tacksam för svar!
  2. Halloj! Det verkade som om det var den 12V 8-pin eller i mitt fall 4-pin kabeln från aggregatet till CPU. Hade glömt den. Har dock för mig att det stod i instr att det var antingen 24-pin eller 8pin. Men OK. Nu fungerar det och alla frläktar fungerar nu. Har kollat lite i BIOS men är inte hemma alls där så får väl ta det senare kanske. Håller iaf på att installera Win 7 nu. Det jag kunde se i BIOS var att CPU tempen var 41grader. och då höll jag ju egentligen inte på med något heller... är det mycket?
  3. Hej, Jag sitter på jobbet just nu, jag slutar kl 14. Ang distanserna så är det 9 st tror jag, som jag satte dit... alla distanser har samma storlek. Det stog i chassit att man kunde köra miniATX eller ATX moderkort. Jag har ju ett ATX och då skulle man sätta distanserna i en bokstavsserie, typ A B C D E F J K L har ja för mig. Det passade ju när jag skruvade iaf. Grafikkortet sitter på rätt ställe och har två PCI-e strömsladdar. I den blåa delen och SwitcCard i den vita delen. Har ju 4 st 2gb ram minne, köpte 4Gb extra. Men nu har jag bara ett minne isatt. Jag vet inte om fläktarna på grafikkortet skall snurra vid start, någon som vet det? Hur kan man se att det finns liv i kortet? Jag ska försöka få tag på en skärm sen. Kommer inte finnas HDMI men väl DVI eller VGA iaf. Jag har kollat runt på nätet och funderar på en sak. I instruktionsboken till moderkortet så fattade jag det som att man antingen skulle koppla in 24-pin (nätaggregatet) till moderkortet ELLER 8-pin från nätaggr till moderkortet. Jag har, vid CPU, en kontakt med 4pin. Skall jag koppla in någon ström där eller räcker det med den 24-pin kontakten? Processorfläkten snurrar ju iaf. Behöver processorn extra ström eller räcker det med 24-pin kontakten från aggr till moderkortet!? Kan detta vara lösningen på mitt problem?
  4. Ja, switchcard satt i den gråvita och grafikkortet i den blåa. jag ska genast testa med det som du säger..... jag har dock testat att koppla en VGA och sen även en HDMI ifrån moderkortets utgångar, men det fungerade inte heller.... men jag ska koppla ur som du sa. edit: Jag har testat att köra utan SwitchCard, grafikkortet, hdd samt dvdn. kopplade en VGA och senare även en HDMI till moderkortet, men inget händer på skärmen... till saken hör ju att jag har en annan dator kopplat till just denna tvn, med en VGA kabel.... så tvn fixar ju iaf från den datorn till tv, via VGA. Det fanns redan kylpasta på cpu-fläkten, så jag tyckte jag fick god yta, fick trycka ner ganska hårt för att få fläkten på plats. CPU passade jättebra, den behövdes inte tryckas ner.... utan det va mer när fläkten skulle dit. något mer tips?
  5. Hej Jag tänkte prova på och bygga en egen dator, har aldrig gjort det förrut. Jag köpte detta paket på dustin. DUSTIN DATORPAKET AMD PHENOM II X6 1055T/4GB/1TB/HD6870 OC Nu när jag äntligen är klar med byggt så fungerar det inte. Det finns en del fläktar, alla snurrar när jag startar datorn, förrutom de på grafikkortet. Men problemet är att det inte blir någon bild på tvn. Jag har en LCD tv som skärm. Det finns en liten grön lampa som lyser på moderkortet. Jag har testat och dragit ur ram-minnena. Kört med bara ett minne osv. Inget fungerar. läste att det kund vara fel... men som sagt, ingen bättring. Jag har två platser för grafikkortet, PCIE-1 och PCIE-2. Jag fick med något annat kort som det stod att jag skull sätta på plats nummer 1. Och att jag skulle ha själva grafikkortet på plats nummer 2. Allt är ju helt nytt och jag har vart försiktig och haft antistatband på mig å allt. Någon som har något tips!? tacksam för svar.
  6. hej, jag har kollat på denna datorn nu.... HP pavillion DM3-1070eo dator Den har 13,3" skärm. 320gb 7200rpm, Geforce G105M grafikkort. Den har endast 7 tim i batteritid.... 4gb med max 8gb. Är det ett bra grafikkort.... om man jämför med det som cecila skrev ovan, hur står det sig då? alltså mellan intel gma och mobility radeon? tacksam för svar!
  7. Hej, tack för att du tog dig tid. Jag surfade in på din länk och såg mkt som man kunde ha nytta av. Vilken utav dessa två processorer är bäst då? Intel Core 2 Duo SU7300 eller Intel Pentium SU4100. Det va de enda som jag fick fram efter att ha filtrerat ut ytterliggare på batteritid. här är svaren jag fick då. prisjakt Det jag kan se direkt är ju en skillnad i processor, men sen har jag inte kikat närmare, men jag kan tänka mig att det kanske är hårddiskutrymme som är skillnad på pris.. tacksam för svar Ps. Det kanske ter sig va onödigt med 8Gb, men man kan ju vilja bygga ut senare... och kanske arbeta i photoshop kanske.... ngn gång.
  8. Hej, jag söker en minipc, den jag söker skall vara 10-12" helst (kanske 13") Jag vill dock komma så nära en "bärbar dator" som möjligt. Det skall vara 8 tim batteritid minimum, gärna 4gb i ramminne, och utbyggbart till 8gb. Sen vill jag att det skall finnas HDMI och VGA på den. Ngr USB. Behöver inte vara en DVDrom... ingen webkamera behövs..... operativsystem spelar ingen roll....win 7 eller vista kanske.... Men pigg, snabb och bra maskin som man kan koppla till LCD skärm och köra filmer, surfa, och leka med liksom. Som skulle kunna fungera lite som en stationär.... Grafiken måste ju va bra också då.....sen är det måste med WLAN.... sen gärna också 3G förberedd.... ej krav dock. Finns det ngn där ute som har ngt tips, för - och nackdelar osv.... priset spelar ingen stor roll..... men gärna inte över 10k. Viktigast är att jag får tips som jag kan utgå ifrån..... tacksam för svar
  9. oj, förlåt. Trodde ingen skulle svara så sent Jag tror vi använder SQL server 2005? kan det vara så tror du? //Mever
  10. Hej, jag undrar om man kan länka till en mapp på nätverksserver på en hemsida. Man kan ju alltid länka till dokument och så vidare i en specifik mapp på en hårddisk.... MEN kan man länka till själva MAPPEN? så att man får upp en UTFORSKARE med den mappens innehåll, och sen får trycka sig vidare därifrån...?! Hur skriver man då? tacksam för svar. M.Mever
  11. Jajamensan....... det va roten till allt detta... så jag började liksom "lösa" problem som inte var problem alls.... jag har ju två sidor som sagt men jag vill bara ha paging på den ena... den som visar för användarna...... och nu är det så, den sorterar tidsmässigt också..... det va SQL satsen som jag hade velat till....... Så nu fungerar allt...... förmodligen inte säker mot sk SQL injections... va jag vet... men men.... tror inte det behövs heller..... tack så mkt för all hjälp alla.... M.Mever
  12. Hej igen..... ber om ursäkt... det va ett så kallat rättighetsproblem tydligen......... jag gjorde ju om rättigheterna men sen så startade jag inte om datorn.... gör jag typ aldrig, och det va det som var felet tydligen.... Mvh M.Mever
  13. Hej... Nu har ett annat problem uppstått.... jag har två sidor, en nyheter.asp och en admin_nyheter.asp på nyheter syns bara inläggen och den sidan har jag nu paging på. Sen när jag vill då komma åt adminsidan så fungerar inte det längre... när jag kommer till admindelen första gången så visas ett inloggningsformulär. Men hur jag än gör så får jag inte lösen och anvnamn att matcha längre..... varför kan detta bli så.... nu när jag har paging på den andra sidan!??! eller va har hänt??? jag har ju sidnr nu... p=1 osv... i pagingen, måste detta skickas med på ngt sätt till adminsidan!?!? tacksam för svar...... börjar bli småtokig på detta... M.Mever
  14. Jo, jag kikade på post osv, men det kan det inte vara..... jag har post överallt...... har ej ändrat ngt, fungerade ju innan jag hade paging.... har doock grejat lite med Recordset obj.... för att få pagingen att fungera... Men pagingen skall inte vara på min admin sida, utan den ska bara vara på den andra sidan. där man visar alla inlägg för användaren ju........ jag kan bifoga koden för min adminsida om så önskas... så kan ni får kika på det..... <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <!--' Detta skall fixa så att det är svenska, men fungerar inte så bra tycker jag--> <% Session.lcid=1053 %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>- ADMIN</title> <link href="index.css" rel="stylesheet" type="text/css" /> </head> <% ' Om man har loggat in precis och lösenordet ska kollas If Request.QueryString("action") = "kontroll" Then Losen_ord = Request.Form("Pass") Anvandare = Request.Form("Anvnamn") '************************************HÄMTA UT LÖSENORD OCH ANVÄNDARNAMN******************************* '***************************************************************************************************** 'strPathToDB="C:\inetpub\wwwroot\nyhet.mdb" strPathToDB="C:\inetpub\wwwroot\nyhet.mdb" ' Öppna databaskoppling SET conn = Server.CreateObject("ADODB.Connection") ' För lokalt bruk conn.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&strPathToDB '******************************************************************************************** ' För internetbruk 'conn.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("databas/nyhet.mdb") '******************************************************************************************** ' Skapa ett objekt, recordset SET objRS=Server.CreateObject("ADODB.Recordset") 'set rs=Server.CreateObject("ADODB.recordset") str ="SELECT * FROM Login WHERE Anv_namn='" & Anvandare& "' AND Losen='" & Losen_ord & "'" 'objRS.Open str,conn 'TESTLOOP set objRS =Server.CreateObject("ADODB.recordset") objRS.Open "Select * from Login", conn, 3, 1 objRS.PageSize = 2 'SLUT TEST If not objRS.EOF Then Session.Timeout = 1 Session("Anv_namn") = objRS("Anv_namn") ' När man nu laddar om sidan kommer då "hela" innehållet att visas Response.Redirect("admin_nyhet.asp") Else response.Write "<h4> Användarnamn och lösenord matchar inte </h4>" End If End If ' Om allt är okej och man har loggat in If Session("Anv_namn") = "me" OR Session("Anv_namn") = "be" then ' Sökväg till databasfilen '*******För lokalt bruk******* 'strPathToDB="C:\inetpub\wwwroot\nyhet.mdb" strPathToDB="C:\inetpub\wwwroot\nyhet.mdb" ' Öppna databaskoppling SET conn = Server.CreateObject("ADODB.Connection") '************************************************************************************************ ' För lokalt bruk conn.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&strPathToDB '************************************************************************************************ '************************************************************************************************ ' För internetbruk 'conn.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("databas/nyhet.mdb") '************************************************************************************************ ' Skapa ett objekt, recordset SET objRS=Server.CreateObject("ADODB.Recordset") 'objRS.Open "Select * from Login", conn, 3, 1 '****************************************LÄGGA TILL INLÄGG********************************************************************************* ' Om man vill lägga till ett nytt inlägg, då har man fått värdet nytt_inlagg If Request.QueryString("action") = "nytt_inlagg" Then rubriken = Request.Form("rubrik") texten = Request.Form("text") 'meijer1 = rubriken 'meijer2 = texten 'Response.Write(meijer1) 'Response.Write("JONTESOM SA<br><br>") 'Response.Write(meijer2) ' Inlägget får här ett datum och en tidpunkt DatumTid = Now() ' Inlägget skall ha ansvarig person, denna hämtas med sessionsvariabeln Anv_namn i tabellen Login i DB (Nyhet) Login_anv = Session("Anv_namn") strSQL="SELECT Ansvarig FROM Login WHERE Anv_namn='"&Login_anv&"'" 'objRS.Open sqlSQL, conn, 3, 1 'objRS.Update BloggstrSQL,3,1 SET objRS=Conn.execute(strSQL) 'TESTING 'set objRS =Server.CreateObject("ADODB.recordset") 'objRS.Open "Select * from Login", conn, 3, 1 'objRS.PageSize = 2 'TESTING 'Response.Write("JÄVLA PISS") 'Response.Write("<br><br>") 'Response.Write(texten) If objRS.EOF Then Response.Write("Hittade ingen data") Else ' ' Det som finns i "Ansvarig" hamnar i variabeln Ansvarig, och skickas senare till DB Ansvarig = objRS("Ansvarig") END if '******************************************************************** ' Har jag tid så fixa en bättre kontroll........ ' Om man inte skrivit in någon rubrik If Request.Form("rubrik") = "" Then ' Om det inte finns någon rubrik, tilldelas en rubrik som syns nedan rubriken = "[ingen_Rubrik_Inskriven]" End If ' Om man inte skrivit in någon text If Request.Form("text") = "" Then ' Om det inte finns någon text, tilldelas en text som syns nedan texten = "[ingen_Text_Inskriven]" End If ' Det ska vara med text, rubrik, datum/tid, ansvarig och användarnamn sql = "INSERT INTO Blogg (Rubrik,[Text],Datum, Ansvarig, Anv_namn) VALUES ('"&rubriken&"','"&texten&"', '"&DatumTid&"', '"&Ansvarig&"', '"&Login_anv&"')" ' Operationen utförs på datbasen 'response.write sql 'response.end conn.Execute sql 'conn.update ' Efter att man utfört operationen på databasen så laddas sidan om. Response.Redirect("admin_nyhet.asp") End If '****************************************SLUT PÅ LÄGGA TILL INLÄGG************************************************************************* '********************************************RADERA INLÄGG********************************************************************************* ' Om man vill radera ett inlägg, då har man fått värdet "radera" If Request.QueryString("action") = "radera" Then raknareINLAGG = Request.QueryString("id") ' Finns något id för vilken post man vill radera (måste alltid finnas), ta bort posten If Not raknareINLAGG = "" Then sql = "DELETE FROM Blogg WHERE Bloggnr="&raknareINLAGG conn.Execute sql ' För att alla inlägg ska fortsätta visas om man en gång valt det... If Request.QueryString("visa") = "alla" Then visaalla = "?visa=alla" Else visaalla = "" End If Response.Redirect("admin_nyhet.asp"&visaalla) End If End If '****************************************SLUT PÅ RADERA INLÄGG****************************************************************************** '****************************************OM MAN VILL ÄNDRA ETT INLÄGG*********************************************************************** 'Om man vill ändra ett inlägg så ska man få upp de inmatade värdena i "samma" formulär som det man matade in i If Request.QueryString("action") = "andra" Then raknareINLAGG = Request.QueryString("id") ' Plocka ut det befintliga i databasen sql = "SELECT Rubrik, [Text] FROM Blogg WHERE Bloggnr="&raknareINLAGG objRS.Open sql, conn texten = objRS("Text") rubriken = objRS("Rubrik") objRS.Close End If ' Om man har ändrat och vill spara det nya If Request.QueryString("action") = "andra_inlagg" Then ' Leta upp id för vilken post om ska ändras och spara det nya inlägget raknareINLAGG = Request.QueryString("id") texten = Request.Form("nytext") nyrubrik = Request.Form("nyrubrik") nyDatumTid = Now() nyAnsvarig = Session("Anv_namn") ' SQL uttrycket för att uppdatera STRsql = "UPDATE Blogg SET [Text]='"&texten&"', Rubrik='"&nyrubrik&"', nyDatumTid='"&nyDatumTid&"', nyAnsvarig='"&nyAnsvarig&"' WHERE Bloggnr="&raknareINLAGG conn.Execute STRsql Response.Redirect("admin_nyhet.asp") End If '***********************************************SLUT PÅ ÄNDRA******************************************************************************* End If 'Denna tillhör Sessionen %> <!--****************************************HÄR BÖRJAR BODY*******************************************************--> <body link="#999900"> <!--Här skapas en huvudtabell som består av 2 rader och 3 kolumner. --> <table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#52718c" > <tr> <td>&nbsp;</td> <!--Här skapas min header. En bild som är gjord i photoshop.--> <td width="829" align="center" class="Top_Banner"> <div class="huvudmeny"> <!--//Denna skapar utseendet för HuvvudMenyn--> <!--//Denna tabell är för HuvudMenyn och innehåller en bild.--> <table width="100%" border="0" cellpadding="0" cellspacing="0" class="HuvudMeny_Bild"> <tr> <!--//Här nedan är HuvudMenyn, som består av länkar till andra sidor.--> <td><b><a class="HuvudMeny1" href="index.html" title="Hem">Hem</a></b></td> <td><b><a class="HuvudMeny1_Vald" href="Nyheter.asp" title="Aktuellt">Aktuellt</a></b></td> <td><b><a class="HuvudMeny1" href="Styrelse.html" title="Styrelse">Styrelse</a></b></td> <td><b><a class="HuvudMeny1" href="Studier.html" title="Studier">Studier</a></b></td> <td><b><a class="HuvudMeny1" href="Skydd.html" title="Skydd">Skydd</a></b></td> <td><b><a class="HuvudMeny1" href="Forsakringar.html" title="Försäkringar">Försäkringar</a></b></td> <td><b><a class="HuvudMeny1" href="Fritid.html" title="Fritid">Fritid</a></b></td> <td><b><a class="HuvudMeny1" href="Lankar.html" title="Länkar">Länkar</a></b></td> </tr> </table> <!--Denna sluttaggen stänger tabellen som används för huvudmenyn--> </div> <div class="undermeny"> <!--//Denna skapar utseendet för UnderMenyn <!--//Denna tabell är för UnderMenyn och innehåller en bild.--> <table width="100%" border="0" cellpadding="0" cellspacing="0" class="UnderMeny_Bild"> <tr> <!--//Här nedan är UnderMenyn, som består av länkar till andra sidor.--> <td> </td> </tr> </table> <!--Denna sluttaggen stänger tabellen som används för undermenyn--> </div> <div class="mainsida"> <!--//Denna skapar utseendet för "main-fönstret"--> <!--//Denna tabellen är till för själva informationsmängden. Innehåller en bakgrund.--> <table width="100%" border="0" cellpadding="0" cellspacing="0" class="Main_Bild"> <tr> <!--Detta är en tom cell så att inte texten hamnar ända till vänster. Bredden på cellen är fast--> <td width="40">&nbsp;</td> <!--//Här nedan skrivs rubriken--> <!--Här används en class som sätter typsnitt och storlek på rubriken--> <td height="30" class="rubrik"><hr width="40%" align="left"></hr><b>AKTUELLT</b><hr width="40%" align="left"></hr></td> </tr> <tr> <!--Detta är en tom cell så att inte texten hamnar ända till vänster. Bredden på cellen är fast--> <td width="40">&nbsp;</td> <!--Ändra storleken på main-fältet här--> <td height="1350" class="brodtext"> <!--Här används en class som sätter typsnitt och storlek på brödtexten.--> <!--//Här nedan skrivs den text som skall finnas på sidan--> <span class="underrubrik">Administration</span><br/> <% ' Om man inte redan har loggat in, visa loginformuläret If Not (Session("Anv_namn") = "be") AND NOT (Session("Anv_namn") = "me") then %> <br> <a href="Nyheter.asp" class="tillbaka_nyheter">Tillbaka till aktuellt </a> <span class="text_support"> <b>OBS!</b><br> Har du inte fått användarnamn och lösenord? maila <u><a class="MailToInfo" href="#">/a></u> och be dem skicka detta till dig. </span> <% %> <span class="logga_in">- Inloggning -</span><br/> <form id="Login" name="Login" method="post" action="admin_nyhet.asp?action=kontroll"> <span class="textlogin">Användarnamn: <br><br>Lösenord:</span> <input name="Anvnamn" type="text" id="Pass" class="loginanv" maxlength="30"> <input name="Pass" type="password" id="Pass" class="loginpass" maxlength="30"> <input type="submit" name="Ok" value="Logga in!" class="loginknapp" > </form> <% End If ' Annars, om man redan har loggat in - visa hela sidan, förutom loginformuläret If (Session("Anv_namn") = "be") OR (Session("Anv_namn") = "me") then ' För att få veta vem som är inloggad, hårdkodat..... If(Session("Anv_namn") = "be") then valkommen = "Ruben" else valkommen = "Martin" end if %> <br> <!--Visar vem det är som är inloggad nu--> <span class="inloggad">Inloggad: <%=valkommen%></span> <a href="Nyheter.asp" class="lankhuvud">Tillbaka till aktuellt </a> <a href="Logout_nyhet.asp" class="logga_ut" onclick('Logout_nyhet.asp')>[Logga Ut]</a> <% If NOT Request.QueryString("action") = "andra" Then %> <form name="nytt_inlagg" method="post" action="admin_nyhet.asp?action=nytt_inlagg" class="nyttinlagg1_nyhet"> <br> <hr width="55%" align="left"> Skriv ett nytt inlägg:<a name="NyttInlagg"></a><br> <table width="317" height="88" border="0"> <tr> <td width="39">Rubrik:</td> <td width="268"><input name="rubrik" type="text" id="titel" class="nyttinlagg_nyhet" size="30" maxlength="50"></td> </tr> <tr> <td valign="middle">Text:</td> <td><textarea name="text" cols="65" rows="7" wrap="virtual" id="inlagg" class="nyttinlagg_nyhet" maxlength="500000"></textarea></td> </tr> <tr> <td valign="middle">&nbsp;</td> <td><input name="spara" type="submit" id="spara" class="nyttinlagg_nyhet" value="Spara inl&auml;gget" ></td> </tr> </table><hr width="60%" align="left"> </form> <br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br> <%else ' 'OM MAN NU VILL ÄNDRA I INLÄGGET VISA DETTA FORMULÄR %> <form name="andra_inlagg" method="post" action="?action=andra_inlagg&id=<%=raknareINLAGG%>" class="nyttinlagg1_nyhet"> <br> <hr width="55%" align="left"> Ändra inlägget:<a name="AndraInlagg"></a><br> <table width="317" height="88" border="0"> <tr> <td width="39">Rubrik:</td> <td width="268"><input name="nyrubrik" type="text" class="nyttinlagg" id="nyrubrik1" value="<%=rubriken%>" size="30" maxlength="50"></td> </tr> <tr> <td valign="middle">Text:</td> <td><textarea name="nytext" cols="65" rows="7" id="nytext1" class="nyttinlagg" ><%=texten%></textarea></td> </tr> <tr> <td valign="middle">&nbsp;</td> <td><input name="spara_ny" type="submit" id="spara_ny" class="nyttinlagg" value="Spara inl&auml;gget"> <input name="avbryta" type="button" id="avbryta" class="nyttinlagg" value="Avbryt" onClick="window.location.href='admin_nyhet.asp'"> </td> </tr> </table><hr width="60%" align="left"> </form> <%end if%> <% ' En kontroll om man har valt alla eller de 2 senaste inläggen och isf vilken rubrik som skall visas If Not Request.QueryString("visa") = "alla" Then%> <span class="senasteinlagg"> De två senaste inläggen:</span><br> <%Else%> <span class="senasteinlagg"> Alla inläggen:</span><br> <%end if%> <br> <!--En tabell med två rader med två kolumner på varje rad--> <table class="utskrift" width="490" border="0"> <% If Not Request.QueryString("visa") = "alla" Then ' Hämta ut 2 senaste poster från databasen sql = "SELECT TOP 2 Bloggnr,Rubrik,[Text],Datum,Ansvarig FROM Blogg ORDER BY Datum DESC" Else ' Hämta ut alla poster från databasen ANSVARIG sql = "SELECT Bloggnr,Rubrik,[Text],Datum,Ansvarig FROM Blogg ORDER BY Datum DESC" End If objRS.Open sql, conn ' Skriv ut inläggen och lägg till "Radera" länken och "Ändra" länken Do Until objRS.Eof = True ' Gör så att alla enterslag visas, samma som på huvudsidan inlagget = Replace(objRS("Text"),vbCrLf,"<br>") ' Gör så att om man valt att visa alla poster så ska den fortsätta göra det sen också If Request.QueryString("visa") = "alla" Then visaalla = "&visa=alla" Else visaalla = "" End If %> <tr> <td> <span class="rubrik_admin"> <%' Här sker utskriften.....på adminsidan Response.Write("<b><u> "&objRS("Rubrik")&"</u></b>")%> </span> </td> <td> <%Response.Write("<b>"&objRS("Datum")&"</b><br>")%> </td> </tr> <tr> <td> <%Response.Write("<b>"&inlagget&"</b><br><br>")%> <%' Här lägger jag till Radera-länken till varje inlägg och Ändra länken Response.Write("<a href='admin_nyhet.asp?action=radera&id="&objRS("Bloggnr")&visaalla&"'""> Radera</a> | <a href=admin_nyhet.asp?action=andra&id="&objRS("Bloggnr")&">&Auml;ndra</a><br><hr><br>")%> </td> <td> <%Response.Write("Skapad av:<i>&nbsp;&nbsp;<br>"&objRS("Ansvarig")&"</i>")%> </td> </tr> <% ' Skriv ut nästa objRS.MoveNext Loop ' Nu behövs inte databasen mer, stäng den och ta bort allt! objRS.Close Set objRS = Nothing %> </table> <br> <!--'Vilken länk som visas beror på om alla eller 2 inlägg visas för tillfället--> <% If Not Request.QueryString("visa") = "alla" Then %> <a href="?visa=alla" class="lankar">-Visa alla inlägg-</a> <% Else %> <a href="admin_nyhet.asp" class="lankar">-Visa de två senaste inläggen-</a> <% End if %> <% End if%> <br> </td></tr></table></div> </td> <td></td> </tr> <tr> <td>&nbsp;</td> <!--Här nedan är innehållet i min footer, jag använder mig utav en class som heter footer Från den klassen får jag textstorlek, textfärg m.m--> <td width="829" class="footer" > Preemraff AB, 453 81 Lysekil <br/> Tel. , Fax. <br/> <a class="MailToInfo" href="#"></a><br/> <!-- Här nedan är mitt Javascript, ett enkelt script som visar dagens datum och tid.--> <!--<script language="JavaScript" type="text/javascript"> <!-- document.write ( " " + Date ( ) ); //--> <!--</script>--> </td> <td>&nbsp;</td> </tr> </table> <!--Denna sluttaggen stänger tabellen med 2 rader och 3 kolumner. Den tabellen som sidan är uppbyggd på.--> </body> </html>
×
×
  • Skapa nytt...