Mezox
-
Antal innehåll
6465 -
Blev medlem
-
Senast inloggad
-
Dagar vunna
1
Allt publicerat av Mezox
-
Nej, det där är unikt med VBScript man använder "AND", "OR" och ett enkelt "="
-
Jag håller på med att göra ett litet "roligt" script i språket "Visual Basic Scripting" (VBScript). Man ska skriva in ett ord, sen ett tal, scriptet skriver då ut "ord1 ord2 ord3 ord4..." Tills den kommer till talet man skrev in, men det funkar inte, man skriver in ordet ach talet sen händer inget. Här är scriptet: <html> <head> <title>VBScript</title> <link href="../Sheet/defualt.css" rel="stylesheet" type="text/css"> </head> <body> <font class="Sheet"> <table width="767" border="0"> <tr> <td> <script language="vbscript"> <!-- ord = Inputbox("Skriv ett/några ord", "Repetera") tal = InputBox("Skriv in ett tal", "Repetera") If ord and tal = "" Then MsgBox "Du hoppade över båda alternativen", "16", "Fel" End If For x = 1 to tal document.write(ord & x & " ") Next //--> </script> </td> </tr> </table> </font> </body> </html>
-
Men det står att sidan är under konstruktion?
-
När du skapar ett nytt dokument så ska du välja resolution: 72 pixel/inch. Jag tror det hjälper...
-
Tack! (jag är inte sarkastisk)Nu vet jag vad jag inte ska göra.
-
Kan jag få en kommentar?
-
Bra, bättre än min första sida... Förresten, kodade du eller använde du program (isåfall, vilket program?).
-
Ja, Databasen funkar. Jag kan fortfarande inte skriva till filen men jag bryr mig inte, bara jag fick databasen att fungera, tack så mycket nico. Förresten, när läggs din sida upp, jag vill gärma se den!
-
Jag mejlade WebNG och de fixade det till mig. :D
-
Datorspråk? ASP, PHP ?
-
I vilket språk?
-
Jag sparar mina i båda.
-
Hu rkontrollerar jag de två första punkterna (jag använder WebNG)
-
Tack, men ett nytt fel: Microsoft JET Database Engine error '80004005' Operation must use an updateable query. /Mezox/Hemsida/steg5.asp, line 18
-
Skriver du in meddelande också? Vad får du för felmeddelande?
-
Då borde du använda Pen Tool... Men det behövs lite kunskaper dock.
-
De flesta jag frågar tycker om F-Secure mer... Och förresten, har du källa för att Norton är bäst i test? Förresten Starfox: Det är ett ANTIvirus program inte ett virusprogram, jag tror inte många betalar för virus.
-
2 3/4 år ungefärOm jag var en av de "duktiga" förstås...
-
Bra, men sätt Gradient Map lagret på Soft Light eller nåt...
-
Men då står det att jag saknar nödvändiga parametrar.
-
Du spammar, du gör ju precis det du själv säger (till skillnad från mig)...Och förresten var kommentaren bara et tillägg, om du inte såg det så var min mening med inlägget att säga att exemplet hade dåligt kvalité men att serien verkade bra i säg själv. Kommer det förresten bli en stor serié kommer det t.ex. finnas flera nummer eller är det bara en berättesle?
-
Jo, men han vill veta hur (om det går).
-
Men f*n, orka spamma ner en tråd för att verka "seriös". Jag tycker den är bra men jag tycker att su borde visa bilden lite tydligare.
-
Tack, nu har jag koden (men det funkar fortfarande inte): <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Set db = Server.CreateObject("ADODB.Connection") db.Provider = "Microsoft.Jet.OLEDB.4.0" db.Open Server.MapPath("IP.mdb") Set rs = Server.CreateObject("ADODB.Recordset") %> <HTML> <HEAD><TITLE>Gör din egen webbsida - 5(5)</TITLE></HEAD> <BODY> <% namn = Session("namn") IP = request.ServerVariables("REMOTE_ADDR") email = Session("epost") sql= "INSERT INTO IP (Namn, IP, Email) Values (namn, IP, email)" db.Execute sql, 1, 2 path = Server.MapPath("/Mezox") fil = path & "/Hemsida/" & Session("url") Set MittTxtObj = CreateObject("Scripting.FileSystemObject") Set MinFil = MittTxtObj.CreateTextFile(fil,True) MinFil.WriteLine("<HTML><HEAD><TITLE>" & Session("rubrik") & "</TITLE></HEAD>") MinFil.WriteLine("<BODY BGCOLOR =" & Session("bfarg") & " TEXT = "& Session("tfarg") & ">") MinFil.WriteLine("<H1><CENTER>") MinFil.WriteLine(Session("rubrik")) MinFil.WriteLine("</CENTER></H1>") MinFil.WriteLine(Session("text")) MinFil.WriteLine("<HR>") MinFil.WriteLine("<CENTER>Denna sida skapades" & date & " av <A HREF = mailto:"& Session("epost") & ">" & Session("namn") & "</A>") MinFil.WriteLine("</CENTER></BODY></HTML>") MinFil.Close %> <H1>Gör din egen webbsida</H1> <H2>Steg 5(5) - Sidan är skapad</H2> Klicka <A HREF = <%=Session("url")%>>här</A> för att gå till den! </BODY></HTML> Felmeddelande: Microsoft JET Database Engine error '80040e14' Syntax error in FROM clause. /Mezox/Hemsida/steg5.asp, line 18
