Sebbe
- Medlem sedan
- Inlägg
- 2 285
- Trådar startade
- 26
- Aktiv
- 2003–2009
Inlägg — sida 34 av 50
- wF²-bar
Lofberg skrev: > Sebbe skrev: > > Va, fattar inte? > Fattar du Piiip? \Teama upp\ §e Piiip fattar ;) , det är bara du som är korkad :p §e Sa jag någonsin att jag skulle dricka…
- Hjälp med For-sats
Kanske så här? If Request.Querystring("val") = "nyLank" then Response.Write "<form method='post' action='?val=nyLankSteg2'>" & "<br><b>Lägg till nya länkar</b><br><br>" & "Hur…
- Kolla om pattern finns med regexp
Jo, men testa detta så förstår du vad jag menar! Response.Write("Response.Write(""Hej"")") Execute("Response.Write(""Hej"")")
- vägrar ta bort rs..
Text är ett reserverat ord. Antingen byter du namnet på fältet, eller så ändrar du raden till det här: strSQL = "INSERT INTO klotter ([text], namn, namnid, datum) VALUES ('" &…
- <%=Left(rs("titel"),30) %>
If Len(rs("titel")) > 30 Then Response.Write(Left(rs("titel"), 30) & "...") Else Response.Write(rs("titel")) End If
- wF²-bar
Va, fattar inte? Fattar du Piiip? \Teama upp\ §e
- vägrar ta bort rs..
Ojdå, byt bara ut den raden till strSQL = "INSERT INTO klotter (text, namn, namnid, datum) VALUES ('" & Request.Form("inlagg") & "', '" & Session("user") & "', '" & Session("id")…
- Kolla om pattern finns med regexp
Typ så här kanske? Lite trött, så fel kan (kommer) förekomma. ;) Dim arrKat() i = 0 strKod = "<html>" & "<title>Testsida</title>" & "</head>" & "<body>" & "Här står lite text" &…
- vägrar ta bort rs..
Inte helt säker på vad allt gör i din kod, men något sånt här kanske? :) <% nextPage = TRIM( Request("nextPage")) IF nextPage = "" THEN nextPage = 1 Set Connect =…
- wF²-bar
\Snor Lofbergs cola och springer utav h-vete!\ §e
- vägrar ta bort rs..
Det låster nästan som om du har någon annan Response.Redirect() någonstans som skickar vidare besökaren dit, för att om det inte tas bort när man har gjort så där är en praktisk…
- Kolla om pattern finns med regexp
Va, nu fattar jag inte riktigt? :q
- vägrar ta bort rs..
OK, nu kör vi en hårdkoll här! ;) if request.querystring("action")="tabort" then If IsNumeric(Request.QueryString("ID")) Then strSQL = "SELECT id FROM klotter WHERE id = " &…
- vägrar ta bort rs..
Du råkar inte ha med On Error Resume Next någonstans i koden, eftersom felmeddelanden då inte visas?
- vägrar ta bort rs..
Är du säker på att det finns något värde i querystringen då? if request.querystring("action")="tabort" then If IsNumeric(Request.QueryString("ID")) Then strSQL = "DELETE FROM…
- Kolla om pattern finns med regexp
Om du lagrar det i en array då? :) IF objRegExp.test(kod) THEN Dim arrKatalog() i = 0 Set objMatches = objRegExp.Execute(kod) For Each Match In Matches ReDim Preserve…
- Kolla om pattern finns med regexp
IF objRegExp.test(kod) THEN Set objMatches = objRegExp.Execute(kod) For Each Match In Matches katalog = Mid(Match.Value, 16) katalog = Left(katalog, Len(katalog) - 1) Next Set…
- vägrar ta bort rs..
Det kanske går bättre om du tar bort det med SQL direkt? if request.querystring("action")="tabort" then strSQL = "DELETE FROM klotter where id = "&request.querystring("ID")…
- Hämta namn på mapp
Eller så kanske det var så här du menade? strPath = Request.ServerVariables("SCRIPTNAME") Response.Write(Left(strPath, InStrRev(strPath, "/") - 1))
- Problem med min if sats...
Kanske såhär (om tabellen anv är ett nummer och sessionen också är ett nummer)? <% Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "Driver={Microsoft Access…