Hej
Jeg roder stadig med at oprette en dagbog fra et hæfte, der sker fremskridt,
men jeg er gået står med denne.
jeg komme fra en hovedside, og skal gennem denne validering videre til enten
siden: opret, opdater, eller slet. disse er oprettet og kan godt få dem
vist.
når jeg komme til siden validering fra hovedsiden får jeg vist lidt tekst og
to felter ( brugernavn & adgangskode ) og en knap "Login" men der sker
overhovedet ikke noget når jeg klikker på denne.
Hvad mangler
På forhånd tak
--
Venlig hilsen
Erik Isager
Det jeg har lavet ser sådan ud
---
<%Option Explicit%>
<% 'altid den nyeste
Response.AddHeader "Pragma", "no-cache"
Response.AddHeader "Cache-control", "private"
Response.Expires = -1000
%>
<%
Dim id, funktion, autoriseret, brugernavn, adgangskode
%>
<%
Dim strMsg
strMsg = "Så langt så godt, du er på siden validering "
Response.Write strMsg
%>
<br>
<%
'insætter de variabler som er med fra siden "dagbog"
id= Request.QueryString("id")
funktion= Request.QueryString("funktion")
'skriver værdien af "id" & "Funktion"
Response.Write "id er " &id &"<br>"
Response.Write "og funktion er " &funktion
%>
<%
'undersøger om bruger er logget på fra tidligere...
If Session("validering")= "valid" Then
If funktion= "opret" Then
Response.Redirect("opret.asp?id=" &id)
ElseIf funktion= "opdater" Then
Response.Redirect("opdater.asp?id=" &id)
Else Response.Redirect("slet.asp?id=" &id)
End If
End If
If Request.QueryString("Submit")<> "" Then
'henter værdierne fra felterne brugernavn & adgangskode
brugernavn = Trim(Request(QueryString ("brugernavn") ,"'","''"))
adgangskode = Trim(Request(QueryString ("adgangskode") ,"'","''"))
End If
%>
<!--#include file="forbindelse.asp"-->
<%
Set autoriseret = Server.CreateObject("ADODB.Recordset")
autoriseret.Open "SELECT * FROM adgang WHERE brugernavn= '" &brugernavn& "'
AND adgangskode='" &adgangskode& "'",database
If NOT autoriseret.EOF Then
Session("validering")= "valid"
If funktion= "opret" Then
Response.Redirect("opret.asp?id=" & id)
ElseIf funktion= "opdater" Then
Response.Redirect("opdater.asp?id=" & id)
Else Response.Redirect("slet.asp?id=" & id)
End If
End If
%>
<html>
<head>
<title>VALIDERING</title>
<meta name="generator" content="TSW WebCoder">
</head>
<body bgcolor="#FFFFFF" text="#000000"
<form name="form1" method="get" action="">
<p>Brugernavn:
<input type= "text" name="brugernavn">
</p>
<p>Adgangskode:
<input type="password" name="adgangskode">
<input type="submit" name="Submit" value="Login"
</p>
<input type="hidden" name="funktion" value="<%=funktion%>">
<input type="hidden" name="id" value="<%=id%>">
</form>
</body>
</html>