Ændring af nuværende webside?

link til siden?

/theSurfer

Vil du ikke heller se koderne??
Jeg er ikke særlig glad for at folk bare skal tro at det er reklame for min side!

Du skriver:

"Jeg søger en person som vil hjælpe mig med at ændre lidt på udseendet udfra mine nuværende koder."

Vi ved jo ikke hvordan det ser ud, eller hvordan du vil ha' det til at se ud..

Vi skal i hvert fald se et eller andet.. :-)

Du kan godt starte med koden.. men så skal du også forklare, hvordan det så skal se ud.. og du ved hvad de siger:

Et billede siger mere end 1000 ord (eller noget i den stil..)


hmm.. tror faktisk, at vi skal det, både kode og grafisk..

/theSurfer

Oki.
Her er siden:
http://www.dirch-passer.dk/kon/default.asp

Og her er forklaringen + koder:


Jeg havde forstillet mig det sådan at:
Præmie beskrivelse og billeder i venstre side
Spørgsmål og adresse i højre side

Og

Sponser oplysninger nedenunder i midten


Her er koderne

------------------------------------

<!--#include file="dsn.asp"-->
<%
Session.LCID = 1030
set rs = Server.CreateObject("ADODB.Recordset")
set rsGruppe = Server.CreateObject("ADODB.Recordset")
set rsPraemie = Server.CreateObject("ADODB.Recordset")

id = Request("id")
if id = "" then
  id = 1
end if


function Two(S)
  two = CStr(S)
  while len(two)<2
    two = "0" & two
  wend
end function

function Dato(strDato)
  'if databaseSel = "MySQL" then
    da = Two(Year(strDato)) & "-" & Two(Month(strDato)) & "-" & Two(Day(strDato))
  'else
  '  da = Two(Month(strDato)) & "-" & Two(Day(strDato)) & "-" & Two(Year(strDato))
  'end if
  Dato = da
end function


overrule=Request.QueryString("testthis")
if overrule="visfortest" then
  overrule = true
else
  overrule = false
end if

if databaseSel = "MySQL" then
  if overrule = false then
    SQLgruppe = "SELECT *, DATE_FORMAT(startDato,'%d-%m-%Y') AS startDatoS, DATE_FORMAT(slutDato,'%d-%m-%Y') AS slutDatoS FROM spmGruppe "
    SQLgruppe = SQLgruppe & "WHERE slutDato >= '" & dato(Now) & "' AND aktiv=1;"
  else
    SQLgruppe = "SELECT *, DATE_FORMAT(startDato,'%d-%m-%Y') AS startDatoS, DATE_FORMAT(slutDato,'%d-%m-%Y') AS slutDatoS FROM spmGruppe "
    SQLgruppe = SQLgruppe & " WHERE GruppeID = " & Request("ID") & ";"
  end if 
else
  if overrule = false then
    SQLgruppe = "SELECT *, FORMAT(startDato,'dd-mm-yyyy') AS startDatoS, FORMAT(slutDato,'dd-mm-yyyy') AS slutDatoS FROM spmGruppe "
    SQLgruppe = SQLgruppe & "WHERE slutDato >= #" & dato(Now) & "# AND aktiv=1;"
  else 
    SQLgruppe = "SELECT TOP 1 *, FORMAT(startDato,'dd-mm-yyyy') AS startDatoS, FORMAT(slutDato,'dd-mm-yyyy') AS slutDatoS FROM spmGruppe "
    SQLgruppe = SQLgruppe & "ORDER BY gruppeID DESC;"
  end if   
 
end if
'Response.Write SQLgruppe & "<br>"
Set rsGruppe = Conn.Execute(SQLgruppe)

if NOT rsGruppe.EOF then
  aktivKonkurrence = true
  findSpmSQL = "SELECT spmTabel.spmGruppeId, spmTabel.spmText, spmTabel.spmSvar, "
  findSpmSQL = findSpmSQL & "spmGruppe.gruppeID, spmTabel.id "
  findSpmSQL = findSpmSQL & "FROM spmGruppe INNER JOIN spmTabel ON "
  findSpmSQL = findSpmSQL & "spmGruppe.gruppeID = spmTabel.spmGruppeId "
  findSpmSQL = findSpmSQL & "WHERE spmGruppe.gruppeID="& rsGruppe("gruppeID") &";"
  'findSpmSQL = findSpmSQL & "WHERE spmGruppe.gruppeID="&id&";"
  'Response.Write findSpmSQL & "<br>"
else
  aktivKonkurrence = false
end if


'SQLgruppe = "SELECT * FROM spmGruppe WHERE gruppeID = " & id & ";"


if Request.ServerVariables("REQUEST_METHOD") = "POST" then
  spmGruppeId = Request.Form("spmGruppeId")
  navn = replace(Request.Form("navn"),"'","")
  adresse = replace(Request.Form("adresse"),"'","''")
  postnummer = replace(Request.Form("postnummer"),"'","")
  bynavn = replace(Request.Form("bynavn"),"'","")
  email = replace(Request.Form("email"),"'","")
  filmtype = replace(Request.Form("filmtype"),"'","''")
 
if navn = "" OR adresse = "" OR postnummer = "" OR bynavn = "" OR email = "" then
    error_form = true
    Response.Write "Alle felter skal udfyldes."
else
 
  strSQL = "SELECT * FROM svarTabel WHERE email = '" & email & "';"
  set rs = Conn.execute(strSQL)
  if rs.EOF and rs.BOF then
    strSQL = "SELECT * FROM svarTabel WHERE navn = '" & navn & "' AND "
    strSQL = strSQL & "adresse = '" & adresse & "';"
    set rs = Conn.execute(strSQL)
    if rs.EOF and rs.BOF then
      set rs = Conn.Execute(findSpmSQL)
      antalRigtige = 0
      svarListe = ""
      do while not rs.EOF
        svar = Request.Form("" & rs("id"))
        if svar = "" then
          svar = 2
        end if
        if CInt(svar) = CInt(rs("spmSvar")) then
          antalRigtige = antalRigtige + 1
        end if
        svarListe = svarListe & svar & ","
        rs.MoveNext
      loop
      svarListe = Left(svarListe,Len(svarListe)-1)
      'Response.Write "<br>"
      'Response.Write "Svarliste " & svarliste
   
      strSQL = "INSERT INTO svarTabel (spmGruppeId,navn,adresse,postnummer,"
      strSQL = strSQL & "bynavn,email,antalRigtige,svarSerie,gaveType) VALUES ("
      strSQL = strSQL & "" & id & ", "
      strSQL = strSQL & "'" & navn & "', "
      strSQL = strSQL & "'" & adresse & "', "
      strSQL = strSQL & "'" & postnummer & "', "
      strSQL = strSQL & "'" & bynavn & "', "
      strSQL = strSQL & "'" & email & "', "
      strSQL = strSQL & "" & antalRigtige & ", "
      strSQL = strSQL & "'" & svarListe & "', "
      strSQL = strSQL & "'" & filmType & "' "
      strSQL = strSQL & ");"
      'Response.write "<br>" & strSQL & "<br>"
      Conn.Execute(strSQL)
%>
<html>
<head>
</head>
<body bgcolor="#EDEEDD"><center><b><br><br><br><br>
Takker for dine svar!<br>
Hvis du har svaret rigtig på alle spørgsmålene er du med i konkurrencen!<br>
<br>
Vinderne får automatisk svar!</b></center>
</body>
</html>
<%
'      Response.Write "Tak for din deltagelse.<br>"
'      Response.Write "Du er nu med i konkurrence."
    else
      Response.Write "Du er med i konkurrence!"
    end if
  else 'strSQL = "SELECT * FROM svarTabel WHERE email = '" & email & "';"
  Response.Write "Du er med i konkurrence!"
  end if
end if
%>
<% else %>
<html>
<head>
</head>
<body bgcolor="#EDEEDD">
<center>
<% if aktivKonkurrence = true then %>

<%
set rs = Conn.Execute(findSpmSQL)
%>
<!--<p align="center"><b><font size="4">konkurrence</font></b>-->
<!--<table  align="center" style="border-left: 1px solid rgb(0,0,0); border-right: 1px solid rgb(0,0,0); border-top: 1px solid rgb(0,0,0); border-bottom: 1px solid rgb(0,0,0)">-->
<table>
<tr><td align="center">

<!-- <table><tr>
  <td><b>Præmier<br></td>
</tr></table>-->

<table>
<tr>
<%
SQL = "SELECT * FROM spmPraemie WHERE spmgruppe = " & rsGruppe("gruppeID")
Set rsPraemie = Conn.Execute(SQL)
%>
  <% do while not rsPraemie.EOF %>
<td>
<table><tr>
  <td><b><%=rsPraemie("premieOverskrift")%></b><br></td>
  </tr>
<tr>
  <td><%=rsPraemie("premieNavn")%></b>
  <br><br></td>
  </tr>
  <td align="right">
<% if len("" & rsPraemie("premieBillede") & "") > 0 then
      Response.Write "<img src=""/" & rsPraemie("premieBillede") & """ alt=""præmie"">"
    end if %>
  </td>
  </tr>
</table>
</td>
<% rsPraemie.MoveNext
  if not rsPraemie.EOF then
  %>
    <td width="10" style="border-right: 1px solid rgb(0,0,0);">&nbsp;</td>
    <td width="10">&nbsp;</td>
  <%
  end if

loop %>
</tr>
</table>

</td></tr>
<tr><td align="center">

<table>
<tr>

  <% if len("" & rsGruppe("bemerkning")) > 0 then %>
  <tr><td align="center"><%=rsGruppe("bemerkning")%>
  </td></tr>
  <% end if %>
<tr><td align="center">
 
  <br><b>Svar rigtigt på de 3 spørgsmål og deltag i lodtrækningen.<br>
  Konkurrencen slutter: <%=rsGruppe("slutDatoS")%></b>
  </td></tr>
<tr><td>

<form method="POST" action="<%=Request.ServerVariables("SCRIPT_NAME")%>">
<table width="100%" border="0" cellspacing="0" style="border-left: 1px solid rgb(0,0,0); border-right: 1px solid rgb(0,0,0); border-top: 1px solid rgb(0,0,0); border-bottom: 1px solid rgb(0,0,0)">
<tr>
  <td style="border-bottom: 1px solid rgb(0,0,0)"><b>Spørgsmål</b></td>
  <td style="border-right: 1px solid rgb(0,0,0); border-bottom: 1px solid rgb(0,0,0)">&nbsp;</td>
  <td style="border-bottom: 1px solid rgb(0,0,0)">&nbsp;</td>
  <td style="border-bottom: 1px solid rgb(0,0,0)"><b>Svar mulighed</b></td>
</tr>
<%
do while not rs.EOF
%>
  <tr>
  <td style="border-bottom: 1px solid rgb(0,0,0)"><%=rs("spmText")%></td>
  <td style="border-right: 1px solid rgb(0,0,0); border-bottom: 1px solid rgb(0,0,0)">&nbsp;</td>
  <td style="border-bottom: 1px solid rgb(0,0,0)">&nbsp;</td> 
  <td style="border-bottom: 1px solid rgb(0,0,0)" align="center">
  Ja <input type="Radio" name="<%=rs("id")%>" value="1">
  &nbsp; Nej <input type="Radio" name="<%=rs("id")%>" value="0">
  </td></tr>
  <%
  Response.Write vbCrLf
  rs.MoveNext
loop
%>
</table>

</td></tr></table>

<table align="center">
<input type="hidden" name="id" Value="<%=id%>">
<tr><td>Navn:</td><td>&nbsp;</td><td><input type="text" name="navn" size="30"></td></tr>
<tr><td>Adresse:</td><td>&nbsp;</td><td><input type="text" name="Adresse" size="30"></td></tr>
<tr><td>Postnummer</td><td>&nbsp;</td><td><input type="text" name="postnummer" size="30"></td></tr>
<tr><td>By:</td><td>&nbsp;</td><td><input type="text" name="bynavn" size="30"></td></tr>
<tr><td>Email:</td><td>&nbsp;</td><td><input type="text" name="email" size="30"></td></tr>
<% if len("" & rsGruppe("valg")) > 0 then %>
  <tr><td>Jeg foretrækker:</td><td>&nbsp;</td><td><select name="filmtype" size="1">
<% valgmuligheder = Split(rsGruppe("valg"),";")
  for i = lbound(valgmuligheder) to ubound(valgmuligheder)  %>
    <option value="<%=valgmuligheder(i)%>"><%=valgmuligheder(i)%></option>
<% next %>
  </td></tr>
<% end if %>
<tr><td> </td><td>&nbsp;</td><td><input type="submit" name="Svar" value="Svar"></td></tr>
</table>
</form>

<table align="center">
<tr>
  <td align="center">
<%
    if len("" & rsGruppe("sponsorWWW") & "") > 0 then
      Response.Write "Sponsoreret af: <br><a href=""http://" & rsGruppe("sponsorWWW") & """>"
   
      if len("" & rsGruppe("sponsorBillede") & "") > 0 then
        Response.Write "<img src=""/" & rsGruppe("sponsorBillede") & """ alt=""sponsor"">"
      else
        Response.write rsGruppe("sponsorNavn")
      end if
      Response.write "</a>"
    else
      Response.Write "Sponsoreret af:<br> " & rsGruppe("sponsorNavn")
    end if
%>
  </td>
</tr></table>


</td>
</tr>
</table>
</td>
</tr>
</table>
</form>
<% else 'aktiv konkurrence %>
  <P><B>Næste konkurrence starter d. 28-06-2005 - Så kig forbi der</B></P>
  <hr width="70%" size="3">
  <p>&nbsp;</p>

<div align="center">
<center>





</table>

</center>
</div>



</td>
</tr>
</table>
</td>
</tr>
</table>
</form>
 
<% end if %>


</center>

</body>
</html>

<% end if


Conn.Close
%>

Men hvis du har andre design ideer, er du velkommen til at gi dit be7 med!

Du mener sådan her?:

<table width="100%" height="100%" border="1">
<tr>
    <td valign="top" >Præmie beskrivelse og billeder i venstre side</td>
    <td valign="top" >Spørgsmål og adresse i højre side</td>
</tr>
<tr>
    <td valign="top" align="center" colspan="2">Sponser oplysninger nedenunder i midten</td>
</tr>
</table>

Det er bare opsætningen.. jeg har brugt border="1", så du kan se cellerne..

/theSurfer

Ja lige netop.
Hvis vi kan få det til at se pænt ud sådan ville det være lækkert!

Er det noget du har mod på??

Hvis ja! skal vi så ikke fortsætte i morgen, jeg er ved at være træt??

Jo, kan vi godt.. jeg ser lige om jeg kan nå det, inden eftermiddag.. skal på arbejde til midnat..

Godnat og sov godt.

/theSurfer

Alletiders....
Jeg prøver at tjekke tit om du har været i gang, det bedste ville jo være at vi var her samtidig så vi kunne teste det lidt

God nat og sov godt

Jeg dropper at få lavet den om....ihvertfald for denne gang
Men ellers tak for din henvendelse