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

teamelin

Medlem
  • Antal inlägg

    13
  • Gick med

  • Senaste besök

    Aldrig

Allt postat av teamelin

  1. Så efter över 30 inlägg blev gästboken äntligen klar!! Tack vara cyprys skulle jag vilja säga!! Men alla andra som har hjälp vill jag också tacka!! mvh Kristoffer
  2. Gjorde en ny databas i Access 97 så nu kan jag radera meddelanden... Tack än en gång!! Bara en sista fråga; Går det att göra så man får en radbrytning när man skriver i gästboken utan att använda html??
  3. Jaaaaaa äntligen... den fungerar!! Tack ska du ha!! Jag gjorde ett nytt konto och då fungerade gästboken perfekt!! Måste ha varit det där att jag tog bort katalogen db som gjorde alla problem... Självklart så får du länk på min länksida om du vill ha det?? cyprys.com är adressen va?? Tänkte bara höra med dig, nu kan jag ju inte radera inlägg från gästboken eftersom jag har Access 97 och den nya databasen är gjord i Access 2000... Så finns det några drivrutiner eller något annat som gör att man kan öppna databaser som är gjorda Access 2000 i Access 97?? Men hur som helst tack så j*kla mycket!!!! Gästboken ligger på denna adress: http://www22.brinkster.com/gastboken //MedVänligaHälsningar Kristoffer =)
  4. ok.. nu är jag jävligt sur...... Det FUNGERAR INTE!!!!!!!!!!! Så här ligger det till: Jag laddade hem din zip fil, men tyvärr har väl du Access 2000 eller liknande och jag har bara Access 97 så jag kunde inte öppna och jämföra din och min databas. Hur som helst, jag laddade upp default.asp och gaster.mdb på brinkster. Jag testade och skriva i gästboken, men samma felmeddelande, fel på linje 27. Då gjorde jag en ny databas, som jag vet att det inte var något fel på... Laddade upp den, men samma felmeddelnade igen. Frågan är bara, hur lyckas du få igång gästboken, och inte jag fast vi använde samma filer?? Har det nån betydelse om man tar bort mappen "db" och sedan gör en ny mapp med samma namn?? Om du vill så kan jag skicka ett mail med mitt lösenord så kan du gå in och kolla på den själv!! [inlägget ändrat 2001-07-10 13:25:19 av teamelin]
  5. Ok.. jag har kollat på databasen, och fältet "av" stog på PM, har nu ändrat det till text. Den var inte skrivskyddad. Laddade upp den nya databasen, men fortfarande samma fel meddelande: Microsoft OLE DB Provider for ODBC Drivers error '80040e14' [Microsoft][ODBC Microsoft Access Driver] Syntax error in INSERT INTO statement. /teamelin/default.asp, line 27 Om inte jag minns fel så hade väl du blivit medlem på brinkster?? Isf kan väl du ladda upp dina filer på ditt konto? Jag tror vi eller rättare sagt du är nära en lösning.
  6. Jag vet att du har hjälpt mig mycket, men när ändå har hjälpt mig så mycket, kan du då inte hjälpa mig hela vägen?? När man skriver i gästboken kommer detta meddelande: Microsoft OLE DB Provider for ODBC Drivers error '80040e14' [Microsoft][ODBC Microsoft Access Driver] Syntax error in INSERT INTO statement. /teamelin/default.asp, line 27 Detta är från rad 20-32: If Request.QueryString("add") = "yes" Then texten = Request.Form("texten") av = Request.Form("av") mail = Request.Form("mail") sida = Request.Form("sida") Conn.Execute("INSERT INTO gaster (texten, av, mail, sida) VALUES('"&texten&"', '"&av&"', '"&mail&"', '"&sida&"');") Response.Redirect "default.asp" End If %> Det är alltså något fel när den ska skapa inläggen. Du kan ju kolla in gästboken på den här adressen: http://www22.brinkster.com/teamelin
  7. Tjena igen! Nu kan man iaf titta i gästboken, men fortfarande ett litet problem kvar. Man kan inte skriva i den, det är på den här raden som något är fel: Conn.Execute("INSERT INTO gaster (texten, av, mail, sida) VALUES('"&texten&"', '"&av&"', '"&mail&"', '"&sida&"');") Jag har ändrat text till texten och hemsida till sida överallt i koden. Men det går ändå inte att skriva något i gästboken. Om du lyckas fixa det här så kommer du givetvis få en länk (cyprys.com)på min hemsida. Kanske inte är så mycket att ha, men jag har ändå ganska många hattrick tokar som är inne och kollar min hemsidan. Mvh Kristoffer
  8. Öhh.. lite väl avancerat för mig?? Så här ser default.asp ut just nu: <!-- #include file="adovbs.inc" --> <html> <title>teaMelin.has.it</title> <script language="JavaScript"> <!-- function kontrollera() { if (document.skriv.text.value == "") { alert("Du måste skriva något!") return false } if (document.skriv.av.value == "") { alert("Du har ej angett ditt namn!") return false } if (document.skriv.mail.value == "" || document.skriv.mail.value.indexOf('@', 0) == -1) { alert("Ogiltig E-post adress!"); return false; } } // --> </SCRIPT> <STYLE TYPE="text/css"> <!-- A:link {color: 0000FF; text-decoration: none;} A:visited {color: 0000FF; text-decoration: none;} A:hover {color: 0000FF; text-decoration: underline;} A:visited:hover {color: 0000FF; text-decoration: underline;} A:active {color: 0000FF; text-decoration: none;} body { font-family: Verdana; font-size: 8pt; color: #000000; } body { cursor: default; background: #008000; } table { background: #BDD600; } font { font-family: Verdana; font-size: 7pt; color: #000000; } td { font-family: Verdana; font-size: 8pt; background: #BDD600; } --> </STYLE> </head> <body> <html> <body> <table border="0" cellspacing="10" cellpadding="10" align="left"> <br> meny </table> </body> </html> </td></tr> </table> <center><br> <img src="http://w1.241.telia.com/~u24103970/grafik/gastbokbig.gif" width="400" height="20"></center><br> <table align="center" width="400"> <tr><td width="400"> <% '===================================================================================================================== %> <% ' Välkomstkod %> <% '===================================================================================================================== %> <% If Request.QueryString("what") = "" Then %> Vad vill du göra?<p> <ul> <li><a href="default.asp?what=skriv">Skriva i gästboken.</a> <li><a href="default.asp?what=tidigare&open=yes">Se tidigare inlägg i gästboken.</a> </ul> <% End If %> <% '===================================================================================================================== %> <% 'Öppnar databasen %> <% '===================================================================================================================== %> <% If Request.QueryString("open") = "yes" Then %> <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\teamelin\db\gaster.mdb") Set RecSet = Server.CreateObject("ADODB.Recordset") %> <% End If %> <% '===================================================================================================================== %> <% ' Formulärskod för att göra inlägg %> <% '===================================================================================================================== %> <% If Request.QueryString("what") = "skriv" Then %> <form method="POST" name="skriv" onSubmit="return kontrollera()" action="default.asp?open=yes&add=yes"> Skriv ett inlägg!<br> <textarea cols="25" rows="8" name="text"></textarea><br><br> Ditt namn:<br> <input type="text" size="20" name="av"><br><br> Din e-post:<br> <input type="text" size="20" name="mail"><br><br> Din hemsida:<br> <input type="text" size="20" name="hemsida" value="http://"><br><br> OBS! För att skriva i gästboken måste du fylla i ett inlägg, ditt namn och din e-post.<br><br> <input type="submit" value="Lägg till ditt inlägg"> </form> <% End If %> <% '===================================================================================================================== %> <% ' Formulärskod för att skapa inlägg %> <% '===================================================================================================================== %> <% If Request.QueryString("add") = "yes" Then %> <% Addera = "SELECT * FROM gaster" RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic RecSet.AddNew RecSet("text") = Request.Form("text") RecSet("av") = Request.Form("av") RecSet("mail") = Request.Form("mail") RecSet("hemsida") = Request.Form("hemsida") RecSet.Update RecSet.Close Response.Redirect "default.asp" %> <% End If %> <% '===================================================================================================================== %> <% ' Kod för att visa inlägg %> <% '===================================================================================================================== %> <% If Request.QueryString("what") = "tidigare" Then %> <b>Tidigare inlägg i gästboken.</b><p> <hr noshade size="1" color="black"> <% Texter = "SELECT * FROM gaster ORDER BY ID" RecSet.Open Texter, Connect, adOpenStatic, adLockOptimistic Do While Z < 100 If RecSet.EOF Then Exit Do End If %> <% =RecSet("text") %><br><br> <font><b>Från:</b> <a href="mailto:<% =RecSet("mail") %>"><% =RecSet("av") %></a><br> <b>Hemsida:</b> <a href="<% =RecSet("hemsida") %>" target="_blank"><% =RecSet("hemsida") %></a></font><br> <hr noshade size="1" color="black"> <% RecSet.MoveNext Z = Z - 1 Loop %> <br> Skriv ett <a href="default.asp?what=skriv">nytt</a> inlägg. <% End If %> </html> Men hur och var ska jag ändra i koden?? Du är bara så bäst om du kan hjälpa mig att få igång den här gästboken... så du vet!! =)
  9. Nu kan man se gästboken på adressen: http://www22.brinkster.com/teamelin Men när man ska skriva i gästboken och när man ska titta i gästboken så är det nått fel i koden ändå! När man har skrivit i gästboken kommer detta felmeddelande: ADODB.Recordset error '800a0bb9' Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another. /teamelin/default.asp, line 134 Koden här nere är från linje 131-147: <% If Request.QueryString("add") = "yes" Then %> <% Addera = "SELECT * FROM gaster" RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic RecSet.AddNew RecSet("text") = Request.Form("text") RecSet("av") = Request.Form("av") RecSet("mail") = Request.Form("mail") RecSet("hemsida") = Request.Form("hemsida") RecSet.Update RecSet.Close Response.Redirect "default.asp" %> <% End If %> Och att titta i gästboken fungerar inte heller, då kommer detta felmeddelande: ADODB.Recordset error '800a0bb9' Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another. /teamelin/default.asp, line 159 Koden här nere är från linje 157-165: <% Texter = "SELECT * FROM gaster ORDER BY ID" RecSet.Open Texter, Connect, adOpenStatic, adLockOptimistic Do While Z < 100 If RecSet.EOF Then Exit Do End If %> Som du säkert märkte så börjar båda fel raderna med "RecSet.Open", och då är det väl nått fel när den öppnar eller ska hämta något, är det fel av mig?? Men hur ska jag skriva isf?
  10. Hur ska jag skriva för att använda file istället för virtual? Så här har jag ändrat sökvägarna: <!-- #include virtual="adovbs.inc" --> Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\teamelin\db\gaster.mdb") Detta fungerade inte. Kan inte ens öppna default.asp, utan det står "sidan kan inte visas" HTTP 500 - Internt serverfel. Vad gör jag nu??
  11. ok.. jag har laddat upp filena på följande adresser: http://www22.brinkster.com/teamelin/adovbs.inc http://www22.brinkster.com/teamelin/default.asp http://www22.brinkster.com/teamelin/db/gaster.mdb Hur ska då sökvägarna stå?? Ursäkta om jag inte är så haj på asp men jag skulle vara väldigt tacksam för svar..
  12. Jag har suttit och pysslat lite med gästboken man kan få från IDG. Men jag har fått problem, när jag ska ändra sökvägarna till databasen och inc-filen. Vi tar inc-filen först, är det fel att skriva så här? <!-- #include virtual="http://server.com/namn/adovbs.inc" --> istället för så här?? <!-- #include virtual="applications/adovbs.inc" --> Och databasen, ska man inte bara byta ut c:\inetpub\wwwroot\applications\gastbok\data\gaster.mdb mot http://??.com/teamelin/data/gaster.mdb?? <% If Request.QueryString("open") = "yes" Then %> <% Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\inetpub\wwwroot\applications\gastbok\data\gaster.mdb" Set RecSet = Server.CreateObject("ADODB.Recordset") %> <% End If %>
×
×
  • Skapa nytt...