Det virker ikke under updater en eksisterende..... Kunne jeg få noget hjælp?
If visitor_Obj.BOF then '*** opret en ny
if request("s") <> "" then ' Der er valgt en side og gæsten er ny strSQL_new="INSERT INTO [querys] ([visiter_id],[side_id], [visits])" strSQL_new=strSQL_new & " VALUES(" & [v_visiter_id] & "," & [v_side_id] & "," & [v_acum_id] & ")"
'response.write strSQL_new
MM_content2_STRING.Execute strSQL_new end if
else '*** updater en eksisterende
if request("s") <> "" then ' Der er valgt en side og gæsten er kendt response.write "nu opdateres visits" v_acum_id = Cint((rs_visiter_menu.Fields.Item("visits").Value) + 1)
strSQL_update = "Update querys set visits = " & replace(v_acum_id,"'","''") & " where visiter_id=" & v_visiter_id & " AND side_id= " & v_side_id & " "
response.write strSQL_update MM_content2_STRING.Execute(strSQL_update) end if End If %> <%
Hvis side_id findes skal v_acum_id tælles op og visits blive én højere Der oprettes altid en ny og en gammel opdates aldrig. Hvad kan dette skyldes?
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Det er lidt noget rod, jeg forstår i hvert tilfælde ikke helt hvad du mener. Men en lille ting omkring din update af visits:
Brug denne i stedet:
strSQL_update = "Update querys set visits = visits + 1 where visiter_id=" & v_visiter_id & " AND side_id= " & v_side_id
Med din nuv. tæller funktion, risikerer du at den tæller forkert (mangler at tælle). Forestil dig, at flere brugere næsten samtidig kommer ind på den side hvor du tæller. Alle henter den samme nuværende værdi og ligger 1 til. Det betyder at du i værste fald, kun får talt besøg op med 1 ud af eks. 3 brugere, da de alle opdaterer med den gamle værdi + 1 = samme tal.
hver bruger har sin egen tæller. dvs. at der tælles hvor mange gange hver enkelt bruger hvar været på en side. Derfor tror jeg ikke at det konflikter som du siger. Ellers tror jeg ikke jeg forstår.
response.write strSQL_update som står efter strSQL_update så jeg tror der er noget galt med If visitor_Obj.BOF then sætningen. Jeg kan bare ikke finde ud af hvad det skulle være.
Den opdatere aldrig men opretter hele tiden nye så jeg har.
visiter_id,side_id,visits 1,1,1 1,3,1 1,2,1 1,2,1
side 2 er blevet set 2 gange men bliver oprettet som to forskellige records? Alle sider har altid kun 1 i visits pga. at visits ikke bliver opdateret.... Jeg hæver points
ok, derfor skulle min if then vendes rundt. ;o) Nu tæller den rigtigt. Men giver denne fejl hvis record ikke eksistere. Nu prøver den at opdatere uden af recorden findes???
nu opdateres visits ADODB.Field error '800a0bcd'
Enten er BOF eller EOF sand, eller den aktuelle post er blevet slettet. Den anmodede handling kræver en aktuel post.
strSQL_check= "Select * From visiters WHERE visiters_id=" + v_visiter_id Set visitor_Obj = Server.CreateObject("ADODB.RecordSet") 'response.write strSQL_check visitor_Obj.Open strSQL_check, MM_content2_STRING 'response.write visitor_Obj
If visitor_Obj.BOF then '*** opret en ny
if request("s") <> "" then ' Der er valgt en side og gæsten er kendt response.write "nu opdateres visits" v_acum_id = Cint((rs_visiter_menu.Fields.Item("visits").Value) + 1)
'strSQL_update = "Update querys set visits = " & replace(v_acum_id,"'","''") & " where visiter_id=" & v_visiter_id & " AND side_id= " & v_side_id & " " strSQL_update = "Update querys set visits = visits + 1 where visiter_id=" & v_visiter_id & " AND side_id= " & v_side_id
response.write strSQL_update MM_content2_STRING.Execute(strSQL_update) end if
else '*** opdater en eksisterende 'hvis side_id findes: where visiter_id = v_visiter_id AND side_id = v_side_id 'men hvis side id ikke findes where visiter_id = v_visiter_id if request("s") <> "" then ' Der er valgt en side og gæsten er ny strSQL_new="INSERT INTO [querys] ([visiter_id],[side_id], [visits])" strSQL_new=strSQL_new & " VALUES(" & [v_visiter_id] & "," & [v_side_id] & "," & [v_acum_id] & ")"
'response.write strSQL_new
MM_content2_STRING.Execute strSQL_new end if End If %>
yep, det var en stavefejl som, du jo ikke kunne vide....
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.