Värva medlemmar

Man tar o lägger in ett type="hidden" fält i reggaformuläret och sedan på den sidan då du lägger till den nya användaren så kollar du först om personen finns i databasen o sedan lägger du till 20p på denna.
Det är väl typ basic lr?

Lägg in Qimen i en input hidden field

<input type="hidden" name="strVarva" value="<%=request.querystring("varva")%>"

Och när man subittar detta forumulär så uppdaterar du dennes post med ett förutbestämt antal poäng.

Mjo så långt hade jag kommit själv. Det svåra är hur jag först ska lägga till de nya koderna och sedan uppdatera.

Använder följande kod för att lägga till:

<%
SQL = "SELECT * FROM anvandare WHERE Namn = '"&Request.Form("username")&"' "
RecSet.Open SQL, Connect, 3,3

If Not RecSet.Eof Then
	Session("fel") = "Användarnamnet är upptaget"
	Response.Redirect("registrera.asp")
End If
SQL = "Select * From anvandare"

	RecSet.AddNew
                ....
	RecSet("namn") = Request.Form("username")

	RecSet("ip") = Request.ServerVariables("REMOTE_ADDR")
	RecSet("status") = "0"
                ....
	RecSet("besok") = "0"

	RecSet.Update
	RecSet.Close

If not Request.Form("username") = admin Then
SQL = "Select * From meddelanden"
RecSet.Open SQL, Connect, 3,3
	
	RecSet.AddNew

	RecSet("datum") = Now
	RecSet("rubrik") = "Välkommen!"
                ....
	RecSet("ip") = Request.ServerVariables("REMOTE_ADDR")

	RecSet.Update
	RecSet.Close

End If
Connect.Close
	Set RecSet = nothing
	Set Connect = nothing
%>

Har byttat ut vissa saker mot ... för att spara lite plats.

Hur/var ska jag lägga till updateringen?

Försökte att slänga in detta:

SQL = "Select * From anvandare WHERE namn = '" & Request.Form("strVarva")
RecSet.Open SQL, Connect, 3,3
    
	RecSet("status") = RecSet("status") + 30

	RecSet.Update
	RecSet.Close

Mellan det första som läggs till och där ett meddelande läggs till. Men jag får bara:

Syntaxfel i sträng i frågeuttrycket 'namn = 'Qimen'.
/pixelworld/varva_registrerad.asp, line 46

och rad 46 är:

RecSet.Open SQL, Connect, 3,3

Någon som vet vad som är fel?

 SQL = "Select * From anvandare WHERE namn = '" & Request.Form("strVarva") &"'"

Tack funkar klockrent.
Kanske lite off-topic men hur gör man så att man inte kan ändra i ett textfält?
Man kan ju använda type="hidden"
Kan ju vara bra så att användaren ser vem man blir värvad av men inte kan ändra det :e

<input type="text" disabled>
Men då får du lägga till detta utöver ditt hiddenfield.
Det smartaste kanske är att bara skriva ut namnet utan ett fält.

Finfint att det löste säg hann inte svara för jag satt o kollade på "Den Gröna milen" <--- mkt off-Topic...

Är det bästa sättet att spara felmess på genom sessions?

Lite förändring/effektivicering av din kod:
Byt ut detta:

SQL = "Select * From anvandare WHERE namn = '" & Request.Form("strVarva")
RecSet.Open SQL, Connect, 3,3
    
	RecSet("status") = RecSet("status") + 30

	RecSet.Update
	RecSet.Close

mot detta:

Connect.execute "update anvandare set status = status + 30 where namn =  '" & Request.Form("strVarva") &"'",,128

Korta felmess brukar jag lägga i en querystring.

response.redirect "fel.asp?felmess=Fel på användarnamn

Ett annat sätt är att lägga en felkod i querystringen som du hämtar upp på sidan:

response.redirect "fel.asp?felkod=2"
Och på sidan "fel.asp"
Dim mess
select case request("felkod")
case "1"
mess="Fel 1"
case "2"
mess="Fel 2"
case else
mess="Fatal Error!"
end select
response.write mess

Vad menar du det med felmeddelandena?

Är det ett kort felmeddelande kan du kanske lägga det direkt i en querystring.
Är det långa felmeddelanden kan du skapa en case-sats

ok

Chansen finns ju att man får ett antal felmess... då funkar väl inte en select case då man kanske vill skriva ut flera...
Kom o tänka på att lägga dom i en Session o sedan skriva ut sessionen... man kan ju bygga på den sessionen med lite mer text o så... nån begränsning på hur många teckan man ska lagra i en session?
Session(namn) = Nothing dödar den?

[blue]'ASP 3.0[/blue]
Session.Contents.Remove(Name | index)
Session.Contents.RemoveAll()

Men alltså pillar användaren i länken så får han skylla sig själv §e

Ceeron skrev:

Chansen finns ju att man får ett antal felmess... då funkar väl inte en select case då man kanske vill skriva ut flera...
Kom o tänka på att lägga dom i en Session o sedan skriva ut sessionen... man kan ju bygga på den sessionen med lite mer text o så... nån begränsning på hur många teckan man ska lagra i en session?
Session(namn) = Nothing dödar den?

Varför skulle inte det funka?
Men det är klart, istället för att lägga in felmesset i variabler så kan man anropa subbar med selectsatsen i stället.
Session.Contents.Remove("sessionsnamnet")
eller
Session.abandon

Alltså jag menar om jag både vill skicka med felmess1 och felmess2. Case kan ju inte plocka ut flera samtidigt lr?

Nej, det är ju klart.