webForumDet fria alternativet

funkar ibland med ibland inte!

ASP

2 svar · 153 visningar · startad av Lina

Medlem sedan jan. 2001332 inlägg
Frågan#1

Hej!

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>&nbsp;<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>&nbsp;<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>&nbsp;<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>&nbsp;<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>&nbsp;<BR>&nbsp;" & _
                             "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!

Medlem sedan feb. 20012 412 inlägg
#2

Hej!

Ä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? ***

Medlem sedan jan. 2001332 inlägg
#3

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
124 ms — deklarationer (db)
121 ms — hämta statistik (db)
136 ms — hämta tråd, inlägg och bilagor (db)
122 ms — ändringar (db)