Hvem vil lave en simpel konkurrence

hvilket serverspråg har din server støtte for, asp/php/mysql, etc?

Hmmm....jeg er ret sikker på at der er asp og php, men jeg kan ikke rigtig finde info på www.webpartner.dk (Det er ikke mit eget webhotel)

Men jeg vil meget gerne undgå at lave en regulær database.

Har lige undersøgt det....webhotellet understøtter IKKE asp/php/mysql

hmmm, efter det lille jeg ved om asp/php så trænger man dette for i det hele kunne lagre slig information i en fil/database som ligger på serveren.

Nu har jeg lagt konkurrencen på min egen server der understøtter php, asp, mysql. Er der een der kan hjælpe så??

Skal det laves gratis?

hehe....næh, for 200 points! Jeg aner ikke hvad det kræver at lave det, jeg er pænt blank når det kommer til den slags, så det kan godt være jeg beder om lidt meget....problemet er at jeg har et cgi script der plejer at virke, men nu skal jeg bruge det på en anden server, og så virker det pludselig ikke??

Måske jeg bare skulle copy/paste det her, så folk kunne kigge på det??? - Det gør jeg:


#!/usr/bin/perl

##############################################################################
# SimpleMail                        Version 0.8                              #
# History : EK 2000-05 : Modelled from A-1 WebSite Specific Registration    #
##############################################################################

require "/usr/local/lib/cgi-lib.pl";

$mailprog = '/usr/lib/sendmail';
#$recipient = 'svn at foobar.nu';
#$recipient = 'svn at foobar.nu';

&ReadParse(*input);

$template = "template";
$contentmarker = '<!--content-->';
$storage = "data.dat";

print "content-type: text/html\n\n";

unless ($input{'email'} =~ /.+\@.+\..+/) {
    &output();
    die;
}


$details = "$input{'email'}\#$input{'fornavn'}\#$input{'efternavn'}\#$input{'adresse'}\#$input{'postnr'}\#$input{'by'}\#$input{'contest'}\#$input{'format'}\#$input{'ok_reg'}\#$input{'sm'}\#$input{'question1'}\n";

open (STORE,"$storage");
    @store = <STORE>;
close (STORE);

$update = 0;

foreach $line (@store) {
    if ($line =~ /^$input{'email'}\#/i) {
        $line = $details;
        $update = 1;
        last;
    }
}

if ($update) {
    open (STORE,">$storage");
        foreach $line (@store) {
            print STORE $line;
        }
} else {
    open (STORE,">>$storage");
        print STORE $details;
}
close (STORE);
       
if ($update) {
    &output();
} else {
    &output();
}

if ($input{'comment_type'} =~ /^[A-Z,a-z,' ']+/) {

    &send_mail();   
    &output();
}

sub output {
    open (TEMP,"$template");
        @temp = <TEMP>;
    close (TEMP);
   
    foreach $line (@temp) {
        $line =~ s/$contentmarker/$_[0]/;
        print $line;
    }

}

sub send_mail {
    # Localize variables used in this subroutine.                            #
#    local($recipient2);
#
#    # Open The Mail Program
#    open(MAIL,"|$mailprog -t");
#
#    print MAIL "To: $recipient\n";
#    print MAIL "From: SOAP\n";
#    print MAIL "Subject: $input{'comment_type'} : $input{'comment_scope'}\n\n";
#    print MAIL "The following information was delivered from the feedback form:\n";
#    print MAIL "-" x 75 . "\n";
#    print MAIL "Comment Type  : $input{'comment_type'}\n";
#    print MAIL "Comment Scope : $input{'comment_scope'}\n";
#    print MAIL "Email        : $input{'email'}\n";
#    print MAIL "Name          : $input{'firstname'},$input{'lastname'}\n";
#    print MAIL "-" x 75 . "\n\n";
#    print MAIL "$input{'comment_full'}\n";
#    close (MAIL);

}

lukker....