Vi har stött på ett himla stort problem...
På vår community är det å att när vissa medlemmar skall registrera sig så görs bara halva registreringen...
först fyller medlemmen i ett formulär som skickas vidare till addUser.asp
Den ser ut så här:
<!--#include file="include/dsn.asp"-->
<%
dim rsUsers
If NOT session("test") = "Cookie" then
Response.Redirect("login.asp?Cookie=no")
End If
set rsUsers = Server.CreateObject("ADODB.Recordset")
rsUsers.Open "Person", Conn, adOpenForwardOnly, adLockOptimistic, adCmdTable
rsUsers.Filter = "EMailAddress = '" & Request.Form("email") & "'"
if rsUsers.EOF then
rsUsers.AddNew
rsUsers("NickName") = Request.Form("NickName")
rsUsers("Surname") = Request.Form("LastName")
rsUsers("FirstName") = Request.Form("FirstName")
rsUsers("EMailAddress") = Request.Form("email")
rsUsers("Password") = Request.Form("password")
rsUsers("StreetAddress1") = Request.Form("Address1")
rsUsers("StreetAddress2") = Request.Form("Address2")
rsUsers("State") = Request.Form("State")
rsUsers("PostalCode") = Request.Form("PostalCode")
rsUsers("Country") = Request.Form("Country")
rsUsers("Active") = True
rsUsers("LastLogin") = Now
rsUsers.Update
for each sField in rsUsers.Fields
strName = sField.Name
value = sField.value
Session(strName) = value
next
Session("blnValidUser") = True
rsUsers.Close
Set rsUsers = Nothing
Conn.Close
Set Conn = Nothing
Response.Redirect "ADDkrypin.asp"
Else
Response.Redirect "registrer.asp?takenMailadr=True"
End If
%>
Sedan en respons redirect till addkrypin.asp som ser ut så här:
<!--#include file="include/dsn.asp"-->
<%
strHulePersonID = Session("PersonID")
dim rsHulen
set rsHulen = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM Hulen WHERE HulePersonID = " & strHulePersonID
rsHulen.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
if rsHulen.EOF then
rsHulen.AddNew
rsHulen("HulePersonID") = Session("PersonID")
rsHulen("Created") = Now
rsHulen("HuleScore") = 1
rsHulen("Content") = "VÄLKOMMEN<BR> <BR>" & _
"Du har nu fått ditt eget rum i bite-it Tower. " & _
"Som du ser är det inte mycket du kan göra ännu. Men vänta bara… " & _
"Efterhand som du använder bite-it Tower ökar din status, och dörrarna öppnar sig. <BR> <BR>" & _
"Du kan börja med att ändra denna texten…<BR>" & _
"För att göra det, klicka på länken till höger som heter SKRIV IN UPPLYSNINGAR OM DIG SJÄLV<BR> <BR>" & _
"Kom ihåg att allt du skriver kan läsas av alla som kommer på besök hos dig…" & _
"Skriv därför inte in upplysningar som t ex ditt telefonnummer eller gatuadress.<BR> <BR>" & _
"För att besöka andra i bite-it Tower kan du klicka på en av bilderna nerdest på sidan.<BR>" & _
"När du är på besök hos någon kan du lägga ett meddelande på anslagstavlan." & _
"Hittar du någon som du vill bli vän med kan du fråga om vänskap.<BR> <BR> " & _
"Utforska bite-it Tower! Skaffa dig massa nya vänner. Lycka till!"
rsHulen("ImageActive") = "no"
rsHulen("JokeScoreHule") = 0
rsHulen("Radio") = "http://www.radio1.no/LYD/thevoice.asx"
end if
rsHulen("Modified") = Now
rsHulen.Update
rsHulen.Close
Conn.Close
Set Conn = Nothing
Response.Redirect "krypin.asp"
%>
Nu är det så att det är de kommandon som utförs i den andra filen som inte funkar som det ska....
Den post som skall skapas i tabellen Hulen blir inte skapad alls... Den finns helt enkelt inte! :(
Det är dock inte alltid problemen uppstår utan bara nån enstaka gång....
Finns det någon som har en liten idé om varför detta problem uppstår...
------------------ Du lever bara en gång och den gången är nu!
Är ej helt säker men chansar vilt. Det som ser konstigt ut är att du skriver en If-sats enligt nedan. Sedan lägger du Addnew innanför if-satsen och Update utanför, de trivs nog bäst tillsammans.
mvh Jörgen
if rsHulen.EOF then
[b]rsHulen.AddNew[/b]
rsHulen("HulePersonID") = Session("PersonID")
rsHulen("Created") = Now
rsHulen("HuleScore") = 1
rsHulen("Content") = "VÄLKOMMEN<BR> <BR>" & _
"Du har nu fått ditt eget rum i bite-it Tower. " & _
"Som du ser är det inte mycket du kan göra ännu. Men vänta bara… " & _
"Efterhand som du använder bite-it Tower ökar din status, och dörrarna öppnar sig. <BR> <BR>" & _
"Du kan börja med att ändra denna texten…<BR>" & _
"För att göra det, klicka på länken till höger som heter SKRIV IN UPPLYSNINGAR OM DIG SJÄLV<BR> <BR>" & _
"Kom ihåg att allt du skriver kan läsas av alla som kommer på besök hos dig…" & _
"Skriv därför inte in upplysningar som t ex ditt telefonnummer eller gatuadress.<BR> <BR>" & _
"För att besöka andra i bite-it Tower kan du klicka på en av bilderna nerdest på sidan.<BR>" & _
"När du är på besök hos någon kan du lägga ett meddelande på anslagstavlan." & _
"Hittar du någon som du vill bli vän med kan du fråga om vänskap.<BR> <BR> " & _
"Utforska bite-it Tower! Skaffa dig massa nya vänner. Lycka till!"
rsHulen("ImageActive") = "no"
rsHulen("JokeScoreHule") = 0
rsHulen("Radio") = "http://www.radio1.no/LYD/thevoice.asx"
end if
[b]rsHulen("Modified") = Now
rsHulen.Update
rsHulen.Close[/b]
------------------
*** Var går gränsen mellan långa kortbyxor och korta långbyxor? ***
Tack för den teorin...
Har gjort om koden så att jag inte behöver if-satsen alls...
Hoppas att det funkar nu...
Ger det en liten prövotid över helgen och ser om några av de nya medlemmarna råkar ut för problemet...
Återkommer med svar om det funkar på måndag tisdag nån gång...
:e
------------------ Du lever bara en gång och den gången är nu!
383 ms totalt · 4 externa anrop · v20260731065814-full.a51de22e