Tipsa en kompis + admin

Hej!

Är det nån som kan fixa det ? Här nedan får ni koden till en "tipsa en kompis" script.

Och jag vill ha en admin funktion där jag som admin kan logga in och kolla vem som har skickat flest tips.Typ statisik på det.

<FORM METHOD="post" ACTION="tipsa_kompis.asp">
<input type="text" name="to_name"><BR>
<input type="text" value="@" name="to_email"><BR>
<input type="text" name="from_name"><BR>
<input type="text" value="@" name="from_email"><input type="submit" value="skicka">
</form>

<%
'On Error Resume Next
Dim oMail, strFrom, strTo, strSubject, strTxt1, strTxt2, strTxt3

strFrom = "DIN_MAIL@SERVER.COM"
strTo = Request.Form("to_email")
strSubject = "--- TIPS PÅ EN BRA SIDA ---"
strTxt1 = Request.Form("to_name")
strTxt2 = Request.Form("from_name")

Set oMail = Server.CreateObject("CDONTS.NewMail")
oMail.Send strFrom, strTo , strSubject, + chr(10) + "Hej " + strTxt1 + "!" + chr(10) + strTxt2 + " vill tipsa dig om denna sida:" + chr(10) + "HTTP://WWW.DIN.WEBADRESS.COM/" + chr(10) + chr(10) + "Med vänliga hälsningar," + chr(10) + strTxt2 + " DITT SIDNAMN" + chr(10)
%>

<p align="center"><font face="Verdana" color="#FF0000"><b><font size="4">Tack!</font><br>
Ditt tips är nu skickat!</b></font>

du far ju spara det i databas eller liknande och sen kolla om personen finns med if-sats eller nat, om ja sa uppdaterar du bara det anvandarnamnet (?), annars lagg in ny post med anvandarnamn och lagg till +1 i faltet som sager hur manga man har skickat.

okej? :D

Hmm. Kan du skriva koden med det du menade ? jag är inte så HIGH på det.

Någon som kan fixa det ?

' ## Hämtar post från databasen där from_name är det inskrivena
Set RecSet = Server.CreateObject("ADODB.Recordset")	
SQL = "SELECT from_name FROM Tavling WHERE from_name = " & Request.Form("from_name") & ""
RecSet.Open SQL, Connect, 3, 3 

' ## Om en post hittas uppdateras denna med +1 skickat mail
If Not RecSet.eof then
  SQL02 = "UPDATE Tavling SET AntSkickade = AntSkickade+1 WHERE from_name = " & Request.Form("from_name") & ""
  Connect.Execute SQL02,,128

' ## Annars läggs en ny post till i databasen
Else
  Set RecSet02 = Server.CreateObject("ADODB.Recordset")	
  SQL02 = "INSERT INTO Tavling ( Namn, AntSkickade, AnvIPStatus, AnvIPUnderStatus, AnvIPnummer, AnvIPDatum ) VALUES( '" & Request.Form("from_name") & "', 1)"
  RecSet02.Open SQL02, Connect, 3, 3 

  RecSet02.Close
  Set RecSet02 = Nothing
End If

RecSet.Close
Set RecSet = Nothing
Connect.Close
Set Connect = Nothing

Något sånt kanske? Sen får du givetvis ändra namnen så dom passar din databas.
Skulle inte du köra med Jmail föresten? Det du har nu är ju CDONTS.

Kan nån fixa det i JMAIL?

hehe..... du far faktiskt soka lite!

Om alla skulle vara så lata som du Denniss :e, så skulle ju ingen kunna svara på dina frågor. Försök att leta lite efter äldre trådar och lista ut ngt själv...

Finns ingen sån färdig script ?

Denniss skrev:

Finns ingen sån färdig script ?

Det är det som är tjusningen med spaghetti-ASP. Förvänta dig aldrig att det finns färdiga lösningar för det du letar efter. ;)

En sökning på JMail i forumet, ett besök på https://www.dimac.net samt kanske lite knåp i din editor hjälper dig? :)