--- title: "Snygga upp koden" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/54759-snygga-upp-koden" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "medialabs" published: "2002-10-01T12:14:48.000Z" updated: "2002-10-01T21:19:49.000Z" replies: 7 views: 281 page: 1 pages: 1 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/54759-snygga-upp-koden" --- # Snygga upp koden ## #1 — medialabs, 2002-10-01T12:14Z hej! Skulle nån vilja ta sig en titt på denna kod och se om man kan snygga upp i asp koden. ``` <% IF Request.QueryString("alt") = "login" THEN IF Request.Form("losen") = losenord AND Request.Form("anv") = anvandare THEN Session("access") = "YaHoO" END IF END IF %>

Artiklar
Administration

<%IF Session("access") = "YaHoO" THEN%>
<% Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("kontakter.mdb") IF Request.Querystring("alt") ="del" Then SQL = "DELETE * FROM kunder WHERE ID = " & Request.Querystring("id") Connect.execute(SQL) Response.Redirect "artikel_admin.asp" ELSE SQL = "SELECT * From kunder ORDER BY Kontaktperson" Set RecSet = Connect.Execute(SQL) DO UNTIL RecSet.EOF %>
   
<% RecSet.MoveNext Loop RecSet.Close Set RecSet = nothing Connect.Close Set Connect = nothing END IF %>
<%ELSE%>
LOGGA IN
Anv. namn:
Lösenord:
 
(admin på båda är förvalt)
<% END IF %> ``` Permalänk: https://www.webforum.nu/p/54759 ## #2 — m_soderlund, 2002-10-01T13:10Z Du kan ju till att börja med skriva \<%Option Explicit%\> i början av dokumentet så att du måste deklarera alla variabler. Det ger en liten prestandaökning.. (Dim Connect, SQL....) Permalänk: https://www.webforum.nu/p/804502 ## #3 — fundrusse, 2002-10-01T15:21Z Det ger ingen prestandaökning alls.. Det ända syftet med att dimma grejorna är att man skall kunna felsöka lättare.. Dvs programmera med Explicit Permalänk: https://www.webforum.nu/p/804649 ## #4 — voigtann1, 2002-10-01T15:22Z du använder ju inget ifrån \