<% if Session("LoginStatus")<>"yes" then response.Redirect("noauthority.asp") end if %>
SMALL CYCLADES MANAGER >SHOP (EN) MANAGER>INSERT NEW ENTRY
<% FUNCTION fixme(theString) fixme=REPLACE(theString,"'","`") END FUNCTION island=request.Form("island") title=request.Form("title") titlegr=request.Form("titlegr") shortdesc=request.form("shortdesc") shortdescgr=request.form("shortdescgr") desc=request.form("desc") descgr=request.form("descgr") typer=request.form("type") tel=request.form("tel") mobile=request.form("mobile") fax=request.form("fax") email=request.form("email") alt=request.form("alt") altgr=request.form("altgr") priority=request.form("priority") myDSN="DRIVER={MySQL ODBC 3.51 Driver}; SERVER=smallcycl.ipowermysql.com; DATABASE=ferrari_default; UID=ferrari;PASSWORD=!antihack!; OPTION=3" set myconnection=server.createobject("adodb.connection") myconnection.open myDSN sql="INSERT INTO `shopen` ( `id` , `priority` , `island` , `title` , `titlegr` , `shortdes` , `shortdesgr` , `description` , `descriptiongr` , `photo` , `alt` , `altgr` , `telephone` , `mobile` , `fax`, `email`, `type`) VALUES ('', '" & fixme(priority) & "', '" & fixme(island) &"', '" & fixme(title) &"', '" & fixme(titlegr) & "', '" & fixme(shortdesc) & "', '" & fixme(shortdescgr) & "', '" & fixme(desc) & "', '" & fixme(descgr) & "', 'no" & "', '" & fixme(alt) & "', '" & fixme(altgr) & "', '" & fixme(tel) & "', '" & fixme(mobile) & "', '" & fixme(fax) & "', '" & fixme(email) & "', '" & fixme(typer) & "');" myconnection.execute sql %> NEW ENTRY COMPLETED
>>SHOP (EN) MANAGER
>>MAIN MENU