Hej! Jag har en kod här.... den fungerar! Men har man även under 2000 :- så kan man köpa varan! Det blir bara -59 :- istället! Man gör detta säkert genom en If-sats... men hur ska man skriva??? Skulle vilja ta med i en session... Här e koden:
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("databas/DiDjo_com_nya08745745745.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM anv where id='"&session("id")&"'"
rs.Open Addera, Connect, 3, 3
rs("sida") = True
rs("status") = rs("status") - 2000
rs.update
Set rs1 = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM sida"
rs1.Open Addera, Connect, 3, 3
rs1.AddNew
rs1("text") = "Har inte skrivit något"
rs1("vemsid") = session("id")
rs1.update
session("sida")="Du har köpt 'Egen sida'! På inställningar skriver du in det du vill ha på den!."
response.redirect "data.asp"
%>
Asså.... Vi har snackat med han! Vi skickade till han och snackade! Tillslut sa han inget mera! Vi bad om Pirs... o han svarade och vi skickade att vi ändrat och han sa inge mer! "Så ta dig i dalen" :P
Anledningen till att jag inte sa nått mer va för att allt jag sa va fel
jag va snäll i början och gick med på att kapa copyright coden
det ville du inte
till slut kom vi fram till att du skulle ha en tack text, det la du dit
MEN du länkade den fel, och jag sa till om de, då tog du bort den helt.
Sen orkade jag inte bry mig mer.
Jag vet att det finns många andra vetiga människor därute
och dom bygger EGNA communtys :)
