"NoMoreSpam" <nowhere@nowhere.com> skrev i en meddelelse
news:ZtR7f.71942$Fe7.245619@news000.worldonline.dk...
>> Jeg er ny i ASP, og scriptet er et jeg har hentet som beskrevet
>> tidligere.
>> Jeg har "rodet" lidt med andre script i ASP som virker, men mangler nu
> selve
>> loginscriptet og kan bare ikke få det til at du.
>> Håber at nogle kan se fejlen eller kan hjælpe med et mere overskueligt
>> script. Der virker selvsagt.
>
> Du laver en side hvor du har en form, inden for denne form har du to
> felter
> f. eks. MedlemNr og Kode og en submit knap. Action kan være en ny side
> der indeholder dette:
>
> ' Erklæringer
> Dim conn, strKriterie, rst, strSQL
> Dim Medlemnr, Kode
> ' Hent oplysninger og læg i variabler
> Medlemnr = Trim(replace(Request.Form ("Medlemnr"),"'","''"))
> Kode = Trim(replace(Request.Form ("Kode"),"'","''"))
> ' Lav et recordset
> Set rst = Server.CreateObject("ADODB.Recordset")
>
> ' I stedet for at skrive connection string på hver side bruger
> ' jeg en include fil der indeholder connection string
>
> %>
> <!-- Connection -->
> <!--#include file="inc/connect.asp" -->
> <%
> strSQL = "SELECT * FROM tblMedlem "
> strSQL = strSQL & "WHERE [tblMedlem].[Medlemnr]='" & MedlemNr & "' "
> strSQL = strSQL & "And [tblMedlem].[Kode]='" & Kode & "';"
>
> ' Hvis du udskriver SQL strengen har du en hjælp til fejlfinding
>
> response.write strSQL & "<br>"
> set rst = Conn.Execute (strSQL)
> ' Hvis recordsettet er tomt er der IKKE fundet en bruger med det
> ' medlemsnr og kodeord
> if rst.bof and rst.eof then
> session("LoggetInd") = false
> else
> session("LoggetInd") = true
> end if
> rst.close
> set rst = nothing
> conn.close
> set conn = nothing
> ' Nu kan du lave en redirect afhængig af om Session("LoggetInd") er true
> ' eller false.
>
> Hvis det er total tågesnak vil jeg anbefale dig at læse en bog om ASP.
Lidt tågesnak er det, men hvor om alting er så fik jeg mit første script til
at virke, og kan komme videre.
Jeg fik ryddet lidt op i det og fandt en lille stavefejl.
Men tak for at du gav dig tid.
Flemming
>
> --
> Med venlig hilsen
> Tom Jensen
>
> Læs mere om databaser og asp her:
>
http://www.FFSoft.dk
>
>