webForumDet fria alternativet

Skriva på samma sida

ASPur ASP

5 svar · 170 visningar · startad av HeHo

Medlem sedan apr. 2000277 inlägg
Frågan#1

Jag håller på med ett formulär där man kan ändra sitt lösenord och när man anger fel nuvarnde lösenord vill jag att ett felmedddelnade skall visas längst upp på samma sida. Problemet är att när man trycker på submit knappen så tas man till själva Databas uppdaterings sidan och därifrån finns en Response.Redirect tillbaka om något är fel. Jag har skickat med ett felmeddelande i en QueryString tillbaka till sidan, men som vanligt när jag håller på, så är den tom! Varför?

Koden på updateringssidan:

<%@ Language=VBScript %>
<%Option Explicit%>
<!--#include file="../../mallar/connection.asp"-->
<%
Response.Buffer = True
Dim objConnection
Dim objRS
Dim strText
 
Public Sub Main()
Dim bolFunnen
bolFunnen = False

	Set objRS = server.CreateObject ("ADODB.RecordSet")
		objRS.Open "kunder", objConnection, 3, 2
		
		Do until objRS.EOF OR bolFunnen
		if objRS("Kund_Nr") = CInt(Session("UserID")) AND objRS("pass") = Request.Form("oldlosen") then
				bolFunnen = True
			else
				objRS.MoveNext
			end if
		Loop
		if bolFunnen = false then
			strText = "Tyvärr stämmer inte ditt nuvarande lösenord överens med vad du angivit"
			[b]Response.Redirect("update.asp?text=" &strText& ".")[/b]
	else
			objRS("pass")		= Trim(Request.Form ("pass1"))
			objRS("Kund_Nr")	= CInt(Session("UserID"))
			objRS.Update
			Response.Redirect("../kassan.asp")
		end if
End Sub	

Call Init()
Call Main()
Call CleanUP()
%>

Skall tillägga att databas kopplingen och updateringen fungerar. Det är bara QueryString jag har problem med. Laddas inte update.asp om igen från servern när man gör så här?

------------------

Dela med dig av allt du vet. Det är ett sätt att uppnå odödlighet

Medlem sedan jan. 20013 039 inlägg
#2
Response.Redirect("update.asp?text=" &strText& ".")

Vet inte om det är felet, men vad gör punkten där i slutet? Är det inte bättre att lägga med den i strängen om den skall vara en slutpunkt på meningen?

------------------
"You can not solve todays problems with the same level of thinking that created the problems in the first place" Albert Einstein

Medlem sedan apr. 2000277 inlägg
#3

Jo, men jag har testat med båda varianter och ingen funkar så då fick det sist prövade stå kvar.

------------------

Dela med dig av allt du vet. Det är ett sätt att uppnå odödlighet

Medlem sedan jan. 20011 154 inlägg
#4
response.redirect "update.asp?text="&strText

------------------
Ordning är till för idioter.
Genier behärskar även kaos.

Medlem sedan dec. 19996 721 inlägg
#5

Eller snarare

Response.Redirect "update.asp?text=" & server.urlencode(strText)

Medlem sedan apr. 2000277 inlägg
#6

Tack alla underbara människor för er tid och hjälp, men allt är löst och fixat sen lång tid tillbaka....... ;) :e
Det var ju som vanligt att jag inte anropat request("text") rätt. Har nämligen gjort samma fel tidigare, så vissa lär sig visst aldrig :r

------------------

Dela med dig av allt du vet. Det är ett sätt att uppnå odödlighet

144 ms totalt · 3 externa anrop · v20260731065814-full.55e59744
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
141 ms — hämta tråd, inlägg och bilagor (db)